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.

279 lines
5.4 KiB

4 months ago
PROGRAM LIGHT
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
LCB03H01_SyncControl : IJ_LCB1030;
LCB03H01_LGI : array[0..10,0..30] of bool;
LCB03H01_LGO : array[0..10,0..30] of bool;
LCB04H01_SyncControl : IJ_LCB1030;
LCB04H01_LGI : array[0..10,0..30] of bool;
LCB04H01_LGO : array[0..10,0..30] of bool;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
LLCB03H02_C : BOOL;
RNILCB04X0D_C : BOOL;
RNILCB03X0D_C : BOOL;
RNILCB04X0A_C : BOOL;
RNILCB03X0A_C : BOOL;
LLCB03H05_C : BOOL;
RNILCB04X0E_C : BOOL;
RNILCB03X0E_C : BOOL;
RNILCB04X0B_C : BOOL;
RNILCB03X0B_C : BOOL;
SYS_RUN : BOOL;
RNILCB04X0G_C : BOOL;
RNILCB03X0G_C : BOOL;
LLCB03H03_C : BOOL;
LLCB04H01_C : BOOL;
LLCB03H01_C : BOOL;
LLCB03H04_C : BOOL;
RNILCB04X0F_C : BOOL;
RNILCB03X0F_C : BOOL;
RNILCB04X0C_C : BOOL;
RNILCB03X0C_C : BOOL;
RNILCB04X0H_C : BOOL;
RNILCB03X0H_C : BOOL;
END_VAR
(** if SYS_Run=0 then **)
(* if - Cond *)
LD SYS_Run
EQ 0
JMPCN ODK_SKIP_000000000000001_000000000000001
(* then - Stmts *)
(** **)
(** {*��������*} **)
(** LCB03H01_LGI[1,0]:=RNILCB03X0A_C; **)
(* assign - Stmt *)
LD RNILCB03X0A_C
ST LCB03H01_LGI[1,0]
(** LCB03H01_LGI[2,0]:=RNILCB03X0B_C; **)
(* assign - Stmt *)
LD RNILCB03X0B_C
ST LCB03H01_LGI[2,0]
(** LCB03H01_LGI[3,0]:=RNILCB03X0C_C; **)
(* assign - Stmt *)
LD RNILCB03X0C_C
ST LCB03H01_LGI[3,0]
(** LCB03H01_LGI[4,0]:=RNILCB03X0D_C; **)
(* assign - Stmt *)
LD RNILCB03X0D_C
ST LCB03H01_LGI[4,0]
(** LCB03H01_LGI[5,0]:=RNILCB03X0E_C; **)
(* assign - Stmt *)
LD RNILCB03X0E_C
ST LCB03H01_LGI[5,0]
(** LCB03H01_LGI[6,0]:=RNILCB03X0F_C; **)
(* assign - Stmt *)
LD RNILCB03X0F_C
ST LCB03H01_LGI[6,0]
(** LCB03H01_LGI[7,0]:=RNILCB03X0G_C; **)
(* assign - Stmt *)
LD RNILCB03X0G_C
ST LCB03H01_LGI[7,0]
(** LCB03H01_LGI[8,0]:=RNILCB03X0H_C; **)
(* assign - Stmt *)
LD RNILCB03X0H_C
ST LCB03H01_LGI[8,0]
(** **)
(** {*��·����*} **)
(** LCB03H01_LGI[1,1]:=LLCB03H01_C; **)
(* assign - Stmt *)
LD LLCB03H01_C
ST LCB03H01_LGI[1,1]
(** LCB03H01_LGI[2,1]:=LLCB03H02_C; **)
(* assign - Stmt *)
LD LLCB03H02_C
ST LCB03H01_LGI[2,1]
(** LCB03H01_LGI[3,1]:=LLCB03H03_C; **)
(* assign - Stmt *)
LD LLCB03H03_C
ST LCB03H01_LGI[3,1]
(** LCB03H01_LGI[4,1]:=LLCB03H04_C; **)
(* assign - Stmt *)
LD LLCB03H04_C
ST LCB03H01_LGI[4,1]
(** LCB03H01_LGI[5,1]:=LLCB03H05_C; **)
(* assign - Stmt *)
LD LLCB03H05_C
ST LCB03H01_LGI[5,1]
(** **)
(** **)
(** {*AͲ��A��BͲ��B,C�ƴ���D���ӣ�E���棬FͲ��C��ҹ����������G������������H����*} **)
(** LCB03H01_SyncControl(CM:=1 , Lock:=0, Delay:=t#10ms , LightGroup_Input:=LCB03H01_LGI | LCB03H01_LGO:=LightGroup_Output ); **)
(* call - Stmt *)
CAL LCB03H01_SyncControl (
CM := 1,
Lock := 0,
Delay := t#10ms,
LightGroup_Input := LCB03H01_LGI
|
LCB03H01_LGO := LightGroup_Output
)
(** **)
(** LLCB03H01_C:=LCB03H01_LGI[1,1]; **)
(* assign - Stmt *)
LD LCB03H01_LGI[1,1]
ST LLCB03H01_C
(** LLCB03H02_C:=LCB03H01_LGI[2,1]; **)
(* assign - Stmt *)
LD LCB03H01_LGI[2,1]
ST LLCB03H02_C
(** LLCB03H03_C:=LCB03H01_LGI[3,1]; **)
(* assign - Stmt *)
LD LCB03H01_LGI[3,1]
ST LLCB03H03_C
(** LLCB03H04_C:=LCB03H01_LGI[4,1]; **)
(* assign - Stmt *)
LD LCB03H01_LGI[4,1]
ST LLCB03H04_C
(** LLCB03H05_C:=LCB03H01_LGI[5,1]; **)
(* assign - Stmt *)
LD LCB03H01_LGI[5,1]
ST LLCB03H05_C
(** **)
(** **)
(** {*��������*} **)
(** LCB04H01_LGI[1,0]:=RNILCB04X0A_C; **)
(* assign - Stmt *)
LD RNILCB04X0A_C
ST LCB04H01_LGI[1,0]
(** LCB04H01_LGI[2,0]:=RNILCB04X0B_C; **)
(* assign - Stmt *)
LD RNILCB04X0B_C
ST LCB04H01_LGI[2,0]
(** LCB04H01_LGI[3,0]:=RNILCB04X0C_C; **)
(* assign - Stmt *)
LD RNILCB04X0C_C
ST LCB04H01_LGI[3,0]
(** LCB04H01_LGI[4,0]:=RNILCB04X0D_C; **)
(* assign - Stmt *)
LD RNILCB04X0D_C
ST LCB04H01_LGI[4,0]
(** LCB04H01_LGI[5,0]:=RNILCB04X0E_C; **)
(* assign - Stmt *)
LD RNILCB04X0E_C
ST LCB04H01_LGI[5,0]
(** LCB04H01_LGI[6,0]:=RNILCB04X0F_C; **)
(* assign - Stmt *)
LD RNILCB04X0F_C
ST LCB04H01_LGI[6,0]
(** LCB04H01_LGI[7,0]:=RNILCB04X0G_C; **)
(* assign - Stmt *)
LD RNILCB04X0G_C
ST LCB04H01_LGI[7,0]
(** LCB04H01_LGI[8,0]:=RNILCB04X0H_C; **)
(* assign - Stmt *)
LD RNILCB04X0H_C
ST LCB04H01_LGI[8,0]
(** **)
(** {*��·����*} **)
(** LCB04H01_LGI[1,1]:=LLCB04H01_C; **)
(* assign - Stmt *)
LD LLCB04H01_C
ST LCB04H01_LGI[1,1]
(** **)
(** **)
(** **)
(** {*AͲ��A��BͲ��B,C�ƴ���D���ӣ�E���棬FͲ��C��ҹ����������G������������H����*} **)
(** LCB04H01_SyncControl(CM:=1 , Lock:=0, Delay:=t#10ms , LightGroup_Input:=LCB04H01_LGI | LCB04H01_LGO:=LightGroup_Output ); **)
(* call - Stmt *)
CAL LCB04H01_SyncControl (
CM := 1,
Lock := 0,
Delay := t#10ms,
LightGroup_Input := LCB04H01_LGI
|
LCB04H01_LGO := LightGroup_Output
)
(** **)
(** LLCB04H01_C:=LCB04H01_LGI[1,1]; **)
(* assign - Stmt *)
LD LCB04H01_LGI[1,1]
ST LLCB04H01_C
JMP ODK_END_IF_000000000000001
(** else **)
(* else *)
ODK_SKIP_000000000000001_000000000000001:
(* else - Stmts *)
(** LLCB03H01_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB03H01_C
(** LLCB03H02_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB03H02_C
(** LLCB03H03_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB03H03_C
(** LLCB03H04_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB03H04_C
(** LLCB03H05_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB03H05_C
(** LLCB04H01_C:=0; **)
(* assign - Stmt *)
LD 0
ST LLCB04H01_C
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000001:
END_PROGRAM