visualbasic
Goto Top

Beliebige Frequenzen und Töne erstellen

Hallo
ich würde gerne ein paar Deklarationen zu einem Geräusch umwandeln. Das wäre:
<code vb>
Dim Frequenz
Dim Volumen
Dim Time


Und jetzt möchte ich, dass wenn ich auf Button1 klick, dass dann der Ton ertönt.

Googlesuche I
Googlesuche II
Habe ich auch nix gefunden...

Was muss ich machen?

mfg @visualbasic

EDIT
Bringt mir das vielleicht etwas? Und wenn, dann was?

Meine letzte Googlesuche bringt mir auch nix...

Content-Key: 191658

Url: https://administrator.de/contentid/191658

Printed on: April 27, 2024 at 03:04 o'clock

Member: marinux
marinux Sep 22, 2012 at 10:17:02 (UTC)
Goto Top
Member: visualbasic
visualbasic Sep 22, 2012 at 10:22:57 (UTC)
Goto Top

If Beep Then
my.computer.beep.funktioniert = false
else

Wie könnte ich das machen mit dem
<code vb>Dim m As New Media.SoundPlayer
m.Stream = stream
m.Play()
Member: marinux
marinux Sep 22, 2012 updated at 10:36:08 (UTC)
Goto Top
Zitat von @visualbasic:

If Beep Then
my.computer.beep.funktioniert = false
else

???

Wie könnte ich das machen mit dem
<code vb>Dim m As New Media.SoundPlayer
m.Stream = stream
m.Play()


??? Wie ich verstanden habe möchtest du einen Ton abspielen und das geht mit Console.Beep(frequency As Integer, duration As Integer) (http://msdn.microsoft.com/de-de/library/4fe3hdb1(v=vs.80).aspx)
Member: visualbasic
visualbasic Sep 22, 2012 at 10:38:16 (UTC)
Goto Top
Zitat von @marinux:
> Zitat von @visualbasic:
> ----
>
> If Beep Then
> my.computer.beep.funktioniert = false
> else
Der Mainboard-Interne Beeper geht bei mir nicht mehr.
ab win7 kann man das eh vergessen; habs mal bei nem xp ausprobiert; da kommen dann immer komische geräusche, aber egal
Member: marinux
marinux Sep 22, 2012 at 10:54:45 (UTC)
Goto Top
Also unter meinem Google Link finde ich auf Anhieb mehrere Ansätze es auch ohne Console.Beep() zu lösen (mir war vorher nicht bekannt, dass Console.Beep nicht ausreichend ist für deine Problemstellung)

Gefordertes Know-How: Copy & Paste.
Member: visualbasic
visualbasic Sep 22, 2012 at 16:48:35 (UTC)
Goto Top
Zitat von @marinux:
Copy & Paste.
Ne nur Tipps