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

Начал изучать контроллеры ОВЕН и среду 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

---

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

Цитата:

---

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

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


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

---

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

Код:

---

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 на кнопку,
...

---

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

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

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

Цитата:

---

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

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

Цитата:

---

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

---

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

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

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

Цитата:

---

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

---

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

B наконец... свои 5 копеек.
VAR
SR_1:SR;
R_TRIG1:RTRIG;
end_var
R_TRIG1(CLK:=KNOPKA);
SR(SET1:= R_TRIG1.q AND NOT LAMPA,RESET:= R_TRIG1.q AND LAMPA,Q=>lampa);

Цитата:

---

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

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

---

Front - это не библиотека, это имя триггера в программе

Привет, просмотрел тему и стало интересно на сколько можно компактней написать эту прогу.

PROGRAM PLC_PRG
VAR
power: BOOL;
stop: BOOL;
tim1: TON;
reset: BOOL;
Favar: BOOL;
END_VAR
-----------------------------
IF avar THEN (*авария*)
IF reset THEN(*опрос кнопки reset*)
avar:=FALSE;
stop:=FALSE;
END_IF
ELSE
out:=(NOT stop AND out)OR power;
(*тригер кнопок пуск стоп*)
IF KQ THEN(*контакт реле*)
;
ELSE
tim1( IN :=out , PT := T#5s);(*счетчик аварии*)
Favar:=tim1.Q;
IF Favar THEN(*флаг аварии*)
stop := TRUE;
avar:=TRUE;
out:=FALSE;
END_IF
END_IF
END_IF;

подскажите, что-то никак не могу додуматься как реализовать такое:
при нажатии на кнопку, последовательно (с интервалом в 2 сек) включаются выхода.

выкладываю полную версию там есть визуализация там все должно быть понятно.Вложение 1521

Цитата:

---

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

подскажите, что-то никак не могу додуматься как реализовать такое:
при нажатии на кнопку, последовательно (с интервалом в 2 сек) включаются выхода.

---

В зависимости от того кнопка с фиксацией или без...
Если с фиксацией - нужен таймер с задержкой включения - TON.
Если без фиксации - тогда в зависимости от языка используем детектор фронтов и фиксацию\сброс.

кнопка без фиксации. после нажатия должны включатся выхода к примеру: №1, затем через 2 сек №2, еще через 2 сек №3 и т.д.

например так.
ПЛК100 r.l.

спасибо. работает. правда сделал немного по другому.

Вот еще такой вопрос. Промучился весь вечер не могу понять, почему при первом прогоне таймеры работает как надо(выхода переключаются последовательно). А когда второй раз вызываю, то выхода переключаются без задержек.
Фрагмент кода:

Цитата:

---

IF flag_Step_On THEN
Ti1(IN:=TRUE,PT:=T#1s);
Ti2(IN:=TRUE,PT:=T#2s);
RELAY1:=Ti1.Q;
RELAY2:=Ti2.Q;
END_IF
(*Где Ti1,Ti2 - TON таймеры)

---

А сбрасывать их надо так:
Ti2(IN:=FALSE,PT:=T#2s);

???

разобрался спасибо.

Приведу фрагмент моего кода:

Цитата:

---

....
Ti1(IN:=TRUE,PT:=T#1s); (*Запускаем таймер, 1 сек.*)
Ti2(IN:=TRUE,PT:=T#2s);
RELAY1:=Ti1.Q OR RELAY1; (*По окончании переключаем выход*)
RELAY2:=Ti2.Q OR RELAY2 ;
IF Ti2.Q (*Когда закончил считать 2-ой таймер*)
THEN
Ti1(IN:=FALSE,PT:=T#0s); (*Сбрасываем таймер*)
Ti2(IN:=FALSE,PT:=T#0s);
......
END_IF
....

---

Ключевое слово здесь для сброса таймера: IN:=FALSE

Может так? Без if
Ti1(IN:=flag_Step_On ,PT:=T#1s);
Ti2(IN:=flag_Step_On ,PT:=T#2s);
RELAY1:=Ti1.Q;
RELAY2:=Ti2.Q;