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.
150 lines
3.8 KiB
150 lines
3.8 KiB
PROGRAM SCAN
|
|
VAR_EXTERNAL
|
|
|
|
END_VAR
|
|
|
|
VAR_GLOBAL
|
|
|
|
END_VAR
|
|
|
|
VAR
|
|
Dev_Array :array[0..31] of byte;
|
|
BOX01_DevScan :BS_DevScan;
|
|
BOX02_DevScan :BS_DevScan;
|
|
BOX03_DevScan :BS_DevScan;
|
|
BOX04_DevScan :BS_DevScan;
|
|
BOX05_DevScan :BS_DevScan;
|
|
|
|
BOX01_Hex :DWORD ;
|
|
BOX02_Hex :DWORD ;
|
|
BOX03_Hex :DWORD ;
|
|
BOX04_Hex :DWORD ;
|
|
BOX05_Hex :DWORD ;
|
|
|
|
DEV00_IP AT%M7000.0 :BYTE;
|
|
DEV00_R AT%M8000.0 :BYTE;
|
|
DEV01_R AT%M8001.0 :BYTE;
|
|
DEV02_R AT%M8002.0 :BYTE;
|
|
DEV03_R AT%M8003.0 :BYTE;
|
|
DEV04_R AT%M8004.0 :BYTE;
|
|
DEV05_R AT%M8005.0 :BYTE;
|
|
DEV06_R AT%M8006.0 :BYTE;
|
|
DEV07_R AT%M8007.0 :BYTE;
|
|
DEV08_R AT%M8008.0 :BYTE;
|
|
DEV09_R AT%M8009.0 :BYTE;
|
|
DEV10_R AT%M8010.0 :BYTE;
|
|
DEV11_R AT%M8011.0 :BYTE;
|
|
DEV12_R AT%M8012.0 :BYTE;
|
|
DEV13_R AT%M8013.0 :BYTE;
|
|
DEV14_R AT%M8014.0 :BYTE;
|
|
DEV15_R AT%M8015.0 :BYTE;
|
|
DEV16_R AT%M8016.0 :BYTE;
|
|
DEV17_R AT%M8017.0 :BYTE;
|
|
DEV18_R AT%M8018.0 :BYTE;
|
|
DEV19_R AT%M8019.0 :BYTE;
|
|
DEV20_R AT%M8020.0 :BYTE;
|
|
DEV21_R AT%M8021.0 :BYTE;
|
|
DEV22_R AT%M8022.0 :BYTE;
|
|
DEV23_R AT%M8023.0 :BYTE;
|
|
DEV24_R AT%M8024.0 :BYTE;
|
|
DEV25_R AT%M8025.0 :BYTE;
|
|
DEV26_R AT%M8026.0 :BYTE;
|
|
DEV27_R AT%M8027.0 :BYTE;
|
|
DEV28_R AT%M8028.0 :BYTE;
|
|
DEV29_R AT%M8029.0 :BYTE;
|
|
DEV30_R AT%M8030.0 :BYTE;
|
|
DEV31_R AT%M8031.0 :BYTE;
|
|
|
|
END_VAR
|
|
|
|
(*Automatically declared*)
|
|
VAR_EXTERNAL
|
|
LBOX07A01_OR : REAL;
|
|
LBOX07A01_DS : BOOL;
|
|
END_VAR
|
|
(** **)
|
|
(** {*模块地址分配设定，分别对应0~31号地址模块，从右起*} **)
|
|
(** {* 3 2 1 *} **)
|
|
(** {*10987654321098765432109876543210*} **)
|
|
(** BOX01_Hex :=2#00000000000000000000000000111111 ; **)
|
|
(* assign - Stmt *)
|
|
LD 2#00000000000000000000000000111111
|
|
ST BOX01_Hex
|
|
|
|
(** **)
|
|
(** {*模块扫描功能块关联*} **)
|
|
(** BOX01_DevScan( Dev_Array:= Dev_Array , Dev_Scan_Hex:= BOX01_Hex | LBOX07A01_DS:= Dev_Ready, LBOX07A01_OR:= Dev_Ratio ); **)
|
|
(* call - Stmt *)
|
|
CAL BOX01_DevScan (
|
|
Dev_Array := Dev_Array,
|
|
Dev_Scan_Hex := BOX01_Hex
|
|
|
|
|
LBOX07A01_DS := Dev_Ready,
|
|
LBOX07A01_OR := Dev_Ratio
|
|
)
|
|
|
|
(** **)
|
|
(** {****************************************************默认段****************************************************} **)
|
|
(** {*模块设备状态关联*} **)
|
|
(** Dev_Array[0] :=DEV00_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV00_R
|
|
ST Dev_Array[0]
|
|
|
|
(** Dev_Array[1] :=DEV01_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV01_R
|
|
ST Dev_Array[1]
|
|
|
|
(** Dev_Array[2] :=DEV02_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV02_R
|
|
ST Dev_Array[2]
|
|
|
|
(** Dev_Array[3] :=DEV03_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV03_R
|
|
ST Dev_Array[3]
|
|
|
|
(** Dev_Array[4] :=DEV04_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV04_R
|
|
ST Dev_Array[4]
|
|
|
|
(** Dev_Array[5] :=DEV05_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV05_R
|
|
ST Dev_Array[5]
|
|
|
|
(** Dev_Array[6] :=DEV06_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV06_R
|
|
ST Dev_Array[6]
|
|
|
|
(** Dev_Array[7] :=DEV07_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV07_R
|
|
ST Dev_Array[7]
|
|
|
|
(** Dev_Array[8] :=DEV08_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV08_R
|
|
ST Dev_Array[8]
|
|
|
|
(** Dev_Array[9] :=DEV09_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV09_R
|
|
ST Dev_Array[9]
|
|
|
|
(** Dev_Array[10]:=DEV10_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV10_R
|
|
ST Dev_Array[10]
|
|
|
|
(** Dev_Array[11]:=DEV11_R; **)
|
|
(* assign - Stmt *)
|
|
LD DEV11_R
|
|
ST Dev_Array[11]
|
|
|
|
|
|
END_PROGRAM
|