// ============================================ // 功能块：FB_StarDelta // 功能：电机星三角启动控制 // ============================================ FUNCTION_BLOCK FB_StarDelta // --- 输入参数 --- VAR_INPUT Start : BOOL; // 启动命令 Stop : BOOL; // 停止命令 Overload : BOOL; // 热过载信号 StarTime : TIME := T#5S; // 星形运行时间 TransitionTime : TIME := T#50MS; // 切换延时 END_VAR // --- 输出参数 --- VAR_OUTPUT MainContactor : BOOL; // 主接触器 StarContactor : BOOL; // 星形接触器 DeltaContactor : BOOL; // 三角形接触器 Running : BOOL; // 运行状态 Fault : BOOL; // 故障状态 CurrentState : INT; // 当前状态(0:停止 1:星形 2:切换 3:三角形) END_VAR // --- 静态变量 --- VAR StarTimer : TON; // 星形运行定时器 TransTimer : TON; // 切换延时定时器 State : INT := 0; StartEdge : BOOL; // 启动上升沿 StartMem : BOOL; END_VAR // --- 代码主体 --- // 启动上升沿检测 StartEdge := Start AND NOT StartMem; StartMem := Start; // 故障处理：过载或停止命令复位 IF Overload THEN Fault := TRUE; State := 0; ELSIF Stop THEN Fault := FALSE; State := 0; END_IF; // 状态机 CASE State OF 0: // 停止状态 MainContactor := FALSE; StarContactor := FALSE; DeltaContactor := FALSE; Running := FALSE; IF StartEdge AND NOT Fault THEN State := 1; END_IF; 1: // 星形运行 MainContactor := TRUE; StarContactor := TRUE; DeltaContactor := FALSE; Running := TRUE; StarTimer(IN := TRUE, PT := StarTime); IF StarTimer.Q THEN State := 2; StarTimer(IN := FALSE); END_IF; 2: // 切换延时（断开星形，等待电弧熄灭） MainContactor := TRUE; StarContactor := FALSE; DeltaContactor := FALSE; Running := FALSE; // 切换瞬间电机短时失电 TransTimer(IN := TRUE, PT := TransitionTime); IF TransTimer.Q THEN State := 3; TransTimer(IN := FALSE); END_IF; 3: // 三角形运行 MainContactor := TRUE; StarContactor := FALSE; DeltaContactor := TRUE; Running := TRUE; IF Stop OR Overload THEN State := 0; END_IF; END_CASE; CurrentState := State; // 定时器调用 StarTimer(); TransTimer(); END_FUNCTION_BLOCK

// ============================================ // 函数：FC_ScaleAnalog // 功能：4-20mA模拟量标定 // ============================================ FUNCTION FC_ScaleAnalog : REAL VAR_INPUT RawValue : INT; // 原始值 (0-27648) EngMin : REAL; // 工程量下限 EngMax : REAL; // 工程量上限 RawMin : INT := 0; // 原始值下限(0-20mA用0, 4-20mA用5530) RawMax : INT := 27648; // 原始值上限 END_VAR VAR_TEMP RawReal : REAL; RawMinReal : REAL; RawMaxReal : REAL; SpanRaw : REAL; SpanEng : REAL; END_VAR // 线性标定公式: Eng = ((Raw - RawMin) / (RawMax - RawMin)) * (EngMax - EngMin) + EngMin RawReal := INT_TO_REAL(RawValue); RawMinReal := INT_TO_REAL(RawMin); RawMaxReal := INT_TO_REAL(RawMax); SpanRaw := RawMaxReal - RawMinReal; SpanEng := EngMax - EngMin; IF SpanRaw = 0.0 THEN FC_ScaleAnalog := EngMin; ELSE FC_ScaleAnalog := ((RawReal - RawMinReal) / SpanRaw) * SpanEng + EngMin; END_IF; // 限幅 IF FC_ScaleAnalog > EngMax THEN FC_ScaleAnalog := EngMax; ELSIF FC_ScaleAnalog < EngMin THEN FC_ScaleAnalog := EngMin; END_IF; END_FUNCTION // ========== 使用示例 ========== // 温度传感器：PT100，量程0-100℃ "DB_HVAC".Temp_Actual := FC_ScaleAnalog( RawValue := %IW64, EngMin := 0.0, EngMax := 100.0, RawMin := 5530 // 4mA对应5530 ); // 压力变送器：0-10bar，对应4-20mA "DB_CDA".Pressure_Actual := FC_ScaleAnalog( RawValue := %IW66, EngMin := 0.0, EngMax := 10.0, RawMin := 5530 );

// ============================================ // 功能块：FB_PID_Basic // 功能：基本PID控制器（位置式） // ============================================ FUNCTION_BLOCK FB_PID_Basic VAR_INPUT Setpoint : REAL; // 设定值 SP Actual : REAL; // 实际值 PV ManualValue : REAL; // 手动输出值 ManualMode : BOOL; // 手动模式 Kp : REAL := 1.0; // 比例增益 Ti : TIME := T#20S; // 积分时间 Td : TIME := T#0S; // 微分时间 CycleTime : TIME := T#100MS; // 采样周期 OutMax : REAL := 100.0; OutMin : REAL := 0.0; END_VAR VAR_OUTPUT Output : REAL; // 控制输出 END_VAR VAR Error : REAL; // 当前误差 P_Term : REAL; // 比例项 I_Term : REAL; // 积分项 D_Term : REAL; // 微分项 LastError : REAL; // 上一次误差 CycleTimer : TON; // 采样定时器 Ti_Real : REAL; // 积分时间(秒) Td_Real : REAL; // 微分时间(秒) Cycle_Real : REAL; // 采样周期(秒) END_VAR // 时间转换 Ti_Real := TIME_TO_REAL(Ti) / 1000.0; Td_Real := TIME_TO_REAL(Td) / 1000.0; Cycle_Real := TIME_TO_REAL(CycleTime) / 1000.0; // 采样定时器 CycleTimer(IN := TRUE, PT := CycleTime); IF CycleTimer.Q THEN CycleTimer(IN := FALSE); // 计算误差 Error := Setpoint - Actual; // 比例项 P_Term := Kp * Error; // 积分项（抗积分饱和） IF Ti_Real > 0.0 THEN I_Term := I_Term + Kp * Cycle_Real / Ti_Real * Error; // 积分限幅 IF I_Term > OutMax THEN I_Term := OutMax; ELSIF I_Term < OutMin THEN I_Term := OutMin; END_IF; ELSE I_Term := 0.0; END_IF; // 微分项 IF Td_Real > 0.0 AND Cycle_Real > 0.0 THEN D_Term := Kp * Td_Real * (Error - LastError) / Cycle_Real; ELSE D_Term := 0.0; END_IF; LastError := Error; // 手动/自动切换 IF ManualMode THEN Output := ManualValue; I_Term := ManualValue - P_Term - D_Term; // 无扰切换 ELSE Output := P_Term + I_Term + D_Term; END_IF; // 输出限幅 IF Output > OutMax THEN Output := OutMax; ELSIF Output < OutMin THEN Output := OutMin; END_IF; END_IF; END_FUNCTION_BLOCK

// ============================================ // 功能块：FB_Alarm // 功能：通用报警处理（带延时和确认） // ============================================ FUNCTION_BLOCK FB_Alarm VAR_INPUT Condition : BOOL; // 报警条件 Ack : BOOL; // 确认信号 DelayTime : TIME := T#2S; // 触发延时 AutoReset : BOOL := TRUE; // 条件消失后自动复位 END_VAR VAR_OUTPUT Alarm : BOOL; // 报警输出 Unacked : BOOL; // 未确认状态 FirstOut : BOOL; // 首出报警（需配合全局变量） END_VAR VAR DelayTimer : TON; ConditionMem : BOOL; RisingEdge : BOOL; AckMem : BOOL; END_VAR // 上升沿检测 RisingEdge := Condition AND NOT ConditionMem; ConditionMem := Condition; // 延时触发 DelayTimer(IN := Condition, PT := DelayTime); // 报警触发 IF DelayTimer.Q THEN Alarm := TRUE; IF RisingEdge THEN Unacked := TRUE; END_IF; END_IF; // 确认处理 IF Ack AND NOT AckMem THEN Unacked := FALSE; END_IF; AckMem := Ack; // 自动复位 IF AutoReset AND NOT Condition THEN Alarm := FALSE; Unacked := FALSE; END_IF; DelayTimer(); END_FUNCTION_BLOCK