Таймер RTC помогите разобраться

[energvk]

И вообще... не мудрите:

PROGRAM PLC_PRG
VAR
	in: BOOL;			(* Ну вход, чо *)
	ticktock, starter: R_TRIG;	(* Один срабатывает ежесекундно, другой при каждом запуске *)
END_VAR
VAR RETAIN
	uptime, start_count: DWORD;	(* Тут храним время наработки в секундах и число запусков *)
END_VAR

ticktock(clk := TIME_TO_DWORD(TIME()) MOD 1000 > 500);
starter(clk := in);
uptime := uptime + BOOL_TO_DWORD(in AND ticktock.Q);
start_count := start_count + BOOL_TO_DWORD(starter.Q);

Не могу понять в чём подвох. Вроде отличный код, но почему http://www.owen.ru/forum/showthread....l=1#post136111 настолько замороченее?

[petera]

Не могу понять в чём подвох. Вроде отличный код, но почему http://www.owen.ru/forum/showthread....l=1#post136111 настолько замороченее?

Так разверните в этом варианте еще код двух используемых ФБ R_TRIG и добавьте вход для сброса времени наработки и будет не менее замороченее

[energvk]

Так разверните в этом варианте еще код двух используемых ФБ R_TRIG и добавьте вход для сброса времени наработки и будет не менее замороченее

Не знаю, по мне всё равно более читабельнее получается

[petera]

Не знаю, по мне всё равно более читабельнее получается

Так покажите, получавшийся читабельный код