Показано с 1 по 3 из 3

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

  1. #1

    По умолчанию ПЛК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

  2. #2
    Пользователь Аватар для Василий Кашуба
    Регистрация
    20.11.2011
    Адрес
    Ставрополь
    Сообщений
    2,428

    По умолчанию

    Цитата Сообщение от webage Посмотреть сообщение
    Подскажите как лучше реализовать задачу.
    Есть 4 шаровых крана и датчик протечек. Производитель кранов советует раз в месяц открывать и закрывать краны. Эту задачу я пытаюсь решить с помощью таймеров, открыть кран подождать 5 секунд и закрыть его, но что-то цикл не совсем правильно работает, а так же не могу понять как реализовать открытие кранов каждые 30 дней....
    Если все краны будете Закрывать/Открывать одновременно, то достаточно одного ФБ BLINK, а если раздельно, то четыре таких блока, на каждый кран отдельно, которые завязать на системное время.(Первого числа каждого месяца).
    Последний раз редактировалось Василий Кашуба; 10.01.2014 в 16:16.

  3. #3
    Пользователь
    Регистрация
    09.08.2013
    Адрес
    Башкортостан
    Сообщений
    213

    По умолчанию

    Поставил датчик протечки воды в котельной в дренажном приямке (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;
    Последний раз редактировалось Smith2007; 10.01.2014 в 22:05.

Похожие темы

  1. Продам ПЛК100-24.P-L и ПЛК100-220.P-L
    от victor_al в разделе Трёп (Курилка)
    Ответов: 0
    Последнее сообщение: 22.10.2013, 16:49
  2. регулирование клапаном с приводом 4-20мА
    от werg в разделе Подбор Оборудования
    Ответов: 8
    Последнее сообщение: 05.10.2012, 18:16
  3. ПКП1 с приводом задвижки AUMA
    от Юрий Вс в разделе Подбор Оборудования
    Ответов: 2
    Последнее сообщение: 03.09.2011, 12:52
  4. управление приводом.
    от ОлегБорода в разделе Подбор Оборудования
    Ответов: 6
    Последнее сообщение: 15.05.2010, 09:59
  5. господа вопрос по задвижке с эл. приводом(+)
    от незарегистрированный в разделе Подбор Оборудования
    Ответов: 1
    Последнее сообщение: 07.01.2008, 16:59

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •