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

[66666666]

да, таймеры внутри условий

function_block PhaseLoadControl
    
    var_input
        Current : REAL;
        Hight_level : REAL;
        Low_level : REAL;
    end_var
    
    var_output 
       Auto1Cmd, Auto2Cmd : BOOL := TRUE; (* Команды управления автоматами *)
    end_var
    
    var 
     TimerOn1, TimerOn2, TimerOff1, TimerOff2 : sys.TON;
    T_On, T_Off : TIME := T#5S;
    end_var

(* Отключение автоматов, если ток выше Hight_level *)
IF Current > Hight_level THEN
    TimerOff1(I := Auto1Cmd, T := T_Off);
    IF TimerOff1.Q THEN Auto1Cmd := FALSE; END_IF;

    TimerOff2(I := (NOT Auto1Cmd) AND Auto2Cmd AND (Current > Hight_level), T := T_Off);
    IF TimerOff2.Q THEN Auto2Cmd := FALSE; END_IF;
END_IF;

(* Включение автоматов, если ток ниже Low_level *)
IF Current < Low_level THEN
    TimerOn1(I := NOT Auto1Cmd, T := T_On);
    IF TimerOn1.Q THEN Auto1Cmd := TRUE; END_IF;

    TimerOn2(I := Auto1Cmd AND NOT Auto2Cmd, T := T_On);
    IF TimerOn2.Q THEN Auto2Cmd := TRUE; END_IF;
END_IF;

(* Удержание состояния в диапазоне Low_level-Hight_level *)
IF (Current >= Low_level) AND (Current <= Hight_level) THEN
    (* Ничего не делаем, автоматы остаются в текущем состоянии *)
END_IF;


end_function_block

[Валенок]

Если в 1-ом условии таймер TimerOff1 еще не сработал, и всё ушло в середину, то таймер как запомнил время старта (и состояние работы), так оно там и осталось. А при возврате в 1-е условие (если Auto1Cmd не упал), таймер смотрит прошедшее время с момента старта в прошлом (а может и позапрошлом (а может поза-поза ..(..))) входе в 1-ое условие.

Вынос из IF типа

TimerOff1(I := (Current > Hight_level) and Auto1Cmd, T := T_Off);
TimerOn1(I := (Current < Low_level) and NOT Auto1Cmd, T := T_On);
Auto1Cmd := not TimerOff1.Q and (Auto1Cmd or TimerOn1.Q);

Аналогично и с другими

[Cs-Cs]

да, таймеры внутри условий

Ага. Оно самое. Причина в этом. Рекомендую мою статью пробежать глазами.
Почему-то, с тех пор как в ПРках появился ST, все темы про вызов таймеров стали снова актуальны...

[FPavel]

Почему-то, с тех пор как в ПРках появился ST, все темы про вызов таймеров стали снова актуальны...

С этим всё просто - дешевизна прибора обеспечила массовое применение, а с применением и спрос на программистов - что привело в сферу так называемых "самоучек" без образования (нахватчиков).
Отсюда и запрос на автонастройку ПИД, и разные предложения на введение gcc в языки программирования, и требования пояснить как включить датчик, и неумение читать документацию...
Я не издеваюсь, просто констатирую, что сейчас программируют случайные люди между выполнением монтажных и прочих физических работ, им реально некогда системно учиться, нужно быстрее сдать работу.

[66666666]

Спасибо всем за ответы, действительно не знал об этой особенности.

[Schneider]

Побитовые операции типа & | в ST макросах owen logic я так понимаю не поддерживаются?

[МихаилГл]

Побитовые операции типа & | в ST макросах owen logic я так понимаю не поддерживаются?

Ну можно маску приделать:
bit:= word1 and word2 and mask
Думаю будет работать... Или нет?

[Schneider]

Ну можно маску приделать:
bit:= word1 and word2 and mask
Думаю будет работать... Или нет?

пишет AND только для булевых переменных

[capzap]

пишет AND только для булевых переменных

можно реализовать самостоятельно

[kondor3000]

пишет AND только для булевых переменных

Здесь реализованы функции побитового AND и XOR, от Валенок остальные аналогично
https://owen.ru/forum/showthread.php...l=1#post447957
Вариантов на самом деле полно, каждый делает как ему нравится.