разные вопросы новичка

[Traveller]

И все же городить пришлось, там нет ФБ TP (Импульс включения заданной длительности), там по ссылкам нет такого на ST, а я пока на ST не силен, поэтому он у меня получился аляповатым, т.е. по факту считает в 2 раза медленнее, хотя я почти уверен, если считать не миллисекундах а в секундах, то будет норм, в общем вот:
2025-08-29_144838.png
Ну и собсно сама программа, если кому такое барахло нужно:
https://owen.ru/forum/attachment.php...1&d=1756469102

Если кто напишет на ST, что нить похожее будет полезно...

[Dimensy]

Если кто напишет на ST, что нить похожее будет полезно...

Не претендую на оптимальность

function_block fbTP
    
    var_input
        IN : bool;
        PT : udint;
        RST : bool;
    end_var
    
    var_output 
        Q : bool;
        ET : udint;
    end_var
    
    var 
        st, tm : udint;
        fl : bool;
    end_var
    
    tm := time_to_udint(get_time());
    if RST then
         Q := false;
    elsif IN and not fl then
        Q := true;
        st := tm;
    end_if
    if Q then 
        ET := tm - st;
        if ET >= PT then Q := false; end_if
    else 
        ET := PT;
    end_if;
    
    fl := Q or IN;
    
end_function_block

[kondor3000]

И все же городить пришлось, там нет ФБ TP (Импульс включения заданной длительности), там по ссылкам нет такого на ST, а я пока на ST не силен, поэтому он у меня получился аляповатым, т.е. по факту считает в 2 раза медленнее, хотя я почти уверен, если считать не миллисекундах а в секундах, то будет норм, в общем вот
Ну и собсно сама программа, если кому такое барахло нужно:
Если кто напишет на ST, что нить похожее будет полезно...

Ниже код TP с паузой, умножение на 1000 на входе РТ -задача в секундах (можно убрать),
разделить на 1000 на выходе ЕТ, не будет миллисекунд (можно добавить).

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

function_block TP_P //имя функционального блока
    var_input //объявление входных переменных
       In : bool; // вход таймера
       Pauz : bool; // пауза таймера
       PT : udint; //входная переменная для задачи времени
    end_var
    var_output //объявление выходных переменных
       Q : bool; // выход таймера
       ET: udint;   // время таймера
    end_var
    var
       x: BOOL;
      tx,t0: UDINT;
    end_var

   PT:=PT*1000; //  задача в секундах
   tx:= time_to_udint(GET_TIME());
   IF Pauz THEN T0:= tx - ET; END_IF
   IF IN AND NOT x THEN t0:= tx; x:= TRUE; Q:= true; 
    elsif NOT IN AND  x and ET=PT THEN ET:= PT; x:=false; Q:=false;  END_IF
   IF x AND  Q THEN IF PT > (tx - T0) THEN ET:= tx - t0; 
      ELSE  ET:= PT;  END_IF Q:= ET < PT AND x; END_IF 
          
end_function_block