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

[kosmas]

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

[Валенок]

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

[kosmas]

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

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

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

[kosmas]

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

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

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

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

[Yegor]

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

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 — максимальное изменение в вольтах за миллисекунду.

[kosmas]

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

Программа:

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 ???

[Yegor]

VAR RETAIN
	QQ: INT;
END_VAR

[kosmas]

VAR RETAIN
	QQ: INT;
END_VAR

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

[kosmas]

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

Какая переменная? 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

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

[Yegor]

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

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

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