自动加减载中的水泵最大运行时间停泵和最小运行时间启泵程序块

自动加减载中的水泵最大运行时间停泵和最小运行时间启泵程序块
三台水泵最大运行时间停泵

n := 0;

m := 0;

Pump_number:=0;

FOR #j := 0 TO 3 DO
IF #Condition[#j] = 0 OR #Working[#j] = 0 THEN
#Time[#j] := #Time_gameover;
END_IF;
END_FOR;

MaxTime := MAX(IN1 := #Time[0], IN2 := #Time[1], IN3 := #Time[2], IN4 := #Time[3]);

FOR #i := 0 TO 3 DO
IF #MaxTime <> #Time[#i] THEN
#n := #n + 1;
ELSE
#m := #n + 1;
EXIT;
END_IF;
END_FOR;

Pump_number := #m;

三台水泵最小运行时间启泵

n := 0;

m := 0;

Pump_number:=0;

FOR #j := 0 TO 3 DO
IF #Condition[#j] = 0 OR #Working[#j] = 1 THEN
#Time[#j] := #Time_gameover;
END_IF;
END_FOR;

MinTime := MIN(IN1 := #Time[0], IN2 := #Time[1], IN3 := #Time[2], IN4 := #Time[3]);

FOR #i := 0 TO 3 DO
IF #MinTime <> #Time[#i] THEN
#n := #n + 1;
ELSE
#m := #n + 1;
EXIT;
END_IF;
END_FOR;

Pump_number := #m;