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

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


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

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;

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

Код:

---

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

Цитата:

---

Сообщение от Валенок

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

---

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

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

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

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

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

Цитата:

---

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

Цитата:

---

Сообщение от Yegor

Спасибо и вам, но это решение на скорую руку. От лишней переменной можно избавиться размазав её по периоду таймера, например:

Код:

---

timer(PT := T#90s, IN := NOT timer.Q);
DO1 := timer.ET < T#30s;
DO3 := timer.ET > T#60s;
DO2 := DO1 XOR NOT DO3;

---

---

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

Валенок +1000!

Код:

---

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

---

Так чисто поржать.

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

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

Цитата:

---

Сообщение от 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;

---

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

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