управление заслонками программируемым реле Owen ПР100-24

[kip747483]

Доброго времени суток. Поставлена задача управлять двумя заслонками перекачки конденсата. Имеется поплавковый датчик ПДУ на 3 шарика, экм, программируемое реле Owen ПР100-24.1208.03.0. Это первый опыт работы с подобным прибором и с Owen Logic в целом.
описание:
Конденсат с бойлеров накапливается в баке и циркулирует через Фильтр, при этом заслонка 6 открыта, заслонка 25 закрыта. Дойдя до верхнего уровня ВУ заслонка 6 закрывается, заслонка 25 открывается, конденсат откачивается в деаэратор. Дойдя до нижнего уровня НУ 25 заслонка закрывается, 6 открывается и снова циркулирует через фильтр.
При отсутствии давления в системе горит лампа, работает пищалка, заслонка 6 откр, 25 закр. при нижнем аварийном горит лампа и работает пищалка.

критика и тапки приветствуются, если что то намудрили то будем рады совету как упростить. (время хода заслонки взято условно)

[kip747483]

https://wdfiles.ru/cc6864
проект в Owen Logic

[alex45]

Вместо времени хода необходимо задействовать концевые выключатели задвижек. Также необходимо реализовать контроль моментных выключателей для обеспечения уплотнённого закрытия и контроля заклинивания.

[olexsa]

По концевикам поддерживаю alex45. Но с небольшим уточнением - уплотнение акутально для клиновых задвижек. Для шиберных не применимо. Но для контроля заклинивания, и превышения крутящего момента для задвижки, дабы ее не сломать очень актуально. Баллы в "карму" будут от преподавателя
Время хода можно использовать в рамках наращивания проекта а получания дополнительных баллов за работу. То есть имеем какое то время ходя задвижки. Увеличиваем его к примеру процентов на 10 %. И при включении в движение привода включатеся таймер времени движения задвижки. Если задвижка не дошла до концевого за заданное время, "сваливается" в аварию.

Отправлено спустя 3 минуты 20 секунд:
Если уж есть нижний аварийный уровень, что мешает добавить верхний аварийный уровень?

[keysansa]

Вместо времени хода необходимо задействовать концевые выключатели задвижек. Также необходимо реализовать контроль моментных выключателей для обеспечения уплотнённого закрытия и контроля заклинивания.

Смысла нет, достаточно таймаут по датчикам уровня. Просто поставить уровень на 1-2 см ниже. Однако, поддержу, что датчик "закрыто" должен быть на каждой задвижке, но это второстепенно. Задача - опустошение бака, а не контроль задвижек.

Отправлено спустя 46 минут 10 секунд:

критика и тапки приветствуются

Обзовите I2, I3... Q... смысловыми именами (HiLe,LoLe) Комментарии хорошо, но они лучше для логики работы.

[kip747483]

уточню. в качестве запорной арматуры стоят: ЗАТВОР ДИСКОВЫЙ ПОВОРОТНЫЙ С ЭЛЕКТРОПРИВОДОМ МЭОФ, типо такого.
концевые выключатели на мэо задействованы в физ схеме, их не видно на проекте, вторая пара концевых будет на щите зажигать лампы положения отк или закр каждого затвора. так же будут тумблеры перевода на ручное управление и отключения звукового сигнала

[keysansa]

концевые выключатели на мэо задействованы в физ схеме, их не видно на проекте

Рекомендую ввести в проект, хотя бы для самодиагностики.
Это конечно не обязательно, но сократит время нахождения неисправности.

[kip747483]

мм.. не совсем понимаю как это сделать)

[keysansa]

мм.. не совсем понимаю как это сделать)

У вас все входы ПР100 заняты?

Если знаете ST (на оwen logic я еще не успер макросы наделать),

[+]

FUNCTION_BLOCK Vlv2I1O (*Управление задвижкой (два датчика "Закрыт" и "Открыт", один клапан "Открыть")*)
VAR_INPUT
jEnableOpen : BOOL; (*Разрешение "Открыть"*)
jOpen : BOOL; (*Задание "Открыть"*)
iOpened : BOOL; (*Датчик "Открыт"*)
iClosed : BOOL; (*Датчик "Закрыт"*)
iTOTime : TIME; (*Таймаут за "Открывание/Закрывание"*)
jReset : BOOL; (*Сброс состояний и ошибок*)
END_VAR
VAR_OUTPUT
oOpen : BOOL; (*Реле "Открыть"*)
oSTOpened : BOOL; (*Состояние "Открыт"*)
oSTClosed : BOOL; (*Состояние "Закрыт"*)
oETOOpen : BOOL; (*Ошибка "Таймаут открывания"*)
oETOClose : BOOL; (*Ошибка "Таймаут закрывания"*)
oEShillSens : BOOL; (*Ошибка "Ошибка датчиков (одновременно оба)"*)
oSErr : BOOL; (*Состояние: Есть ошибки*)
END_VAR
VAR
TClosed : TON;
TOpened : TON;
TTOOpen : TON;
TTOClose : TON;
END_VAR
END_FUNCTION_BLOCK

(***********************************************************************************
* Однопозиционная заслонка
*
* Заслонка имеет два датчика "Закрыта" и "Открыта", и один клапан "Открыть".
* При oOpen = TRUE, заслонка открывается, в обратном случае, закрывается.
*
*
***********************************************************************************)
(* Заслонка, 2 входа, 1 выход *)
FUNCTION_BLOCK Vlv2I1O
(* **************** Состояния ***************** *)
TClosed(IN:= (NOT iOpened AND iClosed), PT:= SENSOR_DELAY);
TOpened(IN:= (iOpened AND NOT iClosed), PT:= SENSOR_DELAY);
oSTClosed:= TClosed.Q;
oSTOpened:= TOpened.Q;
oSErr:= (oETOOpen OR oETOClose OR oEShillSens);
(* **************** Ошибки ***************** *)
TTOOpen(IN:= NOT jReset AND (oOpen AND NOT iOpened), PT:= iTOTime);
TTOClose(IN:= NOT jReset AND (NOT oOpen AND NOT iClosed), PT:= iTOTime);
Error(jReset, TTOOpen.Q, oETOOpen);
Error(jReset, TTOClose.Q, oETOClose);
Error(jReset, iOpened AND iClosed, oEShillSens);
(* **************** Выходы ***************** *)
oOpen:= jOpen AND jEnableOpen AND NOT oSErr;
END_FUNCTION_BLOCK


FUNCTION_BLOCK Vlv2I2O (*Управление задвижкой (два датчика "Закрыт" и "Открыт", два клапана "Открыть" и "Закрыть")*)
VAR_INPUT
Jobs : exValveButtons; (*Задания заслонке*)
Enable : exValveButtons; (*Разрешения заслонки*)
iOpened : BOOL; (*Датчик "Открыт"*)
iClosed : BOOL; (*Датчик "Закрыт"*)
iTOTime : TIME; (*Таймаут за "Открывание/Закрывание"*)
jReset : BOOL;
END_VAR
VAR_OUTPUT
oClose : BOOL; (*Реле: "Закрыть"*)
oOpen : BOOL; (*Реле: "Открыть"*)
oSTOpened : BOOL; (*Состояние: "Открыт"*)
oSTClosed : BOOL; (*Состояние: "Закрыт"*)
oSErr : BOOL; (*Состояние: "Есть ошибки"*)
oETOOpen : BOOL; (*Ошибка: "Таймаут открывания"*)
oETOClose : BOOL; (*Ошибка: "Таймаут закрывания"*)
oEShillJob : BOOL; (*Ошибка: "Ошибка задания (одновременно оба)"*)
oEShillSens : BOOL; (*Ошибка: "Ошибка датчиков (одновременно оба)"*)
END_VAR
VAR
TClosed : TON;
TOpened : TON;
TTOOpen : TON;
TTOClose : TON;
END_VAR
END_FUNCTION_BLOCK

(***********************************************************************************
* Двухпозиционная заслонка
*
* Заслонка имеет два датчика "Закрыта" и "Открыта", и два клапана "Открыть" и "Зактрыть".
* При oOpen = TRUE, заслонка открывается, При oClose = TRUE закрывается.
* В режиме симуляции, датчики "Закрыта" и "Открыта" не учитываются, и ошибки
* по таймаутам не формируются.
***********************************************************************************)
(* Заслонка, 2 входа, 2 выхода *)
FUNCTION_BLOCK Vlv2I2O
(* **************** Состояния ***************** *)
TClosed(IN:= (NOT iOpened AND iClosed), PT:= SENSOR_DELAY);
TOpened(IN:= (iOpened AND NOT iClosed), PT:= SENSOR_DELAY);
oSTClosed:= TClosed.Q;
oSTOpened:= TOpened.Q;
oSErr:= (oETOOpen OR oETOClose OR oEShillSens OR oEShillJob);
(* **************** Ошибки ***************** *)
TTOOpen(IN:= NOT jReset AND (oOpen AND NOT iOpened), PT:= iTOTime);
TTOClose(IN:= NOT jReset AND (oClose AND NOT iClosed), PT:= iTOTime);
Error(jReset, TTOOpen.Q, oETOOpen); // Таймаут открывания
Error(jReset, TTOClose.Q, oETOClose); // Таймаут закрывания
Error(jReset, iOpened AND iClosed, oEShillSens); // Ошибка датчиков (одновременно оба)
Error(jReset, Jobs.Open AND Jobs.Close, oEShillJob); // Ошибка задания (одновременно оба)
(* **************** Выходы ***************** *)
oOpen:= Jobs.Open AND NOT Jobs.Close AND Enable.Open AND NOT oETOOpen AND NOT oSTOpened AND NOT oClose;
oClose:= Jobs.Close AND NOT Jobs.Open AND Enable.Close AND NOT oETOClose AND NOT oSTClosed AND NOT oOpen;
END_FUNCTION_BLOCK


ЗЫ. Функция Error - это аналог SR триггера, просто что бы не плодить FB, а обойтись FC. Set - ошибка, Res - jReset.