Была задача управления моторизованной задвижкой без обратной связи ни по концевикам ни по положению - в приводе отсутствовали для подключения и те и другие. А заказчик требовал снимать напряжение при расчётном достижении крайних положений. Хоть сразу на скорую руку просто сделал импульсы заданной длины, позже собрал модель моторизованной задвижки.
///<Description>Эмулятор задвижки, меняющей состояние под воздействием трёхпозиционнгог регулятора.</Description>
///<Author>!!FPA!!</Author>
///<GroupName>Управляющие и регулирующие модули</GroupName>
function_block Emulator_Damper_
var_input
///<Description>Сигнал Открыть</Description>
xOpen: BOOL;
///<Description>Сигнал Закрыть</Description>
xClose: BOOL;
///<Description>Время полного хода задвижки, мс</Description>
udiFullStroke: udint;
///<Description>Время выборки люфта задвижки при открытии</Description>
udiBacklash_Open: udint;
///<Description>Время выборки люфта задвижки при закрытии</Description>
udiBacklash_Close: udint;
///<Description>Верхний предел обратного сигнала задвижки (положения). Для задвижки с контролем положения</Description>
rPos_Max: REAL:=100.0;
///<Description>Нижний предел обратного сигнала задвижки (положения). Для задвижки с контролем положения</Description>
rPos_Min: REAL:=0.0;
end_var
var_output
///<Description>Обратный сигнал задвижки. Для задвижки с контролем положения</Description>
rPos: REAL;
///<Description>Сигнал верхнего предела задвижки</Description>
bOpened: BOOL;
///<Description>Сигнал нижнего предела задвижки</Description>
bClosed: BOOL;
end_var
var
udiCurrent, udiCycle: udint;
udiPrevious: udint := 0;
udiBacklash_Open_: udint; // выбранная часть люфта при открытии
udiBacklash_Close_: udint; // выбранная часть люфта при закрытии
udiRunTime: udint; // часть времени udiCycle, потраченная на перемещение
rFullStroke: real;
h: real;
end_var
// вычисление длительности текущего цикла
udiCurrent := time_to_udint(get_time());
udiCycle := udiCurrent - udiPrevious;
udiPrevious := udiCurrent;
// обработка люфта - часть сигнала перемещения расходуется на компенсацию люфта
udiRunTime := udiCycle;
if xOpen then
if udiRunTime <= udiBacklash_Close_ then
udiBacklash_Close_ := udiBacklash_Close_ - udiRunTime;
else
udiBacklash_Close_ := 0;
end_if;
if udiBacklash_Open_ < udiBacklash_Open then
udiBacklash_Open_ := udiBacklash_Open_ + udiRunTime;
if udiBacklash_Open_ > udiBacklash_Open then
udiRunTime := udiBacklash_Open_ - udiBacklash_Open;
udiBacklash_Open_ := udiBacklash_Open;
else
udiRunTime := 0;
end_if;
end_if;
end_if;
if xClose then
if udiRunTime <= udiBacklash_Open_ then
udiBacklash_Open_ := udiBacklash_Open_ - udiRunTime;
else
udiBacklash_Open_ := 0;
end_if;
if udiBacklash_Close_ < udiBacklash_Close then
udiBacklash_Close_ := udiBacklash_Close_ + udiRunTime;
if udiBacklash_Close_ > udiBacklash_Close then
udiRunTime := udiBacklash_Close_ - udiBacklash_Close;
udiBacklash_Close_ := udiBacklash_Close;
else
udiRunTime := 0;
end_if;
end_if;
end_if;
// вычисление положения задвижки, концевых переключателей
rFullStroke := udint_to_real(udiFullStroke);
h := (rPos_Max - rPos_Min) * udint_to_real(udiRunTime);
if xOpen then
rPos := rPos + h / rFullStroke;
end_if;
if xClose then
rPos := rPos - h / rFullStroke;
end_if;
if rPos >= rPos_Max then
rPos := rPos_Max;
bOpened := true;
bClosed := false;
elsif rPos <= rPos_Min then
rPos := rPos_Min;
bOpened := false;
bClosed := true;
else
bOpened := false;
bClosed := false;
end_if;
end_function_block
Модель можно использовать для требуемого преобразования импульсов управления 3-позиционным приводом в аналоговый сигнал.
В коде есть комментарии к переменным, их назначение можно понять.
Задавайте люфт равным нулю, значение выхода от 0,0 до 1,0, время полного хода от 30 до 90 секунд (30000...90000 мс).
Должно работать.
Мне кажется, что тип выхода в ПР200 настраивается перемычками, а может и путаю.
Ошибся в примере с моделью ПР200, не увидел её в первом сообщении, ну да ничего страшного - переделаете...
Если не знаете, что исправить - спрашивайте.