西门子PLC300彩灯循环

以下是西门子PLC300彩灯循环的程序示例：

VAR
    Q : ARRAY[0..7] OF BOOL; // 定义8个输出信号
    i : INT := 0; // 定义计数器
    start : BOOL := FALSE; // 定义启动信号
    stop : BOOL := FALSE; // 定义停止信号
    delay_time : TIME := T#1S; // 定义延时时间
END_VAR

// 点亮下一盏灯
IF start AND NOT stop THEN
    Q[i] := TRUE; // 点亮当前灯
    i := i + 1; // 计数器加1
    IF i > 7 THEN // 如果计数器超过7，说明已经点亮了最后一盏灯
        i := 0; // 重置计数器
        // 延时5秒
        IF TON(delay_time, Q[7]) THEN // TON函数用于延时，第二个参数为触发条件
            FOR j := 0 TO 7 DO // 反向熄灭所有灯
                Q[j] := FALSE;
            END_FOR;
            // 延时5秒
            IF TON(delay_time, NOT Q[7]) THEN // NOT运算符用于取反
                // 重新开始循环
                i := 0;
            END_IF;
        END_IF;
    END_IF;
    Q[i] := TRUE; // 点亮下一盏灯
    // 熄灭上一盏灯
    IF i > 0 THEN
        Q[i-1] := FALSE;
    ELSE
        Q[7] := FALSE;
    END_IF;
END_IF;

// 停止所有灯
IF stop THEN
    FOR j := 0 TO 7 DO
        Q[j] := FALSE;
    END_FOR;
END_IF;