Fei_Long_Wu_Yue/M19/SCAN.POE

PROGRAM SCAN
VAR_EXTERNAL

(*SCAN Program*)						
LBOXI01_DS             :BOOL;
LBOXI02_DS             :BOOL;
LBOXI03_DS             :BOOL;
LBOXI04_DS             :BOOL;
LBOXI05_DS             :BOOL;
LBOXI06_DS             :BOOL;
LBOXI07_DS             :BOOL;
LBOXI08_DS             :BOOL;
LBOXI09_DS             :BOOL;
LBOXI10_DS             :BOOL;
LBOXI00_OR             :REAL; 
LBOXI01_OR             :REAL; 
LBOXI02_OR             :REAL; 
LBOXI03_OR             :REAL; 
LBOXI04_OR             :REAL; 
LBOXI05_OR             :REAL; 
LBOXI06_OR             :REAL; 
LBOXI07_OR             :REAL; 
LBOXI08_OR             :REAL; 
LBOXI09_OR             :REAL; 
LBOXI10_OR             :REAL; 

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;
BOX06_DevScan               :BS_DevScan;
BOX07_DevScan               :BS_DevScan;
BOX08_DevScan               :BS_DevScan;
BOX09_DevScan               :BS_DevScan;
BOX10_DevScan               :BS_DevScan;

BOX01_TC					:INT;	(*箱体模块在线比例*)							
BOX02_TC					:INT;	
BOX03_TC             		:INT;	
BOX04_TC					:INT;	
BOX05_TC					:INT;								
BOX06_TC					:INT;	
BOX07_TC             		:INT;	
BOX08_TC					:INT;	
BOX09_TC					:INT;								
BOX10_TC					:INT;	

BOX01_EC					:INT;	(*箱体模块在线比例*)							
BOX02_EC					:INT;	
BOX03_EC             		:INT;	
BOX04_EC					:INT;	
BOX05_EC					:INT;								
BOX06_EC					:INT;	
BOX07_EC             		:INT;	
BOX08_EC					:INT;	
BOX09_EC					:INT;								
BOX10_EC					:INT;
         
BOX01_Hex			        :DWORD ; 
BOX02_Hex			        :DWORD ; 
BOX03_Hex			        :DWORD ; 
BOX04_Hex			        :DWORD ; 
BOX05_Hex			        :DWORD ; 
BOX06_Hex			        :DWORD ; 
BOX07_Hex			        :DWORD ; 
BOX08_Hex			        :DWORD ; 
BOX09_Hex			        :DWORD ; 
BOX10_Hex			        :DWORD ; 					

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
	RNQCMD00000_DHV : INT;
END_VAR
(** {*ģ����ַ�����趨���ֱ���Ӧ0~31�ŵ�ַģ�飬������*} **)
(**             {* 3         2         1          *} **)
(** 		    {*10987654321098765432109876543210*} **)
(** BOX01_Hex :=2#00000000000000000000000111111111 ;  **)
	(* assign - Stmt *)
	LD 2#00000000000000000000000111111111
	ST BOX01_Hex

(** BOX02_Hex :=2#00000000000000111111111000000000 ; **)
	(* assign - Stmt *)
	LD 2#00000000000000111111111000000000
	ST BOX02_Hex

(** BOX03_Hex :=2#00000000001111000000000000000000 ;  **)
	(* assign - Stmt *)
	LD 2#00000000001111000000000000000000
	ST BOX03_Hex

(** {*ģ��ɨ�蹦�ܿ�����*} **)
(** BOX01_DevScan( Dev_Array:= Dev_Array , Dev_Scan_Hex:= BOX01_Hex |  LBOXI01_DS:= Dev_Ready, LBOXI01_OR:= Dev_Ratio, BOX01_TC:= Dev_Total, BOX01_EC:= Dev_Error, RNQCMD00000_DHV:= Heartvavle ); **)
	(* call - Stmt *)
	CAL BOX01_DevScan (
		Dev_Array := Dev_Array,
		Dev_Scan_Hex := BOX01_Hex
		|
		LBOXI01_DS := Dev_Ready,
		LBOXI01_OR := Dev_Ratio,
		BOX01_TC := Dev_Total,
		BOX01_EC := Dev_Error,
		RNQCMD00000_DHV := Heartvavle
	)

(** BOX02_DevScan( Dev_Array:= Dev_Array , Dev_Scan_Hex:= BOX02_Hex |  LBOXI02_DS:= Dev_Ready, LBOXI02_OR:= Dev_Ratio, BOX02_TC:= Dev_Total, BOX02_EC:= Dev_Error ); **)
	(* call - Stmt *)
	CAL BOX02_DevScan (
		Dev_Array := Dev_Array,
		Dev_Scan_Hex := BOX02_Hex
		|
		LBOXI02_DS := Dev_Ready,
		LBOXI02_OR := Dev_Ratio,
		BOX02_TC := Dev_Total,
		BOX02_EC := Dev_Error
	)

(** BOX03_DevScan( Dev_Array:= Dev_Array , Dev_Scan_Hex:= BOX03_Hex |  LBOXI03_DS:= Dev_Ready, LBOXI03_OR:= Dev_Ratio, BOX03_TC:= Dev_Total, BOX03_EC:= Dev_Error ); **)
	(* call - Stmt *)
	CAL BOX03_DevScan (
		Dev_Array := Dev_Array,
		Dev_Scan_Hex := BOX03_Hex
		|
		LBOXI03_DS := Dev_Ready,
		LBOXI03_OR := Dev_Ratio,
		BOX03_TC := Dev_Total,
		BOX03_EC := Dev_Error
	)

(**  **)
(** {*����������������*} **)
(** LBOXI00_OR :=1.0-INT_TO_REAL(BOX01_EC+BOX02_EC+BOX03_EC) **)
	(* assign - Stmt *)
	LD 1.0
	SUB ( BOX01_EC
		ADD BOX02_EC
		ADD BOX03_EC
		INT_TO_REAL 
(**                /INT_TO_REAL(BOX01_TC+BOX02_TC+BOX03_TC);  **)
		DIV ( BOX01_TC
			ADD BOX02_TC
			ADD BOX03_TC
			INT_TO_REAL 
		)
	)
	ST LBOXI00_OR

(**  **)
(** {****************************************************Ĭ�϶�****************************************************}												 **)
(** {*ģ���豸״̬����*} **)
(** 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]

(** Dev_Array[12]:=DEV12_R;													 **)
	(* assign - Stmt *)
	LD DEV12_R
	ST Dev_Array[12]

(** Dev_Array[13]:=DEV13_R;													 **)
	(* assign - Stmt *)
	LD DEV13_R
	ST Dev_Array[13]

(** Dev_Array[14]:=DEV14_R; **)
	(* assign - Stmt *)
	LD DEV14_R
	ST Dev_Array[14]

(** Dev_Array[15]:=DEV15_R;													 **)
	(* assign - Stmt *)
	LD DEV15_R
	ST Dev_Array[15]

(** Dev_Array[16]:=DEV16_R;													 **)
	(* assign - Stmt *)
	LD DEV16_R
	ST Dev_Array[16]

(** Dev_Array[17]:=DEV17_R;													 **)
	(* assign - Stmt *)
	LD DEV17_R
	ST Dev_Array[17]

(** Dev_Array[18]:=DEV18_R;													 **)
	(* assign - Stmt *)
	LD DEV18_R
	ST Dev_Array[18]

(** Dev_Array[19]:=DEV19_R;	 **)
	(* assign - Stmt *)
	LD DEV19_R
	ST Dev_Array[19]

(** Dev_Array[20]:=DEV20_R;													 **)
	(* assign - Stmt *)
	LD DEV20_R
	ST Dev_Array[20]

(** Dev_Array[21]:=DEV21_R;													 **)
	(* assign - Stmt *)
	LD DEV21_R
	ST Dev_Array[21]

(** Dev_Array[22]:=DEV22_R;													 **)
	(* assign - Stmt *)
	LD DEV22_R
	ST Dev_Array[22]

(** Dev_Array[23]:=DEV23_R;													 **)
	(* assign - Stmt *)
	LD DEV23_R
	ST Dev_Array[23]

(** Dev_Array[24]:=DEV24_R; **)
	(* assign - Stmt *)
	LD DEV24_R
	ST Dev_Array[24]

(** Dev_Array[25]:=DEV25_R;													 **)
	(* assign - Stmt *)
	LD DEV25_R
	ST Dev_Array[25]

(** Dev_Array[26]:=DEV26_R;													 **)
	(* assign - Stmt *)
	LD DEV26_R
	ST Dev_Array[26]

(** Dev_Array[27]:=DEV27_R;													 **)
	(* assign - Stmt *)
	LD DEV27_R
	ST Dev_Array[27]

(** Dev_Array[28]:=DEV28_R;													 **)
	(* assign - Stmt *)
	LD DEV28_R
	ST Dev_Array[28]

(** Dev_Array[29]:=DEV29_R; **)
	(* assign - Stmt *)
	LD DEV29_R
	ST Dev_Array[29]

(** Dev_Array[30]:=DEV30_R;													 **)
	(* assign - Stmt *)
	LD DEV30_R
	ST Dev_Array[30]

(** Dev_Array[31]:=DEV31_R; **)
	(* assign - Stmt *)
	LD DEV31_R
	ST Dev_Array[31]


END_PROGRAM