versuch es doch so mal...
Code:
#Abfrage
define x as Byte[10]
BAUD R9600 '<<<<hier und nicht mitten drin
LCD.INIT '<< statt .clear
LCD.POS 1,1
LCD.PRINT "Standby"
LCD.OFF '<< das fehlt.
LIGHT=ON 'Licht aus
Led1=true
IF RXD = true then
GET x
IF x = 49 then 'ASCII Zeichen für 1
LCD.INIT '<< statt .clear
LCD.POS 1,1
LCD.PRINT "ALARM!"
LCD.OFF '<< das fehlt.
LIGHT=OFF 'Licht an
Rel1=true
ELSE '<<<< hier fehlte wohl ein ELSE
IF x = 48 then 'ASCCI Zeichen für 0
LCD.INIT '<< statt .clear
LCD.POS 1,1
LCD.PRINT "Alarm deaktiviert!"
LCD.OFF '<< das fehlt.
LIGHT=OFF 'Licht an
Rel1=false
END IF
END IF
GET x
END IF
GOTO Abfrage
Lesezeichen