ПЛК 160 циклическое включение выходов

[DKFLBVBH]

Уважаемые форумчане,
Прошу помощи с реализацией следующей задачи на ПЛК 160:
есть 3 дискретных выхода, каждый из них нужно запускать поочередно на 30 секунд в течении всего времени включения ПЛК в режиме "Работа".


Возможно кто-то из Вас уже решал подобную задачу, поделитесь пожалуйста идеями!!!
Всем отписавшимся заранее благодарен и поздравляю с наступающим Новым Годом!

[Yegor]

timer_ton(PT := T#30s, IN := NOT timer.Q);
outN := (outN + BOOL_TO_INT(timer.Q)) MOD 3;
DO1 := outN = 0;
DO2 := outN = 1;
DO3 := outN = 2;

[DKFLBVBH]

Очень прошу, можете расшифровку кода дать?

[Yegor]

VAR
timer_ton: TON;
outN: INT;
END_VAR

timer_ton(PT := T#30s, IN := NOT timer_ton.Q); (* Таймер на самосбросе, Q таймера равно TRUE раз в тридцать секунд *)
outN := (outN + BOOL_TO_INT(timer_ton.Q)) MOD 3; (* Инкремент outN по Q таймера, то есть +1 один раз в тридцать секунд. Рост ограничивается до 2 взятием остатка от деления на 3 *)
DO1 := outN = 0; (* DO1 = TRUE когда outN = 0 *)
DO2 := outN = 1;
DO3 := outN = 2;

Сессия шоль?

[Валенок]

Две последние строки не расшифрованы. И неясно когда DO1 = FALSE

[kolyan]

Две последние строки не расшифрованы. И неясно когда DO1 = FALSE

А смысл расшифровывать?!
DO2 присваивается TRUE когда outN = 1,
DO3 присваивается TRUE когда outN = 2.

DO1=FALSE, когда DO2 или DO3=TRUE.

Проверено, работает!
___________________________________________
Yegor, порадовали красивым решением, спасибо!

[Валенок]

Ну теперя DKFLBVBH точно разобрался ...

[kolyan]

Будем на это надеяться:D

[Yegor]

Yegor, порадовали красивым решением, спасибо!Спасибо и вам, но это решение на скорую руку. От лишней переменной можно избавиться размазав её по периоду таймера, например:
timer(PT := T#90s, IN := NOT timer.Q);
DO1 := timer.ET < T#30s;
DO3 := timer.ET > T#60s;
DO2 := DO1 XOR NOT DO3;

[Валенок]

А в SFC - вообще без переменных ))
15995

[kolyan]

Спасибо и вам, но это решение на скорую руку. От лишней переменной можно избавиться размазав её по периоду таймера, например:
timer(PT := T#90s, IN := NOT timer.Q);
DO1 := timer.ET < T#30s;
DO3 := timer.ET > T#60s;
DO2 := DO1 XOR NOT DO3;

Да, как, оказывается много красивых решений у одной задачи!

Валенок +1000!

[Yegor]

DO1 := DO2 := DO3 := FALSE;
CASE TIME_TO_DWORD(TIME()) MOD 3000 OF
0000..1000: DO1 := TRUE;
1001..2000: DO2 := TRUE;
2001..2999: DO3 := TRUE;
END_CASEТак чисто поржать.

[kolyan]

Самое первое и последнее решение будет оптимально, если надо уставку таймера изменить.
Во втором - много параметров нужно изменять)

[Валенок]

Много параметров ? тогда вот ))

[DKFLBVBH]

timer_ton(PT := T#30s, IN := NOT timer.Q);
outN := (outN + BOOL_TO_INT(timer.Q)) MOD 3;
DO1 := outN = 0;
DO2 := outN = 1;
DO3 := outN = 2;

БЛАГОДАРЮ, коротко и изящно! Где тут в карму плюсануть можно? :)

[Валенок]

Карма начинается с "р/с ...."