Befehle über RS232 schicken und dann Relais schalten

[DoKhoi]

Hi,

ich habe folgendes vor. Ich schicke "0" und "1" über RS232 an die C-Control. Wenn ich eine "1"schicke, soll der Alarm ausgelöst werden d.h. es soll das Relais 1 geschaltet werden. Bei "0" soll das Relais 1 wieder ausgeschaltet werden. Hier mein Quellcode.

#Abfrage
define x as Byte[10]
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "Standby"
LIGHT=ON 'Licht aus
Led1=true

IF RXD = true then
    BAUD R9600
    GET x
    
    IF x = 49 then 'ASCII Zeichen für 1        
        LCD.CLEAR
        LCD.POS 1,1
        LCD.PRINT "ALARM!"
        LIGHT=OFF 'Licht an
        Rel1=true
        
        IF x = 48 then 'ASCCI Zeichen für 0	
            LCD.CLEAR
            LCD.POS 1,1
            LCD.PRINT "Alarm deaktiviert!"
            LIGHT=OFF 'Licht an
            Rel1=false
        END IF
    END IF
    GET x
END IF

GOTO Abfrage

Vielen Dank schon mal im vorraus!
Gruß Khoi

[Dierk]

So müsste es funktionieren...

#Abfrage
define x as Byte[10]
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "Standby"
LIGHT=ON 'Licht aus
Led1=true

IF RXD = true then
    BAUD R9600
    GET x
   
    IF x = 49 then 'ASCII Zeichen für 1       
        LCD.CLEAR
        LCD.POS 1,1
        LCD.PRINT "ALARM!"
        LIGHT=OFF 'Licht an
        Rel1=true
    ELSE         '<<<< hier fehlte wohl ein ELSE
       
        IF x = 48 then 'ASCCI Zeichen für 0   
            LCD.CLEAR
            LCD.POS 1,1
            LCD.PRINT "Alarm deaktiviert!"
            LIGHT=OFF 'Licht an
            Rel1=false
        END IF
    END IF
    GET x
END IF

GOTO Abfrage

[DoKhoi]

Funktioniert auch nicht! )=
Es sieht so aus, dass das Programm gar nicht in die Schleife "reinspringt"!
Verbindung ist aber vorhanden, also Kabel hab ich geprüft!

[Dierk]

versuch es doch so mal...

#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

[DoKhoi]

Funktioniert leider auch nicht!
Will nicht in die Schleife springen, aber warum? (=
Bin mit meinem Latein am Ende ...

[Dierk]

Hab da noch ein Fehlerchen gefunden (#Abfrage)

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

[DoKhoi]

OK ich habs, es lag nicht am QuelleCode sondern an HyperTerminal!!!
Mit dem mitgelieferten Terminal Programm von Basic funtkioniert es!!
Trotzdem vielen Dank für deine Hilfe!!!!!!!!!

Gruß Khoi

[Dierk]

Zumindest geht es mit den Änderungen nun etwas besser

[DoKhoi]

OK hier mein fertiger Code! (=
Ich hab jetzt festgestellt, es funktioniert nur, wenn ich über RS232-Übertragungsschnittstelle angeschlossen bin. An der Anschlussstelle für RS232 an der C-Control an der Seite, funktioniert es nicht!
An was könnte das liegen???

#Abfrage

define x as Byte 
BAUD R9600    
LCD.INIT     
LCD.POS 1,1 
LCD.PRINT "Standby" 
LCD.OFF          
LIGHT=ON 'Licht aus 
Led1=true
  
IF RXD then 
    GET x
    SELECT Case x 
    Case 49 'ASCII Zeichen für 1        
        LCD.INIT        
        LCD.POS 1,1 
        LCD.PRINT "ALARM!" 
        LCD.OFF
        LIGHT=OFF 'Licht an 
        Rel1=true 
        PAUSE 300 '5 Sekunden Pause
        
    Case 48 'ASCCI Zeichen für 0    
        LCD.INIT 
        LCD.POS 1,1 
        LCD.PRINT "Alarm deaktiviert!" 
        LCD.OFF          
        LIGHT=OFF 'Licht an 
        Rel1=false
        PAUSE 300 '5 Sekunden Pause 
    END SELECT
END IF 

GOTO Abfrage

[Dierk]

Von welcher C-Control redest Du? C-Control I Station 2?

Und an der Front funktioniert es nur mit einem Kabel an den Klemmen nicht?
RX und TX Leitungen mal herumgedreht?