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

[kondor3000]

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

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

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

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

[Samel]

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

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

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

[Samel]

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

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

[Samel]

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

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

[kondor3000]

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

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

     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

[Samel]

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

   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

получим owen.png

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

[Samel]

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

[Samel]

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

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

[Samel]

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