Вопрос: ПЛК100 управление группами света тригирами

[webage]

Добрый день. Подскажите как решить задачу. Делаю дома управление светом. Необходимо чтобы при нажатии на выключатель кнопку 1 раз свет включался, 2 раз выключался. Так же на один выключатель который будет в коридоре сделать выключение всех групп света. Что удалось сделать:
1) Включение и выключение лампы с таймером задержки.

rt(CLK:=A);

IF rt.Q THEN
	tm_start(IN:=TRUE , PT:=t );
END_IF

tm_start;

IF tm_start.Q AND NOT Y THEN
Y:=TRUE;
tm_start(IN:=FALSE , PT:=t );
ELSIF tm_start.Q AND Y THEN
Y:=FALSE;
tm_start(IN:=FALSE , PT:=t );
END_IF

Но не понятно, нужно делать такие обработки для каждой кнопки или можно унифицировать код.
2) не могу понять как реализовать выключение всех групп света при условии что я держу кнопку Y в течении 3-х секунд.

[Sergey666]

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

[webage]

А как сделать чтобы не срабатывал первый таймер на 0,03 сек., ведь кнопка в коридоре должна включать и выключать свет в коридоре и выключать все группы освещения.

[capzap]

В оскат библиотеку сходите, там есть поу со всевозможными нажатиями

[webage]

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

А как выглядит этот функционального блока, я просто только второй день этим занимаюсь и не все понимаю. Можно пример привести.

[amn]

Добрый день. Подскажите как решить задачу. Делаю дома управление светом. Необходимо чтобы при нажатии на выключатель кнопку 1 раз свет включался, 2 раз выключался. Так же на один выключатель который будет в коридоре сделать выключение всех групп света.

FUNCTION_BLOCK prim1
VAR_INPUT
	in: BOOL;	(*кнопка*)
	off:BOOL;	(*на этот вход подается выход off_all для отключения всех групп освещения*)
END_VAR
VAR_OUTPUT
	Q: BOOL;	(*лампочка*)
	off_all:BOOL;	(*выход для выключения всех лампочек*)
END_VAR
VAR
	step: BYTE;
	R_TRIG1: R_TRIG;
	TON1: TON;
	pt: TIME := t#3s;
END_VAR

----------------------------

TON1(IN:=in , PT:=pt , Q=> , ET=> );	(*таймер для отключения всего освещения*)
R_TRIG1(CLK:=in , Q=> );(*нужен для включения/выключения лампочки в коридоре*)

CASE step OF
0:		(*шаг включение лампочки*)
	IF R_TRIG1.Q THEN
		Q:=TRUE;
		step:=1;
	END_IF
1:		(*шаг отключения лампочки*)
	IF R_TRIG1.Q THEN
		Q:=FALSE;
		step:=0;
	END_IF
END_CASE

(*для отключения всего освещения*)
off_all:=TON1.Q;(*если кнопку держали 3 секунды отключаем все группы освещения*)
IF off THEN	(*пришел сигнал на оключение всех групп освещения*)
	Q:=FALSE;
	step:=0;
END_IF

[Sergey666]

Получи и распишись.

[webage]

FUNCTION_BLOCK prim1
VAR_INPUT
	in: BOOL;	(*кнопка*)
	off:BOOL;	(*на этот вход подается выход off_all для отключения всех групп освещения*)
END_VAR
VAR_OUTPUT
	Q: BOOL;	(*лампочка*)
	off_all:BOOL;	(*выход для выключения всех лампочек*)
END_VAR
VAR
	step: BYTE;
	R_TRIG1: R_TRIG;
	TON1: TON;
	pt: TIME := t#3s;
END_VAR

----------------------------

TON1(IN:=in , PT:=pt , Q=> , ET=> );	(*таймер для отключения всего освещения*)
R_TRIG1(CLK:=in , Q=> );(*нужен для включения/выключения лампочки в коридоре*)

CASE step OF
0:		(*шаг включение лампочки*)
	IF R_TRIG1.Q THEN
		Q:=TRUE;
		step:=1;
	END_IF
1:		(*шаг отключения лампочки*)
	IF R_TRIG1.Q THEN
		Q:=FALSE;
		step:=0;
	END_IF
END_CASE

(*для отключения всего освещения*)
off_all:=TON1.Q;(*если кнопку держали 3 секунды отключаем все группы освещения*)
IF off THEN	(*пришел сигнал на оключение всех групп освещения*)
	Q:=FALSE;
	step:=0;
END_IF

Получи и распишись.

Спасибо большое, а подскажите в каких случаях используется CASE, вообще какую роль он выполняет в сценарии?

[amn]

Про CASE можно почитать в документации CoDeSys_V23_RU.pdf стр 24. Его особенность в том, что в текущем цикле выполняются только те инструкции, которые соответсвуют значению переменной (в моем случае переменная step).