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

[amaterasu]

большое спасибо

[Рогов Алексей]

Добрый день!

Уважаемые программисты, нет реле под рукой, такая конструкция жизнеспособна?

function_block R_c //Реверсивный счётчик.


var_input //объявление входных переменных
U : bool; //входная переменная с типом данных bool
D : bool; //входная переменная с типом данных bool
Res : bool; //входная переменная с типом данных bool
N : udint; //входная переменная для значения счетчика после сброса
end_var

var_output //объявление выходных переменных
Q : udint; //выходная переменная с типом данных udint
end_var

var //объявление локальных переменных
CounterValue : udint; //переменная для текущего значения счетчика

RTrig : bool; //переменная для определения переднего фронта на входе «U»
RTrig1 : bool; //переменная для определения переднего фронта на входе «D»
end_var

if Res then
CounterValue := N;
end_if

while U and not RTrig and not Res and CounterValue <100 do
CounterValue := (CounterValue + 1);
RTrig := U;



end_while

if not U and RTrig then
RTrig := false;
end_if

while D and not RTrig1 and not Res and CounterValue > 0 do
CounterValue := (CounterValue - 1);
RTrig1 := D;

end_while



if not D and RTrig1 then
RTrig1 := false;
end_if

Q := CounterValue ;

end_function_block

[EFrol]

Добрый!
А чем Вас не устраивает стандартный?
Owen.jpg

А так, в принципе, - да!
Но я бы сделал так:

function_block CTN

    var_input
       U, D, R : bool;
       N : udint;
    end_var

    var_output
       Q : udint;
    end_var

    var
        UTrig, DTrig : SYS.RTRIG;
        init : bool;
    end_var

    UTrig(I := U); DTrig(I := D);
    if UTrig.Q and Q < 100 then Q := Q + 1; end_if
    if DTrig.Q and Q > 0 then Q := Q - 1; end_if
    if R or not init then Q := N; end_if
    init := true;

end_function_block

[Dimensy]

Добрый день!

Уважаемые программисты, нет реле под рукой, такая конструкция жизнеспособна?

1. А в эмуляторе проверить работу? - если работает, значит жизнеспособна
2. В ST Лоджика уже завезли системные триггеры и счетчики

[Dimensy]

Добрый!
...Но я бы сделал так:

function_block CTN

    var_input
       U, D, R : bool;
       N : udint;
    end_var

    var_output
       Q : udint;
    end_var

    var
        UTrig, DTrig : SYS.RTRIG;
        init : bool;
    end_var

    UTrig(I := U); DTrig(I := D);
    if UTrig.Q and Q < 100 then Q := Q + 1; end_if
    if DTrig.Q and Q > 0 then Q := Q - 1; end_if
    if R or not init then Q := N; end_if
    init := true;

end_function_block

Тогда уж, сразу счетчик использовать, тем более, что в ST он 32-битный

[Рогов Алексей]

Спасибо! оператор WHILE интересовал. Как факт того, что в блоке счётчика два цикла, а переменная CounterValue одна.

[Dimensy]

Спасибо! оператор WHILE интересовал. Как факт того, что в блоке счётчика два цикла, а переменная CounterValue одна.

Цикл там у вас, вообще, лишний

[lunyov_i]

Коллеги!
Рады представить вам Функциональные блоки на текстовом языке ST в Owen Logic

• Поддержан вызов функции и функционального блока внутри функционального блока;

• При вызове ФБ внутри ФБ поддержано обращение к входам и выходам ФБ через точку;

• Поддержаны локальные одномерные массивы.

ФБ на ST поддерживают приборы: ПР100(М02), ПР102, ПР200, ПР103, ПР205 и ИПП120.

Данная версия Owen Logic является бета версией!

Скачать Owen Logic 2.4.332(beta)

Если в процессе работы с новой версией вы обнаружите баг или у вас есть предложения по развитию ФБ на ST, то можете поделиться в этой теме или прислать на почту soft@owen.ru

UPD (15.08.23):
Выпущена релизная версия Owen Logic 2.4 с ФБ на ST

Это очень здорово. Все "задышало" по-лучше. Скажите, логические операторы для целых типов в дальнейшем возможно cделать в ST? Пока только для типа bool. Иногда просто необходимо разные маски выделить, в FBD это без проблем, а в ST такое невозможно. Или ошибаюсь? Поправьте

[kondor3000]

Это очень здорово. Все "задышало" по-лучше. Скажите, логические операторы для целых типов в дальнейшем возможно cделать в ST? Пока только для типа bool. Иногда просто необходимо разные маски выделить, в FBD это без проблем, а в ST такое невозможно. Или ошибаюсь? Поправьте

Логические операторы пока только для BOOL, обещали сделать для целых, но никто не запрещал написать функцию самому. Тут есть пример Валенка,
Переключение бит_3++.https://owen.ru/forum/showthread.php...&page=382#3814
Распаковка и упаковка бит в маску через точку, поддержаны уже сейчас.

[Dimensy]

Вот, Валенок в свое время вдохновил