8 channel temperature display (sensor suhu LM 35) dengan bsacom dan at mega Blog Adi Sanjaya Global Techno Solution - AS-GTS

8 channel temperature display (sensor suhu LM 35) dengan bsacom dan at mega

 skematik rangkaian 8 channel temperature display (sensor suhu LM 35) dengan bsacom dan at mega

source code 8 channel temperature display (sensor suhu LM 35) dengan bsacom dan at mega

$regfile = "8535.dat"
$crystal = 16000000

Dim Data_adc As Word , T1 As Word , T2 As Word , T3 As Word , T4 As
Word
Dim T5 As Word , T6 As Word , T7 As Word , T8 As Word
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4
Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 20 * 4
Cursor Off
Cls
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Lcd "T1="
Start Adc
Do
Data_adc = Getadc(0)
T1 = Data_adc * 5
T1 = T1 / 10
Data_adc = Getadc(1)
T2 = Data_adc * 5
T2 = T2 / 10
Data_adc = Getadc(2)
T3 = Data_adc * 5
T3 = T3 / 10
Data_adc = Getadc(3)
T4 = Data_adc * 5
T4 = T4 / 10
Data_adc = Getadc(4)
T5 = Data_adc * 5
T5 = T5 / 10
Data_adc = Getadc(5)
T6 = Data_adc * 5
T6 = T6 / 10
Data_adc = Getadc(6)
T7 = Data_adc * 5
T7 = T7 / 10
Data_adc = Getadc(7)
T8 = Data_adc * 5
T8 = T8 / 10
Cls
Lcd "T1=" ; T1 ; Chr(&Hdf) ; "C " ; "T2=" ; T2 ; Chr(&Hdf) ; "C "
Locate 2 , 1
Lcd "T3=" ; T3 ; Chr(&Hdf) ; "C " ; "T4=" ; T4 ; Chr(&Hdf) ; "C "
Locate 3 , 1
Lcd "T5=" ; T5 ; Chr(&Hdf) ; "C " ; "T6=" ; T6 ; Chr(&Hdf) ; "C "
Locate 4 , 1
Lcd "T7=" ; T7 ; Chr(&Hdf) ; "C " ; "T8=" ; T8 ; Chr(&Hdf) ; "C "
Wait 1
Loop
End