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

[petera]

Здравствуйте, товарищи. У меня нарисовалась следующая проблема, есть проект на FB, есть на ST, хочу в проект на FB перенести блок на ST, копирую текст блока, вставляю в редактор, а тот выдаёт мне ошибки в каждой букве кода, или пишет, что данный документ не поддерживает этот формат. Пробовал разные блоки из проектов форума, всё едино. Проблему то решил, просто взяв за основу проект на ST и уже в него перенёс блоки FB, но с редактором ST так и не пошло. Что сие значит?

Копировать текст в буфер из редактора ST нужно исключительно при установленной раскладке клавиатуры - EN (переключатель языка EN/RU)

[kondor3000]

Здравствуйте, товарищи. У меня нарисовалась следующая проблема, есть проект на FB, есть на ST, хочу в проект на FB перенести блок на ST, копирую текст блока, вставляю в редактор, а тот выдаёт мне ошибки в каждой букве кода, или пишет, что данный документ не поддерживает этот формат. Пробовал разные блоки из проектов форума, всё едино. Проблему то решил, просто взяв за основу проект на ST и уже в него перенёс блоки FB, но с редактором ST так и не пошло. Что сие значит?

А поконкретней можно, что и куда вы перенесли? В какой версии и как делали?

[Urfin_Dzhyus]

Эвоно как, спасибо.

[kondor3000]

Копировать текст в буфер из редактора ST нужно исключительно при установленной раскладке клавиатуры - EN (переключатель языка EN/RU)

В любой раскладке можно переносить текст из программы в программу ОЛ.
а вот с форума, чтобы сохранить подписи на русском, надо копировать на RU

Прямо сейчас перенёс тексты программ в ОЛ и на RU и на En, всё перенеслось 1 Копия.jpg

[petera]

Полноценный таймер TON с выходом ET и паузой
Захват-01.png

Скрытый текст:

FUNCTION_BLOCK TON_P //(c) PeterA
VAR_INPUT
    IN: BOOL;
    P: BOOL;
    PT: UDINT;
END_VAR
VAR_OUTPUT
    Q: BOOL;
    ET: UDINT;
END_VAR
VAR
    clk: BOOL;
    StartTime: UDINT;
    tx: UDINT;
END_VAR

tx:= time_to_udint(GET_TIME());
IF P THEN
    StartTime:= tx - ET;
END_IF
IF IN AND NOT clk THEN
    StartTime:= tx;
    clk:= TRUE;
ELSIF NOT IN THEN
    clk:= FALSE;
    Q:= FALSE;
    ET:= 0;
END_IF
IF clk AND NOT Q THEN
//ET:= MIN(PT, tx - StartTime); функция MIN не поддерживается!
//лепим ее сами
    IF PT > (tx - StartTime) THEN
        ET:= tx - StartTime;
    ELSE
        ET:= PT;
    END_IF       
Q:= ET = PT AND IN;
END_IF

end_function_block

Входная переменная PT и выходная переменная ЕТ - время в миллисекундах, только в формате UDINT, т.к формат TIME для входных и выходных переменных запрещен.

[gmz_001]

Побитовые операции над UDINT не поддерживаются ?

a,b,c : udint;
a := 1;
b: = 2;
c: = a OR b;

[МихаилГл]

Побитовые операции над UDINT не поддерживаются ?

a,b,c : udint;
a := 1;
b: = 2;
c: = a OR b;

Через "квадратики" поддерживается. Через st надо посмотреть.

[Dimensy]

Побитовые операции над UDINT не поддерживаются ?

a,b,c : udint;
a := 1;
b: = 2;
c: = a OR b;

не поддерживаются
будем надеяться, что пока не поддерживаются

[kondor3000]

Побитовые операции над UDINT не поддерживаются ?

a,b,c : udint;
a := 1;
b: = 2;
c: = a OR b;

Выражение a or b не поддерживает udint

[kondor3000]

Полноценный таймер TON с выходом ET и паузой
Входная переменная PT и выходная переменная ЕТ - время в миллисекундах, только в формате UDINT, т.к формат TIME для входных и выходных переменных запрещен.

У меня вроде попроще вышло, Таймер TON с паузой, 1 Таймер с паузой.jpg PT можно перевести в секунды или ms

Скрытый текст:

function_block TOnP // Таймер TON   с паузой
    var_input 
       In,P : bool;      
       PT : udint; // Задача времени таймера  udint
    end_var
    var_output 
       Q : bool; //
       ET: udint;  // Выход  времени таймера  udint
    end_var
    var 
       x : bool; 
       T3,T0,Tp :udint;
    end_var  
          
       T3:=time_to_udint(get_time()); PT:=(PT*1000);   // PT можно перевести в секунды или  ms     
      if In  and not x then T0:=T3; Q:=false; x:=true; end_if
      if In and P and ET<=PT then Tp:=T3-T0-ET; 
           elsif In and not P and  ET<=PT then ET:=T3-T0-Tp; end_if      
      if In and ET>=PT then ET:=PT; Q:=true; 
           elsif not In then ET:=0;T0:=0;Tp:=0; x:=false; Q:=false; end_if     
end_function_block