双泵程序(定时轮换）功能块 博图程序 一主一备 SCL功能块，博图16编写，可使用于其他支持ST语言设备，双泵功能块，scl语言，带复位，主副泵选择，泵压简单控制，泵屏蔽设置，定时轮询切换，延时判断起泵，程序精炼，调用方便，适合工控中水处理压力，液位，流量等简单控制，启停方便。 实际工程中已使用稳定运行 面板需自己画，功能块端口给的很详细了，适配绝大部分ST语言编辑器，不需要的接口可以空着。
最近在某个水处理项目里折腾双泵控制逻辑，现场两台离心泵需要定时轮换主备。这玩意看起来简单，真要自己从头写逻辑绝对能掉一堆坑——切换时机怎么卡准？故障屏蔽怎么处理？手动复位会不会打架？好在最后用SCL搓了个通用功能块，实测跑了大半年没出幺蛾子，今天把核心逻辑拆开聊聊。
双泵程序(定时轮换）功能块 博图程序 一主一备 SCL功能块，博图16编写，可使用于其他支持ST语言设备，双泵功能块，scl语言，带复位，主副泵选择，泵压简单控制，泵屏蔽设置，定时轮询切换，延时判断起泵，程序精炼，调用方便，适合工控中水处理压力，液位，流量等简单控制，启停方便。 实际工程中已使用稳定运行 面板需自己画，功能块端口给的很详细了，适配绝大部分ST语言编辑器，不需要的接口可以空着。
先看功能块外壳长啥样：
FUNCTION_BLOCK DualPumpControl VAR_INPUT Enable: BOOL; //总使能 Reset: BOOL; //复位信号 PumpA_Ready: BOOL; //泵A就绪 PumpB_Ready: BOOL; //泵B就绪 SwitchTime: TIME := T#8H; //切换周期 END_VAR VAR_OUTPUT RunCmd: BOOL; //总运行指令 PumpA_Run: BOOL; //泵A启动 PumpB_Run: BOOL; //泵B启动 ActivePump: INT; //当前主泵编号 END_VAR最骚的是切换逻辑部分，用了个时间片轮询：
//定时切换核心 IF Enable THEN CASE ActivePump OF 1: IF PumpA_Ready THEN PumpA_Run := RunCmd; PumpB_Run := FALSE; IF T#8H >= SwitchTime THEN //时间到切换 ActivePump := 2; TON_Switch(IN:=TRUE, PT:=T#0S); END_IF; END_IF; 2: //...类似逻辑 END_CASE; END_IF;实际调试发现个坑——直接切换可能导致两台泵同时断电。解决方法是在切换时插入500ms延时：
//带延时的切换 TON_Switch(IN:=ActivePump <> LastPump, PT:=T#500MS); IF NOT TON_Switch.Q THEN RunCmd := FALSE; //切换间隙停泵 END_IF;现场应用时，把功能块实例化后挂在OB30里跑：
//主程序调用 PumpControl( Enable := AutoMode, Reset := ResetBtn, PumpA_Ready := NOT PumpA_Fault, PumpB_Ready := NOT PumpB_Fault, SwitchTime := T#12H //12小时切换 );这模块最实用的其实是故障处理策略。当某个泵被屏蔽时，自动切换逻辑会直接锁定在用泵，直到复位信号触发才会重新激活轮换。实际测试中，配合压力PID控制效果拔群，特别是处理液位波动时，双泵无缝切换能让系统压力曲线平滑得像德芙巧克力。
最后给个忠告：别在功能块里写死设备地址！用结构体打包IO信号才是王道。毕竟工控现场最不缺的就是甲方突然想加第三个泵...（别问我怎么知道的）
