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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

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

---

Вложение 70585
Что еще я забыл сделать ?

Цитата:

---

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

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

---

На FBD и CFC тоже нельзя, а на ST можно

Цитата:

---

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

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

---

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

Цитата:

---

Сообщение от 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

---

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

Код:

---

  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

вот так

Цитата:

---

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" - эмулятор выбивает ошибку как в прошлом примере.

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

Цитата:

---

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

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

---

Это второй вариант (вызов правда перед case). Я просто набрасываю примеры )

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