Hab da noch ein Fehlerchen gefunden (#Abfrage)
Code:
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
#Abfrage '<<<<<< Hier wollen wir hinspringen :)
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 Das hat hier auch nix zu suchen
END IF
GOTO Abfrage
Lesezeichen