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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

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

Цитата:

---

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

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

---

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

Прямо сейчас перенёс тексты программ в ОЛ и на RU и на En, всё перенеслось Вложение 73812

Полноценный таймер TON с выходом ET и паузой
Вложение 73823

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

Код:

---

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 для входных и выходных переменных запрещен.

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

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

Цитата:

---

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

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

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

---

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

Цитата:

---

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

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

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

---

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

Цитата:

---

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

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

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

---

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

Цитата:

---

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

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

---

У меня вроде попроще вышло, Таймер TON с паузой, Вложение 73824 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

---