Pada jam saiki saya akan menjelaskan mengenai bagaimana cara mengakses sensor Hall Effect dengan menggunakan microcontroller, kegunaan dari sensor hall effect ini sangat banyak biasanya diaplikasikan di water flow meter yang mana antara sensor dengan baling2 pemutar tidaklah terhubung, jadi biarpun magnet terkena air, rangkaian hall effect tidak akan terkena air karena letaknya yang terpisah namun saling berkomunikasi melalui dinding plastik, itu adalah salah satu contoh aplikasinya, masih banyak lagi jika ingin dikembangkan. Untuk lebih jelasnya berikut skema dan programnya.
a. Minimum System
b. Sensor Hall Effect
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 > 146 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 > 146 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
Loop
'------------------------ end
d. VIDEO HASILNYA
No comments:
Post a Comment