流水灯程序主要依赖于循环定时控制，每次点亮一个灯，延迟后熄灭，再点亮下一个灯。具体步骤如下：
初始化变量：
定义灯状态、计数器和时间变量。
顺序控制：
按序切换灯的输出状态。
延时功能：
用PLC自带的定时器实现延迟。
```pascal
// 初始化定时器A
M0.0 := FALSE； // 检查启动信号
TON Delay_Timer := T500MS； // 启动延时
IN := M0.0； // 输入启动位
PT := T500MS； // 延迟500毫秒
// 控制灯的输出
A Delay_Timer.Q := FALSE； // 定时器完成后切换灯
Lamp_Index := Lamp_Index + 1；
if Lamp_Index > 7 then
Lamp_Index := 0； // 超过灯数量后复位
A Lamps[Lamp_Index] := TRUE； // 点亮当前灯
A Lamps[Lamp_Index - 1] := FALSE； // 熄灭前一个灯
```
这个程序通过PLC的字节移位指令SHL和SHR来实现流水灯效果。具体步骤如下：
数据准备：
用一个字节变量，比如DB1.Byte0，每个比特位对应一个灯。起点是0000 0001，然后不断左移，灯就会依次亮起来。
循环控制：
左移到最后一个灯时，让状态回到起点，再从第一个灯开始。
时间控制：
为了让灯一个个亮得平稳，用定时器控制移位速度，比如每隔500ms移一次。
```pascal
// 定义数据块
VAR
Light_Byte: BYTE； // 当前灯的状态字节
StartBool: BOOL； // 启动按钮
Timer_DoneBool: BOOL； // 定时器完成信号
ResetBool: BOOL； // 重置按钮
// 初始化数据块
Light_Byte := 0x01； // 初始状态为第一个灯亮
StartBool := FALSE； // 启动按钮未按下
Timer_DoneBool := FALSE； // 定时器未完成
ResetBool := FALSE； // 重置按钮未按下
// 主程序逻辑
IF StartBool THEN
WHILE NOT Timer_DoneBool DO
Light_Byte := SHL（Light_Byte, 1）； // 左移一位，点亮下一个灯
IF Light_Byte = 0xFF THEN // 如果所有灯都亮，则复位
Light_Byte := 0x01；
Timer_DoneBool := TRUE； // 设定定时器完成信号
END_IF；
// 延时500ms
T500MS；
END_WHILE；
END_IF；
```
这个程序通过PLC的字节移位指令SHL和SHR来实现流水灯效果，逻辑清晰，适合新手使用。