Моя первая программа. Критикуйте

[tolik777]

Начал изучать контроллеры ОВЕН и среду Codesys.
Моя первая задача такая: есть простейшая схема - кнопка и лампочка. Кнопка без фиксации НО, подключена к DI1. Лампочка через реле подключена к DO1.
Кнопку нажал - лампочка загорелась, второй раз нажал - потухла ну и т.д.
Вот такую программу написал на ST:

PROGRAM PLC_PRG
VAR
RTRIGInst: R_TRIG;
STATUS_BTN1: BOOL;
END_VAR

IF BTN1 = TRUE THEN (*Если нажали кнопку 1*)
RTRIGInst(CLK:= BTN1); (*Вызываем функцию генератора одиночного импульса по переднему фронту*)
IF RTRIGInst.Q = TRUE THEN
IF STATUS_BTN1 = TRUE THEN STATUS_BTN1 := FALSE; (*Если статус первого прожектора был "вкл", то отключаем*)
ELSE STATUS_BTN1 := TRUE; (*Иначе - включаем*)
END_IF
END_IF
ELSE RTRIGInst(CLK:= BTN1); (*Вызываем функцию генератора одиночного импульса по переднему фронту, чтобы сбросить в след. цикле*)
END_IF


IF STATUS_BTN1 = TRUE THEN RELAY1 := TRUE; (*Если статус первого прожектора "вкл", то включаем реле 1*)
ELSE RELAY1 := FALSE;
END_IF

Вроде работает, но..... может быть можно как-то попроще...
Вообщем жду критики и замечаний.
Спасибо.

[Kirill]

Начал изучать контроллеры ОВЕН и среду Codesys.
Моя первая задача такая: есть простейшая схема - кнопка и лампочка. Кнопка без фиксации НО, подключена к DI1. Лампочка через реле подключена к DO1.
Кнопку нажал - лампочка загорелась, второй раз нажал - потухла ну и т.д.
Вот такую программу написал на ST:


Вроде работает, но..... может быть можно как-то попроще...
Вообщем жду критики и замечаний.
Спасибо.

Сильно проще уже не сделаете. Но если оформите в виде ФБ, то дальше можно будет использовать, как готовый алгоритм))

[Crusash]

IF STATUS_BTN1 = TRUE THEN RELAY1 := TRUE; (*Если статус первого прожектора "вкл", то включаем реле 1*)
ELSE RELAY1 := FALSE;
END_IF

вот какой смысл огород городить?
весть код умещается в одну строку

RELAY1 :=STATUS_BTN1;

А вообще я бы весь этот код записал бы в событии OnMouseClik на кнопку,

IF Lampa = TRUE THEN
Lampa :=FALSE;
ELSE 
Lampa :=TRUE;
END_IF

Зачем лишний раз цикл рабочий загружать?

[Crusash]

А вообще я бы весь этот код записал бы в событии OnMouseClik на кнопку,
...

Ой, извиняюсь, задание прочитал не внимательно...

[nikita]

Front(CLK:=knopka);
IF Front.Q AND NOT lampa THEN
lampa:=TRUE;
ELSIF Front.Q AND lampa THEN
lampa:=FALSE;
END_IF

нажали кнопку - включилась лампа, ещё раз нажали - выключилась и т. д.
проще, кажется, некуда

[SergeyNG]

Front(CLK:=knopka);
IF Front.Q AND NOT lampa THEN
lampa:=TRUE;
ELSIF Front.Q AND lampa THEN
lampa:=FALSE;
END_IF

нажали кнопку - включилась лампа, ещё раз нажали - выключилась и т. д.
проще, кажется, некуда

Пробуем проще:
Front(CLK:=knopka);
IF Front.Q THEN
lampa := NOT lampa;
END_IF

[nikita]

Пробуем проще:
Front(CLK:=knopka);
IF Front.Q THEN
lampa := NOT lampa;
END_IF

действительно, нет предела совершенству

[Сергей71]

А есть еще библиотека Oscat там много прибомбасов для работы лампочек и кнопок (Диммеры и тп).

[SergeyNG]

конечно, если использовать спец.фб или написать свой фб, то можно и уложиться в одну строчку. тут важно разобраться, отимальности в чем пытаемся достичь: в компактности текста программы, быстроты отработки кода процессором, объеме кода, понимании текста программы ...

[tolik777]

Пробуем проще:
Front(CLK:=knopka);
IF Front.Q THEN
lampa := NOT lampa;
END_IF

А Front это какая библиотека?