32 lines
970 B
Smalltalk
32 lines
970 B
Smalltalk
(*
|
||
===============================================================================
|
||
Project : PLC_Library
|
||
Device : -
|
||
Path : Общие
|
||
Name : Status_SU_Connect
|
||
Type : FUNCTION_BLOCK
|
||
===============================================================================
|
||
*)
|
||
|
||
FUNCTION_BLOCK Status_SU_Connect
|
||
(*
|
||
Статус связи с СВУ по серцебиению
|
||
*)
|
||
VAR_INPUT
|
||
HeartBit: BOOL; (* Сигнал "сердцебиения" от СВУ *)
|
||
T_Pulse: TIME; (* Максимально допустимая длительность одного состояния HeartBit *)
|
||
END_VAR
|
||
VAR_OUTPUT
|
||
ERROR_CONNECT: BOOL; (* Флаг ошибки связи: HeartBit не меняется дольше T_Pulse *)
|
||
END_VAR
|
||
VAR
|
||
TON_SU_1: TON;
|
||
TON_SU_2: TON;
|
||
END_VAR
|
||
|
||
(*----- IMPLEMENTATION -----*)
|
||
TON_SU_1(IN:=HeartBit, PT:=T_Pulse);
|
||
TON_SU_2(IN:=NOT HeartBit, PT:=T_Pulse);
|
||
ERROR_CONNECT:=TON_SU_1.Q OR TON_SU_2.Q;
|
||
END_FUNCTION_BLOCK
|