Пробный меандр на таймерах

[Herzog]

Казалось бы примитивная вещь - таймер. Все вроде бы разжевано...

Почему не работает тест ПЛК100 в таком виде:

Out1 := NOT Out1; (* visual circle of PLC *)
CASE Regim OF
	0 : 	(*----------------- some inits ----------------- *)
		Regim := 1;
	1 : 	(*----------------- begin ON ----------------- *)
		Tm0.IN := FALSE;
		Tm1( IN := In0, PT := gTakt );
		Out0 := ON;	(* indicate meandr *)
		Regim := 2;

	2 : 	(*----------------- continue ON / begin OFF ----------------- *)
		IF (Tm1.Q = TRUE) THEN
			Tm0( IN := TRUE, PT := gTakt );
			Out0 := OFF;	(* indicate meandr *)
			Regim := 3;
		END_IF

	3 : 	(*----------------- continue OFF  ----------------- *)
		IF (Tm0.Q = TRUE) THEN
			Tm1.IN := FALSE;
			Regim := 1;
		END_IF
	ELSE	(*----------------- crazy ----------------- *)
		Tm1.IN := FALSE;
		Regim := 1;
END_CASE

Таймер Tm1 не запускается, его Tm.ET не меняется, соответственно из Regim = 2 никуда не уходим.
Почему?

gTakt = 100мсек. Цикл ПЛК - 2...9999 мсек

С уважением,
Herzog

[Herzog]

Система ничего не пишет в фб. Это он обращается к системе. А для это должен выполнятся его код. В шаге 2 нет вызова кода таймера tm1. B третьем шаге та же байда.

Может быть подскажите, как правильно нужно было организовать работу таймера?

И второй вопрос - как организовать таймером или другим способом задержку на одну минуту?

С уважением,
Herzog

[swerder]

вызывайте таймеры до входа в CASE, в нужном варианте присваиваете входу in нужного таймера true и проверяете его выход:
Tm0(IN := perem0, PT := gTakt);
Tm1(IN := perem1, PT := gTakt);
CASE Regim OF
0: ------
1: perem1:=true;
2: IF (Tm1.Q = TRUE) THEN
perem0 := TRUE;
END_IF;
3: ---
END_CASE;

[Herzog]

вызывайте таймеры до входа в CASE, в нужном варианте присваиваете входу in нужного таймера true и проверяете его выход:

Спасибо, я уже разобрался.
За пределы case выносить не обязательно. Достаточно написать так:

2 : 	(*----------------- continue ON / begin OFF ----------------- *)
Tm1();
IF (Tm1.Q = TRUE) THEN
	Tm0( IN := TRUE, PT := gTakt );
	Out0 := OFF;	(* indicate meandr *)
	Regim := 3;
END_IF

Спасибо,
Herzog