PROGRAM FAU VAR_EXTERNAL END_VAR VAR_GLOBAL END_VAR VAR FAU05D01_IN :FAU_IN; FAU05D01_OUT:FAU_OUT; FAU05D01_SyncControl:IJ_LSyncControl; FAU05D01_FAU:IJ_FAU; FAU05D01_ST_AVE :BS_Average; FAU05D01_WVB_AVE:BS_Average; LFAU05D01_LC :ARRAY[0..10] OF BOOL; END_VAR (*Automatically declared*) VAR_EXTERNAL LFAU05D01_PC : BOOL; LFAU05D01_AFS : BOOL; LFAU05D01_FDS : BOOL; LFAU05D01_FPS : BOOL; LFAU05D01_LM : BOOL; LFAU05D01_RSTV : REAL; LFAU05D01_RST : BOOL; LFAU05D01_WVMV : REAL; LFAU05D01_WVMC : BOOL; LFAU05D01_ISO3 : BOOL; LFAU05D01_ISO2 : BOOL; LFAU05D01_ISO1 : BOOL; LFAU05D01_F : BOOL; LFAU05D01_VI : REAL; LFAU05D01_VP : REAL; LFAU05D01_VFMV : INT; LFAU05D01_TSET : REAL; LFAU05D01_VFCS : INT; LFAU05D01_WVBS : REAL; LFAU05D01_SM : INT; LFAU05D01_VFC : INT; LFAU05D01_WVB : INT; LFAU05D01_ST : INT; LFAU05D01_FDO : BOOL; LFAU05D01_IPS : BOOL; LFAU05D01_VFBS : INT; LFAU05D01_WVCS : INT; LFAU05D01_STS : REAL; LFAU05D01_WVC : INT; LFAU05D01_VFB : INT; LFAU05D01_A : BOOL; LFAU05D01_R : BOOL; END_VAR (** {********************************************FAU05D01********************************************} **) (** {*输入,类型,示值上限,示值下限,基准补偿,输出补偿*} **) (** FAU05D01_WVB_AVE(INPUT:=LFAU05D01_WVB); **) (* call - Stmt *) CAL FAU05D01_WVB_AVE ( INPUT := LFAU05D01_WVB ) (** FAU05D01_ST_AVE (INPUT:=LFAU05D01_ST ); **) (* call - Stmt *) CAL FAU05D01_ST_AVE ( INPUT := LFAU05D01_ST ) (** LFAU05D01_STS := BS_Scale(FAU05D01_ST_AVE.Output ,1,0,100,0,0.0); **) (* assign - Stmt *) LD FAU05D01_ST_AVE.Output BS_Scale 1, 0, 100, 0, 0.0 ST LFAU05D01_STS (** LFAU05D01_WVBS:= BS_Scale(FAU05D01_WVB_AVE.Output,2,0,100,0,0.0); **) (* assign - Stmt *) LD FAU05D01_WVB_AVE.Output BS_Scale 2, 0, 100, 0, 0.0 ST LFAU05D01_WVBS (** LFAU05D01_WVC :=REAL_TO_INT(BS_Scale(LFAU05D01_WVCS ,4,0,100,0,0.0)); **) (* assign - Stmt *) LD LFAU05D01_WVCS BS_Scale 4, 0, 100, 0, 0.0 REAL_TO_INT ST LFAU05D01_WVC (** LFAU05D01_VFBS:=REAL_TO_INT(BS_Scale(LFAU05D01_VFB ,2,0,50 ,0,0.0)); **) (* assign - Stmt *) LD LFAU05D01_VFB BS_Scale 2, 0, 50, 0, 0.0 REAL_TO_INT ST LFAU05D01_VFBS (** LFAU05D01_VFC :=REAL_TO_INT(BS_Scale((LFAU05D01_VFCS*100) ,4,0,50 ,0,0.0)); **) (* assign - Stmt *) LD LFAU05D01_VFCS MUL 100 BS_Scale 4, 0, 50, 0, 0.0 REAL_TO_INT ST LFAU05D01_VFC (** {*主程序*} **) (** FAU05D01_FAU(FAU_STRUCT_IN:=FAU05D01_IN | FAU05D01_OUT:=FAU_STRUCT_OUT); **) (* call - Stmt *) CAL FAU05D01_FAU ( FAU_STRUCT_IN := FAU05D01_IN | FAU05D01_OUT := FAU_STRUCT_OUT ) (** {*FAU_INSTRUCT*} **) (** FAU05D01_IN.SM :=LFAU05D01_SM ; **) (* assign - Stmt *) LD LFAU05D01_SM ST FAU05D01_IN.SM (** FAU05D01_IN.LM :=LFAU05D01_LM ; **) (* assign - Stmt *) LD LFAU05D01_LM ST FAU05D01_IN.LM (** FAU05D01_IN.Run :=LFAU05D01_R ; **) (* assign - Stmt *) LD LFAU05D01_R ST FAU05D01_IN.Run (** FAU05D01_IN.Fault :=LFAU05D01_F ; **) (* assign - Stmt *) LD LFAU05D01_F ST FAU05D01_IN.Fault (** FAU05D01_IN.Auto :=LFAU05D01_A ; **) (* assign - Stmt *) LD LFAU05D01_A ST FAU05D01_IN.Auto (** FAU05D01_IN.ContRol:=LFAU05D01_PC ; **) (* assign - Stmt *) LD LFAU05D01_PC ST FAU05D01_IN.ContRol (** FAU05D01_IN.FDOB :=LFAU05D01_FDO ; **) (* assign - Stmt *) LD LFAU05D01_FDO ST FAU05D01_IN.FDOB (** FAU05D01_IN.FDSB :=LFAU05D01_FDS ; **) (* assign - Stmt *) LD LFAU05D01_FDS ST FAU05D01_IN.FDSB (** FAU05D01_IN.TSET :=LFAU05D01_TSET ; **) (* assign - Stmt *) LD LFAU05D01_TSET ST FAU05D01_IN.TSET (** FAU05D01_IN.WVMC :=LFAU05D01_WVMC ; **) (* assign - Stmt *) LD LFAU05D01_WVMC ST FAU05D01_IN.WVMC (** FAU05D01_IN.WVMV :=LFAU05D01_WVMV ; **) (* assign - Stmt *) LD LFAU05D01_WVMV ST FAU05D01_IN.WVMV (** FAU05D01_IN.VFMV :=LFAU05D01_VFMV ; **) (* assign - Stmt *) LD LFAU05D01_VFMV ST FAU05D01_IN.VFMV (** FAU05D01_IN.STS :=LFAU05D01_STS ; **) (* assign - Stmt *) LD LFAU05D01_STS ST FAU05D01_IN.STS (** FAU05D01_IN.RST :=LFAU05D01_RST ; **) (* assign - Stmt *) LD LFAU05D01_RST ST FAU05D01_IN.RST (** FAU05D01_IN.RSTV :=LFAU05D01_RSTV ; **) (* assign - Stmt *) LD LFAU05D01_RSTV ST FAU05D01_IN.RSTV (** FAU05D01_IN.FPS :=LFAU05D01_FPS ; **) (* assign - Stmt *) LD LFAU05D01_FPS ST FAU05D01_IN.FPS (** FAU05D01_IN.IPS :=LFAU05D01_IPS ; **) (* assign - Stmt *) LD LFAU05D01_IPS ST FAU05D01_IN.IPS (** FAU05D01_IN.AFS :=LFAU05D01_AFS ; **) (* assign - Stmt *) LD LFAU05D01_AFS ST FAU05D01_IN.AFS (** FAU05D01_IN.ISO1 :=LFAU05D01_ISO1 ; **) (* assign - Stmt *) LD LFAU05D01_ISO1 ST FAU05D01_IN.ISO1 (** FAU05D01_IN.ISO2 :=LFAU05D01_ISO2 ; **) (* assign - Stmt *) LD LFAU05D01_ISO2 ST FAU05D01_IN.ISO2 (** FAU05D01_IN.ISO3 :=LFAU05D01_ISO3 ; **) (* assign - Stmt *) LD LFAU05D01_ISO3 ST FAU05D01_IN.ISO3 (** FAU05D01_IN.VP :=LFAU05D01_VP ; **) (* assign - Stmt *) LD LFAU05D01_VP ST FAU05D01_IN.VP (** FAU05D01_IN.VI :=LFAU05D01_VI ; **) (* assign - Stmt *) LD LFAU05D01_VI ST FAU05D01_IN.VI (** FAU05D01_IN.FDELAY :=t#30s ; **) (* assign - Stmt *) LD t#30s ST FAU05D01_IN.FDELAY (** FAU05D01_IN.VDELAY :=t#120s ; **) (* assign - Stmt *) LD t#120s ST FAU05D01_IN.VDELAY (** **) END_PROGRAM