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

[Yegor]

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

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

[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]

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

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

[TaPX]

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

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

А объясните, пожалуйста, строчку ticktock(...) - что за МОD, и как это все там работает?

[Dimensy]

А объясните, пожалуйста, строчку ticktock(...) - что за МОD, и как это все там работает?

Первый раз ticktock сработает когда time будет 501 мс, потом сработает при 1501 мс, 2501 мс и т.д.

[kondor3000]

А объясните, пожалуйста, строчку ticktock(...) - что за МОD, и как это все там работает?

Что такое MOD, можно прочитать в справке по F1, выделив нужное мышью. Тогда станет понятно, почему срабатывает раз в секунду.

[TaPX]

Что такое MOD, можно прочитать в справке по F1, выделив нужное мышью. Тогда станет понятно, почему срабатывает раз в секунду.

это ж в кодесис?

[kondor3000]

это ж в кодесис?

А вы код в уме рассматриваете? Скопируйте программу в Кодесис и смотрите как работает. Тоже самое касается и функции TIME(); и TIME_TO_DWORD,
выделите мышью с нажмите F1.