Monthly Archives: Februari 2013

Sensor Suhu LM35 + LCD dengan ATmega8535

Kali ini saya akan membahas tentang sensor suhu yang ditampilkan seperti gambar dibawah ini

suhu

Berikut Adalah SourceCodenya menggunakan software Basic Compiler (BASCOM)
Kanal yang digunakan dalam ATmega8535 ini menggunakan PORTA0/ADC0

$regfile = "m8535.dat"
$crystal = 16000000
$baud = 9600

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Dataadc As Word , Datasuhu As Single
Const Vreff = 2.55
Start Adc

Cls
Cursor Off
Locate 1 , 1
Lcd "==TEMPERATUR=="
Locate 2 , 14
Lcd Chr(223) ; "C"
Locate 2 , 1
Lcd "SUHU ="

Do
Dataadc = Getadc(0)
Datasuhu = Dataadc / 1024
Datasuhu = Datasuhu * Vreff
Datasuhu = Datasuhu * 100
Locate 2 , 8
Lcd "" ; Fusing(datasuhu , "#.##")
Waitms 100
  Loop
End

Jika ingin belajar lebih lanjut dengan PROTEUSNYA silahkan download disini
Selamat mencoba 🙂