مدار کنترل دمای محیط

[e.einitabar]

regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , Rs = Pinb.4 , E = Pinb.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim D As Word
Deflcdchar 0 , 24 , 24 , 32 , 32 , 32 , 32 , 32 , 32
Do
Cls
Start Adc
D = Getadc(1)
D = D / 2
Home
Lcd D ; Chr(0) ; "c"
Loop
End