Vylepšené "pípání" aplikace

Postup:
 V modulu deklarujte následující API funkci:

Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal _
dwFrequency As Long, ByVal dwMilliseconds As Long) As Long

Standardní příkaz Beep má frekvenci 440 Hertz a délku asi 200 milisekund, takže si můžete vyprodukovat vlastní krátké pípnutí vyššího tónu:

BeepAPI 600, 100

A samozřejmě lze vytvořit i více komplexní "pípnutí":

Dim i As Long 
For i = 100 To 1000 Step 10
    BeepAPI i, 20
Next

Zpět

Autor: The Bozena