'Relative Humidity, Temp, Volt, Receive
symbol LCD_PIN = C.2
init:
serout LCD_PIN,T2400_8, ("?f")
PAUSE 1000
High LCD_PIN
setfreq m8
Pause 2000
serout LCD_PIN, T2400_8, ("?S2")
pause 1000
serout LCD_PIN, T2400_8, ("?f")
pause 4000
serout LCD_PIN,T2400_8, ("?C0 Digital ?n")
pause 2000
serout LCD_PIN,T2400_8,("?C1 Thermometer ?n")
pause 2000
serout LCD_PIN, T2400_8, ("?f")
main:
serin C.1, T2400_8, ("data"), b0,b1,b3,b4,b5,b6,b7,b8,b9
pulsin C.1,1,w7
pulsout B.1,100
if w7=0 then gosub NoSignal
'pulsout B.1,2000
'serout C.2,N2400,(254,1) 'Use this line if you want to refresh screen constatnly
'serout C.2,T9600_16, ("?f")
pause 4000
'serout C.2,N2400,(#b0,",",#b1,",",#b2,",",#b3)
serout C.2,T2400_8, ("?x00?y0") 'Line one
pause 400
serout C.2,T2400_8,("Humidity ",#b3,"%")
pause 400
w2=b1*9/5+32
'serout C.2,n2400, (254,192,",",#b4,",",#b5,",",#b6,",",#b7)
serout C.2,T2400_8,("?x00?y1") 'Line 2
pause 400
serout C.2,T2400_8,("Temp ",#b1,$DF,"C"," ", #w2,$DF,"F")
pause 400
serout C.2,T2400_8,("?x00?y2") 'Line 3
pause 400
serout C.2,T2400_8,(#b8) 'Integer
pause 400
serout C.2,T2400_8,(".")
pause 400
serout C.2,T2400_8,(#b9) 'Decimal
pause 400
serout C.2,T2400_8,("volts")
pause 400
'display on LCD
pause 400
serout C.2,T2400_8, ("?c0")
debug
pause 400
'serout C.2,T2400_8, ("?c0")
'pause 4000 ; Show the data received
goto main ; read the next data
NoSignal:
serout C.2,T2400_8, ("?f")
pause 1000
serout C.2,T2400_8, ("?x00?y0")
pause 1000
serout C.2,T2400_8, ("No Signal")
pause 1000
serout C.2,T2400_8, ("?f")
goto main