Примеры программ на языке STНиже приведен текст возможного варианта программы управления установкой для смешивания жидкостей, алгоритм работы которой, подключение датчиков и выходных устройств, объявление переменных приведены в п. 2.3.
(*Declaration EFB*) VAR RS_Tr1, RS_Tr2: RS; Timer: TON; END_VAR
(*Invocation EFB*) RS_Tr1 (S:=Start, R1:=RS_Tr2.Q1); RS_Tr2 (S:=TUpp, R1:=NOT DU1); Timer (IN:=RS_Tr2.Q1 AND Stop, PT:=t#10s);
(*Transformation of a code temperature*) TUpp:= (UINT_TO_REAL(DTemp) - 6400.0)/256.0 > 70.0;
(*Control*) IF RS_Tr1.Q1=1 THEN K1:=NOT DU2 AND Stop; K2:=DU2 AND NOT DU3 AND Stop; Nagr:=DU3 AND NOT TUpp AND Stop; KM:=DU2 AND Stop; ELSE KM:=0; END_IF; K3:= RS_Tr2.Q1 AND Stop AND Timer.Q; Ниже приведен текст другого возможного варианта программы управления установкой для смешивания жидкостей. В программе дополнительно введена переменная SA типа UDINT, которая используется (вместо триггеров) для реализации трех состояний (State) конечного автомата (вместо триггеров).
(*Declaration EFB*) VAR Timer: TON; END_VAR
(*Invocation EFB*) Timer (IN:=SA=2 AND DU1, PT:=t#10s);
(*Transformation of a code temperature*) TUpp:= (UINT_TO_REAL(DTemp) - 6400.0)/256.0 > 70.0;
(*Control*) (*State 0*) IF SA=0 AND Start THEN SA:=1; END_IF;
(*State 1*) IF SA=1 THEN K1:=NOT DU2 AND Stop; K2:=DU2 AND NOT DU3 AND Stop; Nagr:=DU3 AND NOT TUpp AND Stop; KM:=DU2 AND Stop; IF TUpp THEN SA:=2; END_IF; END_IF;
(*State 2*) IF SA=2 THEN KM:=DU3 AND Stop; K3:=Stop AND DU1 AND Timer.Q; IF NOT DU1 THEN SA:=0; END_IF; END_IF;
|
