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; 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 LBOX01_OR : REAL; LBOX02_OR : REAL; RNQCMD00000_DHV : INT; LBOX00_OR : REAL; LBOX02_DS : BOOL; LBOX01_DS : BOOL; END_VAR (** {*ģַ趨ֱӦ0~31ŵַģ飬*} **) (** {* 3 2 1 *} **) (** {*10987654321098765432109876543210*} **) (** BOX01_Hex :=2#00000000000000000001111111111111 ; **) (* assign - Stmt *) LD 2#00000000000000000001111111111111 ST BOX01_Hex (** BOX02_Hex :=2#00000000000011111110000000000000 ; **) (* assign - Stmt *) LD 2#00000000000011111110000000000000 ST BOX02_Hex (** {*ģɨ蹦ܿ*} **) (** BOX01_DevScan( Dev_Array:= Dev_Array , Dev_Scan_Hex:= BOX01_Hex | LBOX01_DS:= Dev_Ready, LBOX01_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 | LBOX01_DS := Dev_Ready, LBOX01_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 | LBOX02_DS:= Dev_Ready, LBOX02_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 | LBOX02_DS := Dev_Ready, LBOX02_OR := Dev_Ratio, BOX02_TC := Dev_Total, BOX02_EC := Dev_Error ) (** **) (** {**} **) (** LBOX00_OR :=1.0-INT_TO_REAL(BOX01_EC+BOX02_EC) **) (* assign - Stmt *) LD 1.0 SUB ( BOX01_EC ADD BOX02_EC INT_TO_REAL (** /INT_TO_REAL(BOX01_TC+BOX02_TC); **) DIV ( BOX01_TC ADD BOX02_TC INT_TO_REAL ) ) ST LBOX00_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