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

[Алексей1801]

Доброго дня уважаемые форумчане!
Вопрос разработчикам: "- а когда будут ФБ?"

[игорь68]

Тут правильно написали fbd или st выбор за вами. Но Овен готовьтесь. Ваш телефон поддержки теперь вечно будет занят. При этом 90% времени это будут звонки от "stшников с возмущениями что " гениально написанный код "не работает . И виной будет именно ОЛ а не написанный через нижние полушария головного мозга код. Лично моё мнение. Оно может не совпадать с мнением других.

[bayk]

Тут правильно написали fbd или st выбор за вами. Но Овен готовьтесь. Ваш телефон поддержки теперь вечно будет занят. При этом 90% времени это будут звонки от "stшников с возмущениями что " гениально написанный код "не работает . И виной будет именно ОЛ а не написанный через нижние полушария головного мозга код. Лично моё мнение. Оно может не совпадать с мнением других.

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

[Ревака Юрий]

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

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

[Ollema]

Очень интересно пощупать вживую.

[CORSAR1500]

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

[Ревака Юрий]

Язык ST уже доступен в новой версии OwenLogic 1.22.284.0, кто ждал, можно тестировать возможности.
Мой небольшой опыт на примере макроса Pt1000 прикрепляю.

[Cs-Cs]

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

[petera]

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

Захват-03.png Захват-04.png

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

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

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

[Филоненко Владислав]

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

Захват-03.png Захват-04.png

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

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

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

Ну с массивами придётся обождать/аккуратно разграничивать. Пока ST и остальной код ОвенЛоджика это как 2 континента с узким подвесным мостом. В Лоджике пока ещё только bool, unsigned long и float. Остальные типы не поддерживаются