Alat Pengusir Burung dan Tikus di Sawah

Alat Pengusir Burung dan Tikus di Sawah

            Malam hari ini saya akan menjelaskan mengenai bagaimana cara membuat alat yang bisa mengusir burung dan tikus yang kerap sekali menggangu para petani, berawal dari keresahan warga akhirnya saya pun membuat alat ini, prinsip kerja alat ini yaitu terdapat sensor PIR yang akan mendeteksi gerakan dan panas tubuh dari burung, jika terdeteksi maka akan menggerakkan tangan orang2an sawah ini, sehingga akan terlihat hidup yang mana akan mengusir burung, untuk tikus dibuat rangkaian yang berbeda, dengan menggunakan frekuensi tertentu maka tikus akan pergi , untuk lebih jelasnya berikut adalah penjelasan detailnya.

a. Minimum System ATMega

b. Sensor PIR 

c. Sensor Suara

d. Mikro Servo

e. Rangkaian Pengusir Tikus

f. Program Bascom AVR

$regfile = "m16def.dat"

$crystal = 4000000

Config Servos = 1 , Servo1 = Portb.1 , Reload = 10
Config Portb.1 = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim X As Integer
Dim Dataadc1 As Word
Dim Dataadc2 As Word

X = 0

Enable Interrupts

Ddrc.0 = 0

Start Adc

Do

Dataadc1 = Getadc(0)
Dataadc2 = Getadc(1)

If Pinc.0 = 1 Or Dataadc1 > 350 Or Dataadc2 > 350 Then
Do
Servo(1) = 90
Waitms 200
Servo(1) = 200
Waitms 200
Incr X
Loop Until X = 1
End If

X = 0
Loop

g. VIDEO HASILNYA