You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

92 lines
1.2 KiB

4 months ago
FUNCTION_BLOCK BS_DevHeartCheck
VAR_EXTERNAL
END_VAR
VAR_INPUT
DHV :INT;
END_VAR
VAR_OUTPUT
DHR :BOOL;
END_VAR
VAR
DHVT :INT;
TON01 :TON;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
END_VAR
(** **)
(** {* **)
(** **)
(** ʱ �䣺20191003 **)
(** �� ����1.0 **)
(** �� �ߣ�Ҧ�� **)
(** �� �ƣ��豸�������� **)
(** ˵ ���� **)
(** �� ע�� **)
(** �����飺�� **)
(** **)
(** *} **)
(** **)
(** {* **)
(** **)
(** **)
(** **)
(** *} **)
(** TON01(PT:=t#60s); **)
(* call - Stmt *)
CAL TON01 (
PT := t#60s
)
(** **)
(** if DHV=DHVT then **)
(* if - Cond *)
LD DHV
EQ DHVT
JMPCN ODK_SKIP_000000000000001_000000000000001
(* then - Stmts *)
(** TON01.IN:=1; **)
(* assign - Stmt *)
LD 1
ST TON01.IN
(** DHVT:=DHV; **)
(* assign - Stmt *)
LD DHV
ST DHVT
JMP ODK_END_IF_000000000000001
(** else **)
(* else *)
ODK_SKIP_000000000000001_000000000000001:
(* else - Stmts *)
(** TON01.IN:=0; **)
(* assign - Stmt *)
LD 0
ST TON01.IN
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000001:
(** **)
(** DHR := not TON01.Q; **)
(* assign - Stmt *)
LD TON01.Q
NOT
ST DHR
(** **)
(** **)
END_FUNCTION_BLOCK