PLC轮询程序通常用于循环读取输入信号、处理逻辑运算和控制输出信号。以下是一个基于西门子PLC的轮询程序示例，使用定时器（TON）和计数器（CTU）实现灯光控制：
```pascal
PROGRAM LightControl
VAR
// 定义定时器和计数器
Timer: TON；
Counter: CTU；
// 定义灯的状态
Light1, Light2, Light3: BOOL；
END_VAR
// 初始化程序
initialization
Timer（IN:= FALSE）；
Counter（PV:= 0）；
Light1（VAL:= FALSE）；
Light2（VAL:= FALSE）；
Light3（VAL:= FALSE）；
END_INIT
// 定时器触发任务
Timer_Task:
IF Counter.PV = 2 THEN
// 计数器达到2，关闭所有灯
Light1（VAL:= FALSE）；
Light2（VAL:= FALSE）；
Light3（VAL:= FALSE）；
Counter（PV:= 0）； // 重置计数器
ELSE
// 根据计数器值点亮对应的灯
IF Counter.PV = 0 THEN
Light1（VAL:= TRUE）；
ELSIF Counter.PV = 1 THEN
Light2（VAL:= TRUE）；
ELSIF Counter.PV = 2 THEN
Light3（VAL:= TRUE）；
END_IF；
Counter（PV:= Counter.PV + 1）； // 计数器加1
END_IF；
END_TASK
// 定时器启动
Timer（IN:= TRUE）；
END_PROGRAM
```
解释
定义变量
`Timer` 和 `Counter` 用于实现定时和计数功能。
`Light1`, `Light2`, `Light3` 用于控制三颗灯的状态。
初始化
在程序开始时，所有灯关闭，计数器重置为0。
定时器任务
当计数器达到2时，关闭所有灯并重置计数器。
否则，根据计数器的值点亮对应的灯，并递增计数器。
启动定时器
在程序开始时启动定时器。
这个示例展示了如何使用PLC的定时器和计数器实现简单的轮询程序。实际应用中，轮询程序可能会更复杂，需要根据具体需求进行调整。例如，可以添加更多的灯、传感器或设备，并根据需要调整轮询顺序和数据读取方式。