Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas. Nyamuk atau serangga bisa diusir dengan bunyi atau suara ultrasonic Suara atau bunyi ultrasonic yaitu suara/bunyi yang mempunyai frekwensi diatas 20000 Hz dapat membuat nyamuk atau serangga merasa tidak nyaman atau terganggu sehingga membuat mereka menyingkir. Salah satu cara sedehana untuk menghasilkan suara ultrasonic adalah melalui speaker komputer untuk speaker dan audio sistem komputer yang support. Hal ini bisa dilakukan dengan teknik pemrograman yang cukup sederhana yaitu dengan memanfaatkan salah satu fungsi Application Programming Interface API untuk membunyikan suara di speaker komputer yaitu fungsi Beep sebagai berikut Public Declare Function Beep Lib "kernel32" ByVal dwFreq As Long, ByVal dwDuration As Long As Long Fungsi Beep tersebut akan membunyikan suara di speaker komputer dengan frekwensi tertentu dwFreq selama waktu mili detik yang diberikan dwDuration. Sehingga jika kita ingin membunyikan suara dengan frekwensi 20000 Hz selama satu detik maka perintahnya adalah Beep 20000, 1000 Lalu kita manfaatkan fungsi ini untuk mengeluarkan suara dengan frekwensi sampai Hz pada speaker komputer secara kontinue dan berulang untuk mengusir nyamuk. Ide ini saya tuangkan dalam bentuk suatu program yang saya namakan 'VBA Mosquito Repeller' yaitu program pengusir nyamuk yang dijalankan melalui aplikasi Ms. Excel. Jika tertarik dan ingin mendownload program ini silahkan kunjungi link dibawah ini Lihat Inovasi Selengkapnya