40 lines
908 B
Smalltalk
40 lines
908 B
Smalltalk
(*
|
||
===============================================================================
|
||
Project : PLC_Library
|
||
Device : -
|
||
Path : Общие
|
||
Name : Status_Connect_Counter
|
||
Type : FUNCTION_BLOCK
|
||
Exported : 2026-07-31 11:16:16
|
||
===============================================================================
|
||
*)
|
||
|
||
FUNCTION_BLOCK Status_Connect_Counter
|
||
(* Статус связи с СВУ по счетчику*)
|
||
VAR_INPUT
|
||
Counter: WORD;
|
||
T_Error: TIME; (* время для диагностирования ошибки*)
|
||
END_VAR
|
||
VAR_OUTPUT
|
||
CounterIsChanged: BOOL;
|
||
ERROR_CONNECT: BOOL;
|
||
END_VAR
|
||
VAR
|
||
CounterOld: WORD;
|
||
TON_SU: TON;
|
||
END_VAR
|
||
|
||
(*----- IMPLEMENTATION -----*)
|
||
TON_SU(IN:=(Counter = CounterOld), PT:=T_Error);
|
||
ERROR_CONNECT:=TON_SU.Q;
|
||
|
||
IF(Counter <> CounterOld) THEN
|
||
CounterIsChanged:=TRUE;
|
||
ELSE
|
||
CounterIsChanged:=FALSE;
|
||
END_IF
|
||
CounterOld:=Counter;
|
||
|
||
|
||
END_FUNCTION_BLOCK
|