Đuổi muỗi, gián, côn trùng....bằng beep!beep!..

[avr]

Có thể dùng một chương trình VB phát tiếng beep kết hợp một timer bằng máy tính đơn giản sau đó phát ra loa, trộn lẫn khi nghe nhạc, tôi định thử dùng nó để đuỗi muỗi, gián, chuột...nếu biết tần số thích hợp, nhưng liệu tiếng beep của loa có phù hợp vì tôi thấy nó rất to ( kiểu như khi bạn rút/cắm usb ra vậy), hơn nữa là dùng loa nghe nhạc bình thường, không phải siêu âm. Chủ yếu để giải trí nên không quan trọng lắm kết quả, nếu ai thích thì ý kiến nhé!

ms:
Ai len xu Hoa Dao _ Hoang Oanh Trung Chinh (Copy From Thúy Nga) - YouTube

[avr]

Ai thích thì thử dùng file kèm theo (click file project1), nó kêu nghe cũng vui. Chỉnh tiếng beep và con số cho timer để thay đổi tần số, nhưng chỉ để thử nghiệm thôi.

Private Sub Form_Load()
Timer1.Interval = 1 ' 1ms>f=1000hz=1kh
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Timer1.Interval = 0 Then Timer1.Interval = 1
Beep
Beep
Beep
Beep ' so beep thay doi se thay doi tan so
End Sub

[medilas]

hay đấy nhỉ, để thử xem thế nào

[danvac]

hỏng loa chứ đc cái gì