Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / System / Multimedia / Beep

Beep mit Frequenz

Mit folgender API-Funktion wird ein Ton von definierter Frequenz und Dauer (in Millisekunden) erzeugt (Leider funktioniert diese API erst ab Windows NT4/ME/2000):
Declare Sub Beep Lib "kernel32" ( _
    Optional ByVal Frequenz As Long = 440, _
    Optional ByVal Dauer As Long = 200)
So erhält man mit folgendem Code bei jedem Click auf die Form eine wundervolle Melodie: smile
Private Sub Form_Click()
  Do
    Beep CLng(Rnd * 10) * 20 + 200, _
         CLng(Rnd * 2) * 100 + 100
  Loop Until Rnd < 0.1
End Sub

© Jost Schwider, 21.05.2000-14.10.2000 - http://vb-tec.de/beep.htm