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

[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
:eek: :eek: :eek:
действительно, нет предела совершенству

[Сергей71]

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

[SergeyNG]

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

[tolik777]

Пробуем проще:
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);

[nikita]

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

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

[bango]

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

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;

[tolik777]

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

[bango]

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

[Николаев Андрей]

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

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

[tolik777]

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

[magirus]

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

[tolik777]

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

[tolik777]

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



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 таймеры)

[tolik777]

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

???

[tolik777]

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

[tolik777]

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


....
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;