MEMBUAT ALARM UNTUK ANTIVIRUS BUATANMU!

TERIMA KASIH UNTUK MORPHOST

Kali ini saya menulis tutorial tentang bunyi alarm saat antivirusmu mendeteksi virus. Yah, baik itu saat RTP-mu mendeteksi virus ataupun saat antivirusmu menscan komputer.
Memang tanpa suara juga gak apa-apa…
Tapi lebih klop kalo ada suaranya…
Lihat source dibawah ini.
Private Declare Function Beep Lib “kernel32″ _
(ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Sub Bunyi()
Beep 1000, 80
End Sub
Yang terpenting disini adalah fungsi ‘Beep’. Penjelasannya begini:
Beep [Frekuensi], [Durasi]
Sekarang kita lihat contoh-contoh bunyi alarm antivirus;
Bunyi alarm Morphost Versi tua
Beep 800, 50
Bunyi alarm Peradnya Virus Cleaner
Dim i As Integer
For i = 1500 To 2000 Step 100
Beep i, 20
Next i
Bunyi alarm Avira
Beep 1500, 80
Beep 3000, 80
Yah, selamat mencoba!
By:Morphic
Thanks to:
-Yudha
-Satryacode
-Shafry
-Rully
-Milomen
-Jastis