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

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

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

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

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

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

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

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

Цитата:

---

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

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

---

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

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

Попробуй...одно из решений для управления. Для обработки аналогового сигнала можешь пока сам пиши.
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;

Здравствуйте, Ронни008.

Цитата:

---

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

Мне непонятно как реализовать полную выгрузку из бункера по достижению 500 кг.

---

Во время выгрузки каждые 2-10 сек проверяйте массу бункера, если текущая масса бункера отличается от предыдущей менее чем на 5% значит бункер пуст)
Само собой подбираем время и выше указанный процент по месту на реальном объекте.

Код:

---

IF Бункер=>499.9кг AND Задвижка=FALSE THEN
                  Остановить загрузку бункера;
                  Выдержать паузу;
                  Открыть задвижку выгрузки;
                  Задвижка:=TRUE;
END_IF;
IF Бункер=<0.1кг AND Задвижка=TRUE THEN 
                  Закрыть задвижку выгрузки;
                  Выдержать паузу;
                  Включить загрузку бункера;
                  Задвижка:=FALSE;
END_IF;

---

Как-то так.

Подскажите как это: Вложение 35976 выразить в ST.

Цитата:

---

Сообщение от Эдуард_Н

Подскажите как это: Вложение 35976 выразить в ST.

---

искользуйте функцию SEL или IF или CASE

Можно и дословно перенести:

Код:

---

TH:=MUX(SELECT, T#1s, T#1m, T#1h, T#1d);

---

Цитата:

---

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

искользуйте функцию SEL или IF или CASE

---

Как с IF сделать?
Пробовал так:
IF SELECT: = 0 THEN TH: = T#1s;
IF SELECT: = 1 THEN TH: = T#1m;
IF SELECT: = 2 THEN TH: = T#1h;
IF SELECT: = 3 THEN TH: = T#1d;

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

IF SELECT=0 THEN
TH:= T#1s;
ELSIF SELECT=1 THEN
TH:= T#1m;
ELSIF SELECT=2 THEN
TH:= T#1h;
ELSIF SELECT =3
THEN TH:= T#1d;
END_IF

лучше через CASE
А вообще в справке КДС есть примеры

Спасибо, все примеры интересны. Будем пробовать.

Цитата:

---

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

IF SELECT: = 0 THEN
TH: = T#1s;
ELSIF SELECT: = 1 THEN
TH: = T#1m;
ELSIF SELECT: = 2 THEN
TH: = T#1h;
ELSIF SELECT: = 3 THEN
TH: = T#1d;
END_IF

лучше через CASE
А вообще в справке КДС есть примеры

---

Пишет ошибки:
Для "IF" или "ELSIF" в качестве условия необходимо логическое выражение
Должно быть THEN перед ";"

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

Цитата:

---

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

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

---

Спасибо.
Все эти пробелы и т.п. когда их ставит когда не надо, голова кругом.

case select of
0: th := t#1s;
1: th := t#1m:
2: th := t#1h;
3: th := t#1d;
end_case;

Цитата:

---

Сообщение от Валенок

th := mux(select, t#1s, t#1m, t#1h, t#1d);

---

Так ведь уже было - см. #15.

Цитата:

---

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

case select of
0: th := t#1s;
1: th := t#1m:
2: th := t#1h;
3: th := t#1d;
end_case;

---

что будет если select >3 ?