Не могу добить код на ST

[Клаус]

Добрый вечер. Суть вопроса такая 40 датчиков температуры и 40 клапанов к каждому. Есть фиксированная температура уставки, соответственно опрашивается каждый датчик, и если T[i] превышает Ust, то клапан V[i] открывается до стабилизации темп-ры. И при этом, вот в этом и затык у меня почему-то, если хотя бы одна T[i]>Ust, то должно сигнализироваться (грубо говоря лампочка горит). Код на ST вот так выглядит (для простоты пока выбрал массив не из 40, а из 3 элементов), но вот хоть убей, клапана отрабатывают нормально, а вот лампочка загорается/гаснет, только когда выполняется условия для третьего клапана. Не могу понять, в чём дело? Понимаю, что задача фигня, но вот ступор какой-то. Особо программированием не занимался, если что, познаю сейчас.

PROGRAM PLC_PRG
VAR
Ust: REAL:=5;//Температура уставки
Temp: ARRAY [1..3] OF REAL;//Измеренная температура
Valve: ARRAY [1..3] OF BOOL;//Клапан
lamp: BOOL;//Сигнальная лампа
i: BYTE;
END_VAR

Тело программы

FOR i:=1 TO 3 DO;
IF Temp[i] > UST THEN
lamp:=TRUE;
Valve[i]:=TRUE;

ELSE
Valve[i]:=FALSE;
lamp:=FALSE;

END_IF
END_FOR

[melky]

Так у вас если НЕ, то лампа гаснет... Лампа то у вас не [i] а надо чтобы тоже бала lamp[i] и потом уже проверка, если хоть одна true то и лампочка Гори...

через OR все Valve[i] соберите и на лампу, без всяких уже там лампа true не true...

[Клаус]

Так лампа одна на все 40 узлов. Если на CFC я понимаю как сделать, то тут что-то никак. Но, на CFC это такое полотно получится )

[melky]

я вижу что одна. Ну вот клапан 2 сработал, а последний 40-й выключен и лампа у вас будет выключена вполне естественно.
Как вариант в своем цикле можете делать ADD на все ваши true и после цикла проверять >0 - лампа гори.
перед началом цикла соответственно обнулять переменную lamp

[Клаус]

Понял, попробую.

[melky]

можно так же, но потом в цикле проверять же. Лучше сделайте перед циклом lamp := 0;

если условие выполняется то lamp := lamp + 1;
если не выполняется, ничего не делайте, а после цикла IF lamp > 0 THEN "гори", если Не, то гасни...

[Клаус]

можно так же, но потом в цикле проверять же. Лучше сделайте перед циклом lamp := 0;

если условие выполняется то lamp := lamp + 1;
если не выполняется, ничего не делайте, а после цикла IF lamp > 0 THEN "гори", если Не, то гасни...

Спасибо огромное!!! Вот так заработало:

PROGRAM PLC_PRG
VAR
Ust: REAL:=5;//Температура уставки
Temp: ARRAY [1..3] OF REAL;//Измеренная температура
Valve: ARRAY [1..3] OF BOOL;//Клапана
lamp: BOOL;//Сигнальная лампа
xlamp: INT;
i: BYTE;
END_VAR

xlamp:=0;
FOR i:=1 TO 3 DO;
IF Temp[i] > UST THEN
xlamp:= xlamp + 1;
Valve[i]:=TRUE;
ELSE
Valve[i]:=FALSE;
END_IF
IF xlamp > 0 THEN Lamp:=TRUE;
ELSE lamp:=FALSE;
END_IF
END_FOR

[МихаилГл]

Можно было проще, вернее без суммирования. Я например для механизма с 32мя возможными авариями делаю так:
AlarmSum:=false
Далее в цикле:
If alarm(i) then alarmSum:=true
Условие "иначе" не ставлю, просто взвел бит и все.
И в итоге ваш код почти такой же, но не суммирую и не проверяю что больше нуля.

[МихаилГл]

Lamp:=false;
FOR i:=1 TO 3 DO;
IF Temp[i] > UST THEN
lamp:= true;
Valve[i]:=TRUE;
ELSE
Valve[i]:=FALSE;
END_IF
END_FOR

[Клаус]

Можно было проще, вернее без суммирования. Я например для механизма с 32мя возможными авариями делаю так:
AlarmSum:=false
Далее в цикле:
If alarm(i) then alarmSum:=true
Условие "иначе" не ставлю, просто взвел бит и все.
И в итоге ваш код почти такой же, но не суммирую и не проверяю что больше нуля.

Спасибо, возьму на вооружение!