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

Вид для печати

Показывать 40 сообщений этой темы на одной странице

23.09.2023, 09:19
1exan

Цитата:

Сообщение от gmz_001

Вопрос по синтаксису st. Вызов функционального блока из функционального блока.

Код:

FB.varIn := value; out := FB.varOut;

это не есть вызов ФБ, а только обращение к его переменным ?

Вызов выглядит так:
FB( [необязательно: присвоение входов и чтение выходов] );
23.09.2023, 12:05
gmz_001

Про такую нотацию знаю, но вопрос возник по тому-что при ветвлении в if и case удобнее обращение через точку, ибо не нужна лишняя переменная. Понятно, нужно отдельно выполнять вызов без параметров.
23.09.2023, 15:10
1exan

Цитата:

Сообщение от gmz_001

Про такую нотацию знаю, но вопрос возник по тому-что при ветвлении в if и case удобнее обращение через точку, ибо не нужна лишняя переменная. Понятно, нужно отдельно выполнять вызов без параметров.

Ну через "точку" идет лишь запись значения на вход и чтение значения с выхода, и тут надо понимать, что

Код:

FB(); ... ... ... FB.varIn := value; out := FB.varOut;

и

Код:

FB.varIn := value; FB(); out := FB.varOut;

Могут иметь разные результаты
23.09.2023, 20:03
gmz_001

Это понятно. Разные значения переменных на момент выполнения блока.
Странное решение авторов стандарта все переменные считать статическими, сложно после обычных языков
25.09.2023, 00:20
Валенок

Цитата:

Сообщение от gmz_001

...Странное решение авторов стандарта все переменные считать статическими, сложно после обычных языков

А поля статически размещенных структур (record/struct/....) в каких-то там "обычных" языках ведут себя теперь как-то по другому ?
25.09.2023, 05:59
gmz_001

Не думал в этом ключе.
26.09.2023, 21:41
viewer

Подскажите как, при покупке, определить, что ПР100 является М02 и поддерживает ST?
27.09.2023, 16:21
Королев Кирилл

Цитата:

Сообщение от viewer

Подскажите как, при покупке, определить, что ПР100 является М02 и поддерживает ST?

Добрый день!

Если заказываете новый прибор, то он уже будет с индексом М02. Будет отметка на коробке и в паспорте.

Если у Вас старый прибор, то ПР100 М02 стали выпускаться, ориентировочно, с января 2021 года.
27.09.2023, 17:07
viewer

Спасибо за ответ.
28.09.2023, 16:00
Samel

Я так понял fb на ST еще очень сырые. Один и тот же код на 200 и 103 работает по разному
28.09.2023, 16:43
Dimensy

Цитата:

Сообщение от Samel

Я так понял fb на ST еще очень сырые. Один и тот же код на 200 и 103 работает по разному

А примерчик кода, который по разному работает можно?
29.09.2023, 08:29
Samel

Цитата:

Сообщение от Dimensy

А примерчик кода, который по разному работает можно?

Уже все затер. Как еще раз проявится - буду сюда бросать.
29.09.2023, 08:32
Samel

И почему редактор ругается на обращение к входным переменным функционального блока в ST? Т.е писать можно, читать нет? Что за бред!
29.09.2023, 08:54
Samel

Цитата:

Сообщение от capzap

Вы же сами написали что фб на ст еще сырые, программисты здесь не виноваты от слова со всем, тем более не подтверждая это кодом

Код:

var tStepTP : fbTONr; end_var if ... then tStepTP.PT := x; end_if ... if tStepTP.PT <> 0 then - так нельзя ... end_if
29.09.2023, 09:18
Dimensy

Цитата:

Сообщение от Samel

И почему редактор ругается на обращение к входным переменным функционального блока в ST? Т.е писать можно, читать нет? Что за бред!

А разве в ST можно читать входные переменные?
29.09.2023, 09:22
Samel

Цитата:

Сообщение от Dimensy

А разве в ST можно читать входные переменные?

Ну всегда было можно
29.09.2023, 09:24
1exan

Цитата:

Сообщение от Dimensy

А разве в ST можно читать входные переменные?

А почему бы и нет.
Там проблема походу не в чтении, а в том, что тип у конструкции "tStepTP.PT" неопределён
29.09.2023, 09:26
kondor3000

Цитата:

Сообщение от Samel

Код:

if tStepTP.PT <> 0 then - так нельзя ... end_if

Для этого есть ET

Код:

tStepTP(); if tStepTP.PT >0 then // так можно if tStepTP.PT <=tStepTP.ET then // так можно
29.09.2023, 09:26
Samel

А еще fb не работают если их вызывать в теле case
29.09.2023, 09:34
Samel

Цитата:

Сообщение от kondor3000

Для этого есть ET

Код:

if tStepTP.PT >0 then // так можно if tStepTP.PT <=tStepTP.ET then // так можно

Так тоже нельзя
29.09.2023, 09:41
kondor3000

Цитата:

Сообщение от Samel

Так тоже нельзя

Так можно, а если у вас не работает то, читайте

Цитата:

Сообщение от 1exan

Там проблема походу не в чтении, а в том, что тип у конструкции "tStepTP.PT" неопределён

Вы вообще судя по коду даже таймер не вызвали, и РТ не присвоили.
29.09.2023, 09:47
Samel

Вложений: 1

Цитата:

Сообщение от kondor3000

Так можно, а если у вас не работает то, читайте

Вы вообще судя по коду даже таймер не вызвали, и РТ не присвоили.

Вложение 70585
Что еще я забыл сделать ?
29.09.2023, 09:55
Samel

Цитата:

Сообщение от capzap

Где, в ОЛ? Покажите картинку где Вы можете соединить два входа любых элементов на холсте, это концепция среды разработки, если менять положение дел в СТ значит и с квадратами придется что то мутить

На FBD и CFC тоже нельзя, а на ST можно
29.09.2023, 10:04
Samel

Цитата:

Сообщение от capzap

Ну так ведь в КДС, а не в ОЛ, ST это не перенос из КДС языка программирования, это просто название Structured text
Выход здесь один, не использовать входные аргументы, а то что им присваивается по коду

Да это все понятно. Это просто пример, который нигде не документирован. Но таких же приколов дофига. В эмуляторе работает - в ПР вообще не запускается.
29.09.2023, 10:05
kondor3000

Вложений: 1

Цитата:

Сообщение от Samel

Что еще я забыл сделать ?

Проверил, TON1.PT нельзя сравнивать, а входную переменную можно, вот скрин Вложение 70586 Помню, что уже делал подобное

Код:

var //объявление локальных переменных TON1:TON; end_var TON1(In:=OnTim, T_z:=T_z, PT:=CurMinute, Q=>Res, ET=>ET); if CurMinute<>0 then TON1.PT:=5; end_if

И так ещё

Код:

if ET < CurMinute then TON1.PT:=5; end_if
29.09.2023, 10:39
Samel

Вложений: 1

вот так не работает

Код:

case stepTP of 1: tStepTP(IN := true, PT := 5, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 2; end_if (* 2: tStepTP(IN := true, PT := 10, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 3; end_if 3: tStepTP(IN := true, PT := 15, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 4; end_if else ;*) end_case

вот так :

Код:

case stepTP of 1: tStepTP(IN := true, PT := 5, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 2; end_if 2: tStepTP(IN := true, PT := 10, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 3; end_if 3: tStepTP(IN := true, PT := 15, sec := sec); if tStepTP.Q THEN tStepTP(IN := false); stepTP := 4; end_if else end_case

получим Вложение 70595
29.09.2023, 10:42
Samel

вот так

Цитата:

check_ON(CLK := START);
if check_ON.q then
stepTP := 1;
in := TRUE;
tStepTP.PT := 5;
end_if
if NOT START AND stepTP <> 0 then stepTP := 0;
end_if

tStepTP(IN:= in, sec := sec);
case stepTP of

1:
if tStepTP.Q THEN
in := fALSE;
tStepTP(IN := in);
in := TRUE;
tStepTP.PT := 10;
stepTP := 2;
end_if

2:
if tStepTP.Q THEN
in := fALSE;
tStepTP(IN := in);
in := TRUE;
tStepTP.PT := 15;
stepTP := 3;
end_if
(* 3:

if tStepTP.Q THEN
in := fALSE;
tStepTP(IN := in);
stepTP := 4;
end_if *)
end_case

работает только первая ветвь.
если раскомментировать"3" - эмулятор выбивает ошибку как в прошлом примере.
29.09.2023, 10:46
Samel

Любой вызов fb в теле case не отрабатывает, ну или он вообще не вызывается.
29.09.2023, 10:50
Samel

Цитата:

Сообщение от capzap

я бы и в КДС так не делал, вызов таймера сделайте после кейсов, а в них только присваивайте время и по условию переходите, запись же работает, сами писали

Это второй вариант (вызов правда перед case). Я просто набрасываю примеры )
29.09.2023, 10:53
Samel

просто сброс/останов таймера через tStepTP(IN := false) в case не работает
29.09.2023, 12:14
Samel

Цитата:

Сообщение от capzap

Код:

check_ON(CLK := START); if check_ON.q then stepTP := 1; end_if if NOT START AND stepTP <> 0 then stepTP := 0; end_if case stepTP of 1: tStepTP.IN := TRUE; tStepTP.PT := 5; if tStepTP.Q THEN tStepTP.IN:= FALSE; tStepTP.PT := 0; stepTP := 2; end_if 2: tStepTP.IN := TRUE; tStepTP.PT := 10; if tStepTP.Q THEN tStepTP.IN:= FALSE; tStepTP.PT := 0; stepTP := 3; end_if 3: tStepTP.IN := TRUE; tStepTP.PT := 15; if tStepTP.Q THEN tStepTP.IN:= FALSE; tStepTP.PT := 0; stepTP := 4; end_if else ; end_case tStepTP(sec := sec);

так тоже не работает?

так будет работать
29.09.2023, 12:24
Samel

Цитата:

Сообщение от capzap

а может и не будет, как это расценивать? Выложите проект тогда я сам посмотрю

Я такой вариант уже пробовал - он работает;
29.09.2023, 13:53
Samel

Цитата:

Сообщение от capzap

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

А где документировано что нельзя вызывать fb в case?
29.09.2023, 14:22
Samel

В предложенный Вами(рабочий) код в case вставляю fb который тупо считает математику и он не работает или не вызывается
29.09.2023, 14:54
capzap

Вложений: 1

Цитата:

Сообщение от Samel

В предложенный Вами(рабочий) код в case вставляю fb который тупо считает математику и он не работает или не вызывается

да с чего Вы вообще взяли что это кейсы виноваты, Вы пробовали с другими ФБ так же работать, где аргументов минимум
Вот вложение, когда раскомментируете в Foo переменную RTrig получите точно такую же ошибку, как и у Вас в кейсах, я это объясняю как превышение количества вложений, раз уж все аргументы это некие объекты, возможно перебор по количеству выдает ошибку, у разработчиков конечно есть более правильная версия
29.09.2023, 15:20
Samel

Вложений: 1

Ну если не сложно прогнать пару тестов:
1. Как есть.
2. Раскомментировать case 1.
3. Раскомментировать case 2.
4. Раскомментировать case 3.
29.09.2023, 15:25
kondor3000

Цитата:

Сообщение от Samel

Ну если не сложно прогнать пару тестов:
1. Как есть.
2. Раскомментировать case 1.
3. Раскомментировать case 2.
4. Раскомментировать case 3.

В выложенном проекте один таймер, где ваши case ?
29.09.2023, 15:30
Samel

Цитата:

Сообщение от kondor3000

В выложенном проекте один таймер, где ваши case ?

Ниже смотрите
29.09.2023, 16:09
kondor3000

Цитата:

Сообщение от Samel

Ну если не сложно прогнать пару тестов:
1. Как есть.
2. Раскомментировать case 1.
3. Раскомментировать case 2.
4. Раскомментировать case 3.

1) Шагает до 4
2) Шагает до 2
3) Ошибка
4) Ошибка
Что интересно, если 2 закоментировать, а 3 раскоментировать, то работает, шагает до 2

Может вам готовый подобный проект дать посмотреть, чтоб не мучаться?
29.09.2023, 16:15
gmz_001

Делал не классичеcrий TON. C декрементом до нуля и одним импульсом на выходе при окончании отсчета, обновление счетчика по переднему фронту IN. Вызов таймера за пределами case.
Внутри кейса таймер действительно не вызывается.

Показывать 40 сообщений этой темы на одной странице

Текущее время: 23:21. Часовой пояс GMT +3.