ПЛК100 R.L. и шаровые краны с электро приводом

Подскажите как лучше реализовать задачу.
Есть 4 шаровых крана и датчик протечек. Производитель кранов советует раз в месяц открывать и закрывать краны. Эту задачу я пытаюсь решить с помощью таймеров, открыть кран подождать 5 секунд и закрыть его, но что-то цикл не совсем правильно работает, а так же не могу понять как реализовать открытие кранов каждые 30 дней. На данный момент есть такой код:

Код:

---

        tim1:TON;
              tim2:TON;
              tim3:TON;
              tim4:TON;
            check_faucet: BOOL;     
_____________________________________________

        IF input_6=TRUE THEN
        output_6:=TRUE;
              check_faucet:=TRUE;
        END_IF

        IF check_faucet=TRUE THEN
        tim1(IN:=check_faucet , PT:=T#10s );
              output_5:= tim1.Q;
        END_IF

              tim2(IN:=check_faucet , PT:=T#5s , Q=> , ET=> );
              IF output_6=tim2.Q THEN
              output_6:=FALSE;
              END_IF

        tim3(IN:=check_faucet , PT:=T#15s , Q=> , ET=> );
              IF output_5= tim3.q THEN
              output_5:=FALSE;
          END_IF

---

Цитата:

---

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

Подскажите как лучше реализовать задачу.
Есть 4 шаровых крана и датчик протечек. Производитель кранов советует раз в месяц открывать и закрывать краны. Эту задачу я пытаюсь решить с помощью таймеров, открыть кран подождать 5 секунд и закрыть его, но что-то цикл не совсем правильно работает, а так же не могу понять как реализовать открытие кранов каждые 30 дней....

---

Если все краны будете Закрывать/Открывать одновременно, то достаточно одного ФБ BLINK, а если раздельно, то четыре таких блока, на каждый кран отдельно, которые завязать на системное время.(Первого числа каждого месяца).

Поставил датчик протечки воды в котельной в дренажном приямке (2 электрода вывел на МК110-4Р), а на вводе сетевой воды поставил вентиль с электроприводом Gidrolock.
Управление последним с дискретного выхода ПЛК110-30.
По паспорту на вентиль - время полного закрытия 20 сек.
В случае обнаружения протечки:
1. Закрываем вентиль
2. Включаем дренажный насос
3. Сообщение в лог-файл
4. Сообщение на СМС

При осушении датчика протечки - отключаем дренажный насос. Для открытия вентиля необходимо в ручную сбросить флаг протечки.
Ну и добавил управление вентилем по СМС.

Цитата:

---

(* датчик протечки *)
Water0 := MK110in.3;


Sys_DateTime := Z;
GetTime (SystemTime:=Sys_Time , TimeDate:= Sys_DateTime);


(* 1-ого и 15 числа каждого месяца в 3 часа ночи закрываю кран на 1 минуту и открываю вновь *)
IF (Sys_DateTime.Day = 1 OR Sys_DateTime.Day = 15) AND Sys_DateTime.Hour = 3 AND Sys_DateTime.Minute = 1 THEN
TestLock := TRUE;
ELSE
TestLock := FALSE;
END_IF;


TONLock( IN := Water0, PT := t_idle1);
IF TONLock.Q THEN (* Фильтр на датчик протечки от случайных помех *)
AlertWater := TRUE;
END_IF;


Pompa := TONLock.Q;
GLock := AlertWater OR TestLock OR cmdGLock;


ePompa_ON( CLK:= Pompa);
IF ePompa_ON.Q THEN
eText := CONCAT( PrintDateTime(), 'Pompa=ON' );
AlertLog( TextLog := eText );
END_IF;


ePompa_OFF( CLK:= Pompa);
IF ePompa_OFF.Q THEN
eText := CONCAT( PrintDateTime(), 'Pompa=OFF' );
AlertLog( TextLog := eText );
END_IF;


eGLock_ON( CLK := GLock );
IF eGlock_ON.Q THEN
eText := CONCAT( PrintDateTime(), 'GLock=ON' );
AlertLog( TextLog := eText );
END_IF;


eGLock_OFF( CLK := GLock );
IF eGlock_OFF.Q THEN
eText := CONCAT( PrintDateTime(), 'GLock=OFF' );
AlertLog( TextLog := eText );
END_IF;


IF TONLock.Q THEN
Control[8].Alert := TRUE;
Control[8].Msg := 'Обнаружена утечка воды в котельной!';
ELSE
Control[8].Alert := FALSE;
Control[8].Msg := '';
END_IF;

---