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

[kondor3000]

Пример таймера TON, который можно использовать в ФБ 1 Пример таймера TON.jpg
Для работы таймера нужна подача системных секунд, и задача РТ в секундах, линия задержки программная.

function_block TON //  ФБ TON 

    var_input  //объявление входных переменных
       In : bool; // Вход включения (выключения) таймера
       S  : udint;  //  Подача системных секунд
       PT  : udint;  //   Задача времени таймера в сек.
    end_var
    var_output //объявление выходных переменных
       Q : bool;    // Выход таймера
       ET: udint; //выходная переменная с типом данных udint
    end_var
    var //объявление локальных переменных
       S1 : udint;   // Аналог Линии задержки          
    end_var
               
    if IN and ET<PT and S<>S1  then
    S1:=S;  ET:=ET+1;  else   ET:=ET; end_if    
            
    if IN and ET=PT  then
    ET:=ET; Q:=true; end_if     
        
    if not IN  then
    ET:=0; Q:=false; end_if
      
end_function_block

И пример вызова таймера в ФБ,

    var_input //объявление входных переменных
       In : bool;    
       Sek : udint; 
    end_var
    var_output //объявление выходных переменных
       Q  : bool;
       ET: udint; 
    end_var
     
    var //объявление локальных переменных   
       S1 : udint;   
       TON1:TON;
    end_var

   TON1(In:=In,S:=Sek,PT:=10,Q=>Q,ET=>ET);

end_function_block