Translate

Cara mengakses Sensor Metal (Metal Detection)

Cara mengakses Sensor Metal (Metal Detection)


         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





d. VIDEO HASILNYA








No comments:

Post a Comment