Output.ResourceProject.st - Peter - George_Smith/RuSTy

Output.ResourceProject.st
61 строка4 KB
Peter Korobeynikov
FB-CALL TESTING
25 янв 2026, 17:25
25 янв 2026, 17:25feb4daa
PROGRAM Output
VAR
	DOutModul: ARRAY[1..50] OF BOOL;
	TOF_DOut: ARRAY[1..50] OF TOF;
	R_TRIG_DOut: ARRAY[1..50] OF R_TRIG;
END_VAR
TOF_DOut[1](IN := DOut[1],PT := T#3S);
DOutModul[1] := TOF_DOut[1].Q;			(* Контроль сигнализатора прохождения СОД камеры приема СОД МН «XXXX» *)

TOF_DOut[2](IN := DOut[2],PT := T#3S);
DOutModul[2] := TOF_DOut[2].Q;			(* Контроль сигнализатора прохождения СОД после задвижки № 437-1 *)

TOF_DOut[3](IN := DOut[3],PT := T#3S);
DOutModul[3] := TOF_DOut[3].Q;			(* Контроль сигнализатора прохождения СОД на выходе узла пуска СОД *)

TOF_DOut[4](IN := DOut[4],PT := T#3S);
DOutModul[4] := TOF_DOut[4].Q;			(* Контроль сигнализатора прохождения СОД камеры пуска СОД *)

TOF_DOut[5](IN := DOut[5],PT := T#3S);
DOutModul[5] := TOF_DOut[5].Q;			(* Перезапустить контроллер СОУ *)

R_TRIG_DOut[6](CLK := OIPState[15].9);	(* Если появился максимальный уровень в емкости ЕП № 024.2 узла приема СОД МН «XXXX» *)
IF R_TRIG_DOut[6].Q THEN
	DOutModul[6] := TRUE;				(* Включение сирены *)
END_IF
IF NOT OIPState[15].9 OR DIn[111] THEN	(* Если нет максимального уровеня в емкости ЕП № 024.2 узла приема СОД МН «XXXX» или пришел сигнал "Отключение звуковой сигнализации у емкости ЕП № 024.2" *)
	DOutModul[6] := FALSE;				(* Отключение сирены *)	
END_IF

DOutModul[7] := OIPState[15].9;			(* Включение/отключение табло "Максимальный уровень" *)

DOutModul[8] := NOT OIPState[15].1;		(* Включение/отключение табло "Разрешен пуск насоса" *)

TOF_DOut[9](IN := DOut[9],PT := T#3S);
DOutModul[9] := TOF_DOut[9].Q;			(* Линейный АПС включить *)

TOF_DOut[10](IN := DOut[10],PT := T#3S);
DOutModul[10] := TOF_DOut[10].Q;		(* Линейный АПС отключить *)

TOF_DOut[11](IN := DOut[11],PT := LREAL_TO_TIME(OtherUst[7]*1000));
DOutModul[11] := TOF_DOut[11].Q;		(* Линейный АПС подготовить к ТУ *)

R_TRIG_DOut[12](CLK := OIPState[16].9);	(* Если появился максимальный уровень в емкости ЕП узла пуска СОД *)
IF R_TRIG_DOut[12].Q THEN
	DOutModul[12] := TRUE;				(* Включение сирены емкости ЕП камеры пуска СОД *)
END_IF
IF NOT OIPState[16].9 OR DIn[124] THEN	(* Если нет максимального уровеня в емкости ЕП узла пуска СОД или пришел сигнал "Отключение звуковой сигнализации у емкости ЕП узла пуска СОД" *)
	DOutModul[12] := FALSE;				(* Отключение сирены емкости ЕП камеры пуска СОД *)	
END_IF

DOutModul[13] := OIPState[16].9;		(* Включение/отключение табло "Максимальный уровень" емкости ЕП камеры пуска СОД *)

DOutModul[14] := DOut[14] OR OIPState[15].1;	(* Отключить (насос емкости ЕП камеры приема, № 024.02) *)
DOutModul[15] := OIPState[16].1;		(* Отключить (насос емкости ЕП камеры пуска) *)
DOutModul[16] := DOut[16];				(* Отключить (на перспективу) *)
DOutModul[17] := DOut[17];				(* Включить (на перспективу) *)




END_PROGRAM