Создать функцию на ST

Цитата:

---

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

я считаю, что сразу прописать, что техподдержка не будет оказывать помощь по ST. не нравится - делайте на ФБД

---

С чего вдруг код на ST должен быть проблемнее кода на fbd, я столько видел "уникальных" проектов присылаемых на fbd, и очень сомневаюсь что тех. поддержку можно чем-то удивить. В плане ST вижу даже +, можно код сразу вставить в текст, а на обратной стороне скопировать и запустить, с fbd в этом плане намного сложнее, мне кажется.

Цитата:

---

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

Вот именно! Одно у овеновцев плохо, они сначала сделают что-то а потом спрашивают у пользователей ... Нет бы наоборот....

П.с. я не знаю, чем не нравится фбд в ол, но он однозначно лучше чем у Сименса, Митсубиси, сегнетикса. Это только то, с чем я очень плотно работал.
П.п.с. работа с экранами к фбд не относится если что.

---

Вот ничего с пользователями обсуждать не надо, все украдено до нас и велики все уже изобретены, надо смотреть как у великих и делать аналогично, а обсуждение с пользователями это демагогия- непременный спутник демократии, бла-бла-бла.
Не понятно почему только FBD, если у старших товарищей в ПРках SFC как правило есть, и при реализации последовательно-цикличных алгоритмов наличие SFC здорово помогает.
В любом случае надо будет смотреть готовую реализацию ST в ОЛ.

Добрый день! Огромное пожелание по ST: иметь возможность создавать более одного выхода.

Очень странно, что в ST есть поддержка только UDInt. То есть целочисленный счет в отрицательных диапазонах не предусмотрен (DInt / Int)? Пока для этого использую Real.

Язык ST уже доступен в новой версии OwenLogic 1.22.284.0, кто ждал, можно тестировать возможности.
Мой небольшой опыт на примере макроса Pt1000 прикрепляю.
https://www.youtube.com/watch?v=rVn96bfQedc

Доброй ночи! Можно ли вызывать одну функцию ST внутри другой функции ST? Пока не удается...

Как же круто же!!!!!!
Господи, было бы это лет пять назад, когда я мучился с ужасными Logo этими чёртовыми, пытаясь на FBD написать сложную логику!!

Ура!
Моя первая функция - Вычисление дня недели

Вложение 58152 Вложение 58154

Нашёл давно на просторах интернета такой метод

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

dayOfWeek = (year+year/4+ ММ[mounth] + day) MOD 7
где
year - год;
day - номер дня в месяце;
ММ[mounth] - значение из массива

январь	5 (4 - для високосного года)
февраль	1 (0 - для високосного года)
март	1
апрель	4
май	6
июнь	2
июль	4
август	0
сентябрь	3
октябрь	5
ноябрь	1
декабрь	3

В вычислениях используются только целочисленные значения

Код:

---

FUNCTION dayOfWeek : UDINT;    // (c)  PeterA
VAR_INPUT
    year: udint;
    mounth: udint;
    day:udint;
END_VAR
VAR
    MM: ARRAY [1..12] OF udint := [5,1,1,4,6,2,4,0,3,5,1,3];
END_VAR

IF udint_to_bool(year MOD 4 ) THEN
    MM[1]:= 5; MM[2]:= 1;
ELSE
    MM[1]:= 4; MM[2]:= 0;
END_IF

dayOfWeek:= (year+year/4+ MM[mounth] + day) MOD 7;
   
end_function

---

ЗЫ.
Добавил вход Sun_7
если он устанвлен в 1, то воскресенье 7 день, иначе 0

Код:

---

FUNCTION dayOfWeek : UDINT;    // (c)  PeterA
VAR_INPUT
    year: udint;
    mounth: udint;
    day:udint;
    Sun_7:bool; //если 1, то воскресенье 7 день, иначе 0
END_VAR
VAR
    MM: ARRAY [1..12] OF udint := [5,1,1,4,6,2,4,0,3,5,1,3];
    dayOfWeekTMP: udint;
END_VAR

IF udint_to_bool(year MOD 4 ) THEN
    MM[1]:= 5; MM[2]:= 1;
ELSE
    MM[1]:= 4; MM[2]:= 0;
END_IF
dayOfWeekTMP:= (year+year/4+ MM[mounth] + day) MOD 7;

dayOfWeek:= dayOfWeekTMP + bool_to_udint(Sun_7 AND dayOfWeekTMP=0) * 7;
   
end_function

---

Экспорт функции в файл - не судьба?

Для первого раза неплохо, 5 мин искал где написанную функцию найти и как вставить))) Окно было минимальное и функции не видно.

Petera, функции теперь в блокноте будем хранить, зачем ещё импорт, экспорт делать)