Salam semua,
Sudah lama g posting. Kali ini saya akan posting Application Note yaitu, Sensor Suhu LM35DZ. Aplikasi ini menggunakan LM35DZ dari National Semiconductor. Untuk Minimum Systemnya saya gunakan DT-AVR Low Cost Micro System dari Innovative Electronics. Sedangkan untuk tampilan digunakan Character LCD 16x2. Aplikasi ini memanfaatkan fitur internal ADC yang dimiliki oleh ATMega8535. Untuk mengakomodasi fitur ADC Internal maka jumper J6, J7, dan J8 pada DT-AVR Low Cost Micro System diset pada posisi 1-2.
Untuk sensor suhu LM35DZ, diberikan tegangan supply 5V DC sedangkan Vout nya dihubungkan pada Port A.0 sebagai pin analog input. LCD Character dihubungkan ke Port C. Pin R/W pada LCD dihubungkan ke Ground. Program editor dan compiler dalam aplikasi ini menggunakan BASCOM AVR dari MCS Electronics yang menggunakan Bahasa Basic. Berikut Listing programnya.
-------------------------------------------------------------------------------------------------------------
'===================================
'AN-02 Temperature Sensor w/ LM35DZ
'From B10 ELECTRONICS
'By Andri Sasmito
'13 Oktober 2012
'===================================
$regfile = "m8535.dat"
$crystal = 11059200
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , Rs = Portc.0 , E = Portc.2
'AN-02 Temperature Sensor w/ LM35DZ
'From B10 ELECTRONICS
'By Andri Sasmito
'13 Oktober 2012
'===================================
$regfile = "m8535.dat"
$crystal = 11059200
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , Rs = Portc.0 , E = Portc.2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Data_suhu As Word
Dim Angka As Single
Dim Suhu As String * 5
Deflcdchar 0 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32
Start Adc
Cursor Off
Cls
Upperline
Lcd " AN-02 "
Lowerline
Lcd "B10 ELECTRONICS "
Wait 2
Cls
Upperline
Lcd " Temperature "
Lowerline
Lcd " Sensor LM35DZ "
Wait 2
Do
Cls
Data_suhu = Getadc(0)
Angka = Data_suhu / 1023
Angka = Angka * 5
Angka = Angka * 100
Suhu = Fusing(angka , "#.#")
Upperline
Lcd " Temperature : "
Locate 2 , 6
Lcd Suhu
Locate 2 , 11
Lcd Chr(0)
Locate 2 , 12
Lcd "C"
Waitms 500
Loop
End
--------------------------------------------------------------------------------------------------------------
Aplikasi ini dapat dikembangkan untuk aplikasi lain yang lebih kompleks, misalnya Aplikasi data logger suhu untuk monitoring suhu, sensor suhu untuk on/off kipas angin atau AC, dll.
Demikian sedikit sharing tentang Aplikasi sensor suhu LM35 dari saya. Semoga bermanfaat bagi kita semua.
Amiin..
Tidak ada komentar:
Posting Komentar