علم الکترونیک

$regfile = "m32def.dat"
$crystal = 1000000
Config Adc = Single , Prescaler = Auto
Stop Adc
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 2
Cursor Off
Cls
Dim Adc1 As Word , Adc2 As Word , Adc3 As Word , Adc4 As Word
Dim Adc0 As Single
Cls
Lcd "temperature is:"
Do
Start Adc
Waitms 250
Adc1 = Getadc(2)
Waitms 250
Adc2 = Getadc(2)
Waitms 250
Adc3 = Getadc(2)
Waitms 250
Adc4 = Getadc(2)
Stop Adc
Adc0 = Adc1 + Adc2
Adc0 = Adc0 + Adc3
Adc0 = Adc0 + Adc4
Adc0 = Adc0 / 4
Adc0 = Adc0 / 2.046
Adc0 = Adc0 + 0.01
Home Lower
Lcd "" ; Adc0 ; ""
Loop
End