S7-1200程序 MODBUS-RTU轮训 程序，采用SCL编写 轮训程序，单个模块可以控制32路485设备。 注释清晰，逻辑清楚。
最近在给某水处理项目做PLC程序，现场32台485仪表要接入，直接掏出S7-1200搭了个MODBUS轮询框架。说几个关键实现细节：
核心用SCL搞了个设备轮询调度器，先上数据结构：
TYPE DeviceStatus : STRUCT Active : BOOL; // 设备使能标志 RetryCount : INT; // 当前重试次数 LastCmdTime : TIME; // 上次命令发送时间 ResponseTimer : TON; // 响应超时计时器 END_STRUCT这结构体存着每个设备的通信状态，重点是这个重试机制——当ResponseTimer超时（我设了2秒），RetryCount自增，超过3次就把设备标记为故障。
轮询队列是这么玩的：
// 定义32个设备状态数组 VAR deviceQueue : ARRAY[1..32] OF DeviceStatus; currentIndex : INT := 1; END_VAR // 轮询调度逻辑 IF NOT deviceQueue[currentIndex].Active THEN currentIndex := currentIndex MOD 32 + 1; RETURN; END_IF; // 执行MODBUS请求 IF NOT busBusy THEN SendModbusRequest( station := deviceParams[currentIndex].Address, funcCode := 3, startAddr := 40001, quantity := 2 ); deviceQueue[currentIndex].LastCmdTime := T#1S; // 记录操作时间 deviceQueue[currentIndex].ResponseTimer(IN := TRUE, PT := T#2S); currentIndex := currentIndex MOD 32 + 1; END_IF;这里有个小技巧：currentIndex每次自增前会判断设备是否激活，跳过失活设备。实际调试发现设备断电时，这样处理能避免整个轮询卡死。
数据解析部分要注意字节序，举个寄存器处理的例子：
FUNCTION ParseHoldingRegisters : REAL VAR_INPUT dataBytes : ARRAY[0..3] OF BYTE; END_VAR VAR rawValue : DWORD; END_VAR // 把4字节转成DWORD rawValue := SHL(ORD(dataBytes[0]),24) + SHL(ORD(dataBytes[1]),16) + SHL(ORD(dataBytes[2]),8) + ORD(dataBytes[3]); // 处理IEEE754浮点数 IF rawValue = 16#7FC00000 THEN // 处理NaN情况 RETURN 0.0; ELSE RETURN REAL#rawValue; END_IF;这函数专门处理MODBUS返回的4字节浮点数。特别要注意某些仪表会返回非法浮点值，这里加了个NaN判断，避免PLC报故障。
硬件配置有个坑得提醒：记得在CPU属性里把RS485接口的协议改成MODBUS，并且设置合适的响应超时。之前有个项目没设置这个，轮询直接卡在第一个设备。
实际跑起来后，用Trace功能监控轮询周期，发现单次完整轮询大约8秒（32设备*250ms）。如果要提速的话，可以考虑分组并行，但普通场景这个速度够用了。
最后说下异常处理的心得：
// 在设备状态检查部分 IF deviceQueue[Index].ResponseTimer.Q THEN deviceQueue[Index].RetryCount +=1; IF deviceQueue[Index].RetryCount >3 THEN SetDeviceFault(Index); LogError(ID := Index, Code := 16#0003); END_IF; END_IF;这里用了三层重试机制，超过阈值就把设备标记为故障，同时记录错误日志。现场维护时，直接查日志就能定位是哪个位置的仪表掉线。
整个框架大概1200行代码，核心思想就是把轮询当作状态机来管理。实测连续运行一个月没出现过通信卡死，算是经住了现场考验。
