Hello
I need help
I need to send temperature data to the PC
And receive PC data to drive 2 relays
More when I send the data the program crashes
I'm using timerout
When I send data to relay to it hangs
Thank you
Code:
LOOP_PRINCIPAL:
Serin2 RX_IN,84,1000,TIMEOUT,[WAIT("CMD"),RX]
SELECT CASE RX
CASE "A"
HIGH RELE1
CASE "B"
LOW RELE1
CASE "C"
HIGH rele2
CASE "D"
LOW rele2
END SELECT
PAUSE 300
GOTO LOOP_PRINCIPAL
TIMEOUT:
'DS18B20
'OWOUT DQ,1,[$CC, $44] 'Start temperature conversion
'pause 1000
'OWOUT DQ,1,[$CC, $BE] 'Read the temperature
'OWIN DQ,0,[temperature.LOWBYTE,temperature.HIGHBYTE]
'temperature = temperature*/1600
'Serout2 XT_OUT,84,[DEC2 (temperature/100),".",DEC2 temperature,13,10]
'GOTO LOOP_PRINCIPAL
'----------------------------------
Bookmarks