Цитата Сообщение от Валенок Посмотреть сообщение
Попробывал еще уменьшить код
Код:
FUNCTION_BLOCK SR_TOF_R
VAR_INPUT
	IN: BOOL;
	PT: TIME;
END_VAR
VAR_OUTPUT
	Q: BOOL;
END_VAR
VAR
	F: R_TRIG;
	T: TOF;
END_VAR
---
F(CLK := IN);
T(IN := F.Q AND NOT T.Q, PT := SEL(F.Q AND T.Q, PT, T#0s), Q => Q);
Вот-же, ... Элегантно!