Membuat Sound Beep Ala Anti Virus Dengan Kode VB6

 Pada postingan kali admin akan berbagi sebuah kode untuk membuat sebuah Sound Beep yang suaranya mirip dengan anti virus Avira.

Dimana saatmendeteksi sebuah virus biasanya akan mengluarkan suara yang khas.

Berikut dbawh ini adalah kode untuk memanggil fungsi Api Beep yang terdapat liblary Kernel32 :

Option Explicit

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

Private Sub AvirasBeep()

    Beep 1500, 100 'frekuensi 1500khz, durasi 100 milidetik

    Beep 2000, 80 'frekuensi 2000khz, durasi 80 milidetik

    Beep 3200, 70 'frekuensi 3200khz, durasi 70 milidetik

End Sub

Private Sub Command1_Click()

    AvirasBeep

End Sub

Demikian postingan singkat kali ini mengenai cara Membuat Sound Beep Ala Anti Virus Dengan Kode VB6.

Seomoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga berhasil

Related Post: Animasi