Fungsi Beep

Ini menunjukkan kamu bagaimana untuk mengatur frekuensi dan durasi suara beep pada program visual basic. Tempatkan ini dalam .bas kamu

listing code:

'=================================
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Masukkan sesuatu seperti ini di sebuah tombol:

Dim ret As Long
ret = Beep(1500, 300)


Atau, jika Anda ingin melakukan sesuatu yang sedikit lebih menyenangkan, cobalah ini:

Dim ret As Long, i As Integer

For i = 0 To 4000 Step 100
ret = Beep(i, 100)
Next