Kali ini saya akan menjelaskan mengenai bagaimana cara membuat alat dengan sensor yang dipakai adalah metal detektor, alat ini bisa mendeteksi metal, untuk aplikasi dari sensor metal ini yaitu biasa dipakai di Bandara atau di Stasiun yang menggunakan pengamanan metal, namun bisa juga diaplikasikan ke finding machine untuk mendeteksi uang logam atau bisa juga untuk celengan digital yang akan menghitung koin logam yang masuk. Untuk lebih jelasnya berikut program dan skema rangkaianya.
a. Minimum System
b. Metal Detector Sensor
c Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Ddrb.0 = 1
Cls
Cursor Off
Start Adc
Do
Dataadc = Getadc(7)
Upperline
Lcd "ADC = " ; Dataadc
Waitms 200
Cls
If Dataadc < 100 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
Loop
'------------------------ end
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Ddrb.0 = 1
Cls
Cursor Off
Start Adc
Do
Dataadc = Getadc(7)
Upperline
Lcd "ADC = " ; Dataadc
Waitms 200
Cls
If Dataadc < 100 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
Loop
'------------------------ end
d. VIDEO HASILNYA
No comments:
Post a Comment