Помогите разобраться...

Всем спасибо за участие! Буду пробовать дальше... :)

Ты это, аккуратней там с АЭС.. Вишь как бывает

Что бы два раза не вставать...

Я тут приложил свой первый проектик умнодомный... Что-то у меня там там в ФБ Prisut не хочет переменная назначаться... Очередная загадка...:confused:

Поможите, кто чем может. На всякие формулы и вычисления можно не обращать внимания - они работают как надо... :)

Цитата:

---

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

какой смысл вкладывали в эту фразу?
У Вас TOF_DOWN_D.Q вначале ИСТИНА, соответственно тело условия выполняется, а в нем (в теле) есть присвоение выходу некоторого значения и логичнее всего, это ноль, а далее в следующей строчке после блока, выход присваивается тому что подается на вход, так что идущие приращения до этой точки теряют смысл, тем более Вы из инта превращаете в байт, что ведет к загрублению и опять же в начале все будет равно нулю

---

Утром глянул на написанное - действительно фигня какая-то... :mad:
Да и TOF здесь не подойдет... Попробую фомализовать задачу.

Добавил в ФБ Prisut входную переменную pp - сигнал с датчика движения..
IF NOT pp THEN (*пропало движение*)
"начинаем медленно уменьшать яркость (OUT1) до нуля";
ELSIF pp AND OUT1 > 0 THEN (*пропало движение, но кто-то обратно вошел или пошевелился*)
OUT1 := light; (*возвращаем яркость как было*)
END_IF

Как сделать медленный декремент? :confused:

Вот моя глушилка резких движений для аналогового выхода:

Код:

---

VAR
        MaxOutputDelta: REAL;
        PrevScanTimestamp: TIME;
END_VAR

MaxOutputDelta := TIME_TO_REAL(TIME() - PrevScanTimestamp) * 0.016;
AO1 := AO1 + LIMIT(-MaxOutputDelta, Power - AO1, MaxOutputDelta);
PrevScanTimestamp := TIME();

---

AO1 — аналоговый выход, Power — уставка, 0.016 — максимальное изменение в вольтах за миллисекунду.

Так. Оставим пока в покое медленный декремент, продолжим мозгоштурм.

Программа:

Код:

---

PROGRAM PLC_PRG
VAR
        TT : INT := 100;
        QQ : INT;
END_VAR

QQ := TT;
IF  DI1 AND TT >0 THEN
        TT := TT - 1;
 ELSE
        TT := QQ;
END_IF

---

В этом случае QQ будет равно тому, до чего успела уменьшится TT.

А как сохранить эту QQ ??? :confused:

Код:

---

VAR RETAIN
        QQ: INT;
END_VAR

---

Цитата:

---

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

Код:

---

VAR RETAIN
        QQ: INT;
END_VAR

---

---

Это немного не то. Я так понимаю, что VAR RETAIN - это энергонезависимая переменная. Но она все равно будет меняться с TT.

Цитата:

---

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

по этому коду переменная будет равна нулю, Вы ноль хотите сохранить?

---

Какая переменная? QQ ? Я же говорю, что она меняется так же, как ТТ... от 100 до 0..

Но, решение почти есть:

Код:

---

PROGRAM PLC_PRG
VAR
        TT : INT := 100;
        QQ : INT;
        INIT_VAR : BOOL := 1;
END_VAR

IF INIT_VAR THEN
        QQ := TT;
        INIT_VAR := 0;
END_IF

IF  DI1 AND TT >0 THEN
        TT := TT - 1;
 ELSE
        TT := QQ;
END_IF

---

Осталось вписать его в мой проект... :)

Ну так поставьте задачу лучше. Что вы понимаете под сохранением в данном случае?

Цитата:

---

Но, решение почти есть

---

В вашем решении можно выкинуть INIT_VAR вместе с ифом и написать TT, QQ: INT := 100 ничего при этом не потеряв.