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