программа на ST

[Ronnie008]

Всем здравствуйте. Прошу помочь с программой на ST. Только начал изучать язык. Допустим есть некий бункер с тензодатчиком (и преобраз. 4-20 мА). В бункер поступает крахмал, до достижению определенного веса (пусть будет 500кг) задвижка внизу открывается до тех пор пока весь крахмал не уйдет. Затем цикл начинается заново. Заранее спасибо

[alex55]

Здесь подобное обсуждалось может чем поможет http://www.owen.ru/forum/showthread....EB%FC%F2%E0%F2

[Ronnie008]

Мне непонятно как реализовать полную выгрузку из бункера по достижению 500 кг. Если использовать конструкцию IF *показания датчика* <500 THAN *задвижка на выгрузку закрыта* ELSE задвижка открыта. Но в таком случае как только вес достигнет 500, задвижка на выгрузку откроется, начнет убывать и станет допустим 499 кг задвижка тут же начнет закрываться и бункер дальше заполняться, а мне нужно дождаться полного опустошения бункера, то есть уменьшить вес в бункере до 0 и начать загрузку до 500 заново.

[lara197a]

по фронту. как =500 выставляйте флаг бункер наполнен.
как =0, по фронту этот флаг сбрасывайте.
тригер RS вам в помощь.

[Eugene.A]

А почему не
"использовать конструкцию IF *показания датчика* <5 THEN *задвижка на выгрузку закрыта* ELSE задвижка открыта."?
5 кГ на налипание крахмала на стенки бункера.
Иначе можно никогда нуля не дождаться.

[Ronnie008]

но тогда как только вес станет 6 кг задвижка откроется, а мне нужно забить бункер до 500 кг, или я что то не так понял?

[melky]

Посмотрите как работают триггера

[_Mikhail]

но тогда как только вес станет 6 кг задвижка откроется, а мне нужно забить бункер до 500 кг, или я что то не так понял?

Вам же написали : используйте RS-триггер

[Ronnie008]

Хорошо, спасибо

[ferret_maybe]

Попробуй...одно из решений для управления. Для обработки аналогового сигнала можешь пока сам пиши.
FUNCTION_BLOCK tank
VAR_INPUT
Full:BOOL; (*Sensors*)
empty:BOOL;
EN: BOOL;
END_VAR
VAR_OUTPUT
CmdValveOpen:BOOL; (*Control of valves*)
CmdValveClose:BOOL;

ENO: BOOL;
END_VAR
VAR
State:INT:=0; (*states of tank*)
END_VAR

IF EN=TRUE THEN
ENO:=TRUE;
CASE State OF
0:
IF Full AND Empty THEN
State:=1;
END_IF;
CmdValveOpen:=FALSE;
CmdValveClose:=TRUE;

1:
IF Full=FALSE AND empty=TRUE THEN
State:=2;
END_IF;
CmdValveOpen:=TRUE;
CmdValveClose:=FALSE;

2: (*valves is opened*)
IF Full=FALSE AND empty=FALSE THEN
State:=0;
END_IF;
CmdValveOpen:=FALSE;
CmdValveClose:=FALSE;
ELSE
State:=0;
END_CASE;
ELSE
ENO:=FALSE;
END_IF;