codesys流水灯

Sure, here is an example of a simple traffic light program written in CODESYS:

PROGRAM Main
VAR
    LampRed, LampYellow, LampGreen: BOOL;
    Counter: INT := 0;
END_VAR

METHOD Run
VAR
    Timer: TON;
END_VAR

METHOD Run
VAR
    Timer: TON;
END_VAR

METHOD ToggleLamps
VAR
    LampRed, LampYellow, LampGreen: BOOL;
BEGIN
    IF LampRed THEN
        LampRed := FALSE;
        LampYellow := TRUE;
    ELSE IF LampYellow THEN
        LampYellow := FALSE;
        LampGreen := TRUE;
    ELSE IF LampGreen THEN
        LampGreen := FALSE;
        LampRed := TRUE;
    END_IF
END_METHOD

METHOD Execute
VAR
    Timer: TON;
BEGIN
    Timer(IN:=TRUE, PT:=T#1s);

    IF Timer.Q THEN
        Counter := Counter + 1;

        IF Counter >= 10 THEN
            Counter := 0;
            ToggleLamps();
        END_IF

        Timer(IN:=FALSE);
    END_IF

    IF LampRed THEN
        // Code to turn on red lamp
    ELSE IF LampYellow THEN
        // Code to turn on yellow lamp
    ELSE IF LampGreen THEN
        // Code to turn on green lamp
    END_IF
END_METHOD

END_PROGRAM

This program uses three variables `LampRed`, `LampYellow`, and `LampGreen` to control the state of the traffic lights. The `ToggleLamps` method is called to cycle through the different states of the lights. The `Execute` method is responsible for executing the traffic light program.