Функциональные блоки на языке ST

[petera]

У меня вроде попроще вышло, Таймер TON с паузой, 1 Таймер с паузой.jpg PT можно перевести в секунды или ms

Скрытый текст:

function_block TOnP // Таймер TON   с паузой
    var_input 
       In,P : bool;      
       PT : udint; // Задача времени таймера  udint
    end_var
    var_output 
       Q : bool; //
       ET: udint;  // Выход  времени таймера  udint
    end_var
    var 
       x : bool; 
       T3,T0,Tp :udint;
    end_var  
          
      PT:=(PT*1000);   // PT можно перевести в секунды или  ms  
      T3:=time_to_udint(get_time());      
      if In  and not x then T0:=T3; Q:=false; x:=true; end_if
      if In and P and  ET<=PT then Tp:=T3-T0-ET; end_if 
      if In and not P and  ET<=PT then ET:=T3-T0-Tp; end_if      
      if In  and  ET>=PT then ET:=PT; Q:=true;  end_if 
      if not In  then ET:=0;T0:=0;Tp:=0; x:=false; Q:=false; end_if       
end_function_block

Ну так я тоже могу "упростить"

tx:= time_to_udint(GET_TIME());
IF P THEN StartTime:= tx - ET; END_IF
IF IN AND NOT clk THEN StartTime:= tx; clk:= TRUE;
ELSIF NOT IN THEN clk:= FALSE; Q:= FALSE; ET:= 0; END_IF
IF clk AND NOT Q THEN IF PT > (tx - StartTime) THEN ET:= tx - StartTime; ELSE  ET:= PT; END_IF Q:= ET = PT AND IN; END_IF

По числу строк кода мой ещё проще...