странная синтаксическая ошибка

[alhoresm]

IF di0 THEN
do0:=FALSE;
do1:=FALSE;
do2:=FALSE;
do3:=FALSE;
TPup(in:=FALSE);
TPup(PT:=T#20S);
TPdown(in:=FALSE);
TPdown(PT:=T#20S);

mode:=1;
ELSE (*IF di0*)

IF mode=1 THEN

TPup(q=>b);
IF NOT b THEN
TPup(in:=TRUE);
ELSE(* IF NOT b *)
CAL tpUp(pt=>apt; et=>aet); (*здесь не выдаёт ошибку*)
IF aet=apt THEN
mode:=2;
tpUp(in:=FALSE);
END_IF (* IF aet=apt *)

END_IF (* IF NOT b *)

END_IF (* IF mode=1*)

IF mode=2 THEN

TPdown(q=>b);
IF NOT b THEN
TPdown(in:=TRUE);
ELSE (* IF NOT b*)
CAL tpDown(pt=>apt;et=>aet); (*здесь выдаёт ошибку: "Expecting END_IF before 'CAL'"*)
IF aet=apt THEN
mode:=1;
tpDown(in:=FALSE);
END_IF(* IF aet=apt*)
END_IF(* IF NOT b*)

END_IF(* IF mode=2*)

END_IF (*IF di0*)

[Александр Приходько]

Не мешало бы и область объявления переменных описать или проект выложить. Будем гадать на кофейной гуще .

Из справки:

CAL
Вызывает функциональный блок или программу.

Применяется в IL для вызова экземпляра функционального блока, входные переменные помещаются в скобках вслед за его именем.

Для языка ST надобности в данном операторе нет. Если tpDown - это некий ФБ или программа, то в области описания переменных вы задаете:

tpDown1:tpDown; (*Объявляем экземпляр функционального блока или программы*)

а в коде пишем:

. . .
ELSE (* IF NOT b*)
tpDown1(pt=>apt;et=>aet); 
IF aet=apt THEN
. . .

Если tpDown-это функция, то в коде пишем:

. . .
ELSE (* IF NOT b*)
переменная:=tpDown(pt=>apt;et=>aet); 
IF aet=apt THEN
. . .

Попробуйте, думаю поможет.

[capzap]

Вроде как настоятельно рекомендует перед вызовом CAL ставить END_IF, чего тут странного, может Вы пишите программу несколько странно

[alhoresm]

с ошибками разобрался, оказалось не все ошибки видел в окне ошибок
а требовалось ставить символ ";" после всех END_IF, как ни странно, это влияет на появление этой ошибки

[capzap]

Очень интересно, я буквально не больше месяца, как избавился от привычки после ифов и кейсов ставить ; а теперь что же получается надо опять переучиваться

[capzap]

Если Вы исходник скопировали из программы, то приглядевшись можно заметить, что там где Вы пишите возникает ошибка между END_IF и ( отсутствует пробел, может в этом была причина

[alhoresm]

завтра попробую без точек с запятыми и отпишусь

[Serge_UA]

Если внимательно почитать документацию, то станет ясно, что оператор CAL принадлежит языку IL, а не ST. Поэтому использовать его в языке ST некорректно, и компилятор должен выдавать ошибку.

Точка_с_запятой после END_IF не нужна и бесполезна.

Компилятор в CodeSys слегка странный. При наличии нескольких ошибок в коде некоторые из них может пропускать, а также сообщать о несуществующих.

[alhoresm]

Регистр в именах не имеет значения.

..TPup(PT:=T#20S);..
...tpUp(pt=>apt; et=>aet);..

Это одно и тоже.
Предположительно (????) это - таймер.
Тогда один из траблов здесь :

tpUp(pt=>apt; et=>aet);..

PT - вход.

уже всё исправил, но всё равно спасибо

[Николаев Андрей]

Точка_с_запятой после END_IF не нужна и бесполезна.

Не только не бесполезна, а я рекомендую всегда ставить. Точкой с запятой Вы даете однозначный ответ компилятору (уменьшаете для него неопределенность)

Компилятор в CodeSys слегка странный. При наличии нескольких ошибок в коде некоторые из них может пропускать, а также сообщать о несуществующих.

Просто до некоторых ошибок он не успевает дойти и проверить. В итоге, если есть хоть одна - он скажет. А когда ошибок 150 - все сразу не показывает - психику щадит