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.
 
 
 
 
 
 

241 lines
5.4 KiB

PROGRAM FAU
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
FAUYYD01_IN :FAU_IN;
FAUYYD01_OUT:FAU_OUT;
FAUYYD01_SyncControl:IJ_LSyncControl;
FAUYYD01_FAU:IJ_FAU;
FAUYYD01_ST_AVE :BS_Average;
FAUYYD01_WVB_AVE:BS_Average;
LFAUYYD01_LC :ARRAY[0..10] OF BOOL;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
LFAUYYD01_TSET : REAL;
LFAUYYD01_FDSC : BOOL;
LFAUYYD01_FPS : BOOL;
LFAUYYD01_VFMV : INT;
LFAUYYD01_STS : REAL;
LFAUYYD01_IPS : BOOL;
LFAUYYD01_WVMV : REAL;
LFAUYYD01_WVMC : BOOL;
LFAUYYD01_VI : REAL;
LFAUYYD01_VP : REAL;
LFAUYYD01_FDOC : BOOL;
LFAUYYD01_F : BOOL;
LFAUYYD01_ISO3 : BOOL;
LFAUYYD01_PC : BOOL;
LFAUYYD01_ISO2 : BOOL;
LFAUYYD01_ISO1 : BOOL;
LFAUYYD01_A : BOOL;
LFAUYYD01_R : BOOL;
LFAUYYD01_SM : INT;
LFAUYYD01_ST : INT;
LFAUYYD01_WVCS : INT;
LFAUYYD01_WVC : INT;
LFAUYYD01_VFBS : INT;
LFAUYYD01_RSTV : REAL;
LFAUYYD01_RST : BOOL;
LFAUYYD01_WVBS : REAL;
LFAUYYD01_VFB : INT;
LFAUYYD01_WVB : INT;
LFAUYYD01_LM : BOOL;
LFAUYYD01_VFCS : INT;
LFAUYYD01_VFC : INT;
LFAUYYD01_AFS : BOOL;
END_VAR
(** **)
(** {********************************************FAUYYD01********************************************} **)
(** {*输入,类型,示值上限,示值下限,基准补偿,输出补偿*} **)
(** FAUYYD01_WVB_AVE(INPUT:=LFAUYYD01_WVB); **)
(* call - Stmt *)
CAL FAUYYD01_WVB_AVE (
INPUT := LFAUYYD01_WVB
)
(** FAUYYD01_ST_AVE (INPUT:=LFAUYYD01_ST ); **)
(* call - Stmt *)
CAL FAUYYD01_ST_AVE (
INPUT := LFAUYYD01_ST
)
(** LFAUYYD01_STS := BS_Scale(FAUYYD01_ST_AVE.Output ,1,0,100,0,0.0); **)
(* assign - Stmt *)
LD FAUYYD01_ST_AVE.Output
BS_Scale 1, 0, 100, 0, 0.0
ST LFAUYYD01_STS
(** LFAUYYD01_WVBS:= BS_Scale(FAUYYD01_WVB_AVE.Output,2,0,100,0,0.0); **)
(* assign - Stmt *)
LD FAUYYD01_WVB_AVE.Output
BS_Scale 2, 0, 100, 0, 0.0
ST LFAUYYD01_WVBS
(** LFAUYYD01_WVC :=REAL_TO_INT(BS_Scale(LFAUYYD01_WVCS ,4,0,100,0,0.0)); **)
(* assign - Stmt *)
LD LFAUYYD01_WVCS
BS_Scale 4, 0, 100, 0, 0.0
REAL_TO_INT
ST LFAUYYD01_WVC
(** LFAUYYD01_VFBS:=REAL_TO_INT(BS_Scale(LFAUYYD01_VFB ,2,0,50 ,0,0.0)); **)
(* assign - Stmt *)
LD LFAUYYD01_VFB
BS_Scale 2, 0, 50, 0, 0.0
REAL_TO_INT
ST LFAUYYD01_VFBS
(** LFAUYYD01_VFC :=REAL_TO_INT(BS_Scale((LFAUYYD01_VFCS*100) ,4,0,50 ,0,0.0)); **)
(* assign - Stmt *)
LD LFAUYYD01_VFCS
MUL 100
BS_Scale 4, 0, 50, 0, 0.0
REAL_TO_INT
ST LFAUYYD01_VFC
(** {*主程序*} **)
(** FAUYYD01_FAU(FAU_STRUCT_IN:=FAUYYD01_IN | FAUYYD01_OUT:=FAU_STRUCT_OUT); **)
(* call - Stmt *)
CAL FAUYYD01_FAU (
FAU_STRUCT_IN := FAUYYD01_IN
|
FAUYYD01_OUT := FAU_STRUCT_OUT
)
(** {*FAU_INSTRUCT*} **)
(** FAUYYD01_IN.SM :=LFAUYYD01_SM ; **)
(* assign - Stmt *)
LD LFAUYYD01_SM
ST FAUYYD01_IN.SM
(** FAUYYD01_IN.LM :=LFAUYYD01_LM ; **)
(* assign - Stmt *)
LD LFAUYYD01_LM
ST FAUYYD01_IN.LM
(** FAUYYD01_IN.Run :=LFAUYYD01_R ; **)
(* assign - Stmt *)
LD LFAUYYD01_R
ST FAUYYD01_IN.Run
(** FAUYYD01_IN.Fault :=LFAUYYD01_F ; **)
(* assign - Stmt *)
LD LFAUYYD01_F
ST FAUYYD01_IN.Fault
(** FAUYYD01_IN.Auto :=LFAUYYD01_A ; **)
(* assign - Stmt *)
LD LFAUYYD01_A
ST FAUYYD01_IN.Auto
(** FAUYYD01_IN.ContRol:=LFAUYYD01_PC ; **)
(* assign - Stmt *)
LD LFAUYYD01_PC
ST FAUYYD01_IN.ContRol
(** FAUYYD01_IN.FDOB :=LFAUYYD01_FDOC ; **)
(* assign - Stmt *)
LD LFAUYYD01_FDOC
ST FAUYYD01_IN.FDOB
(** FAUYYD01_IN.FDSB :=LFAUYYD01_FDSC ; **)
(* assign - Stmt *)
LD LFAUYYD01_FDSC
ST FAUYYD01_IN.FDSB
(** FAUYYD01_IN.TSET :=LFAUYYD01_TSET ; **)
(* assign - Stmt *)
LD LFAUYYD01_TSET
ST FAUYYD01_IN.TSET
(** FAUYYD01_IN.WVMC :=LFAUYYD01_WVMC ; **)
(* assign - Stmt *)
LD LFAUYYD01_WVMC
ST FAUYYD01_IN.WVMC
(** FAUYYD01_IN.WVMV :=LFAUYYD01_WVMV ; **)
(* assign - Stmt *)
LD LFAUYYD01_WVMV
ST FAUYYD01_IN.WVMV
(** FAUYYD01_IN.VFMV :=LFAUYYD01_VFMV ; **)
(* assign - Stmt *)
LD LFAUYYD01_VFMV
ST FAUYYD01_IN.VFMV
(** FAUYYD01_IN.STS :=LFAUYYD01_STS ; **)
(* assign - Stmt *)
LD LFAUYYD01_STS
ST FAUYYD01_IN.STS
(** FAUYYD01_IN.RST :=LFAUYYD01_RST ; **)
(* assign - Stmt *)
LD LFAUYYD01_RST
ST FAUYYD01_IN.RST
(** FAUYYD01_IN.RSTV :=LFAUYYD01_RSTV ; **)
(* assign - Stmt *)
LD LFAUYYD01_RSTV
ST FAUYYD01_IN.RSTV
(** FAUYYD01_IN.FPS :=LFAUYYD01_FPS ; **)
(* assign - Stmt *)
LD LFAUYYD01_FPS
ST FAUYYD01_IN.FPS
(** FAUYYD01_IN.IPS :=LFAUYYD01_IPS ; **)
(* assign - Stmt *)
LD LFAUYYD01_IPS
ST FAUYYD01_IN.IPS
(** FAUYYD01_IN.AFS :=LFAUYYD01_AFS ; **)
(* assign - Stmt *)
LD LFAUYYD01_AFS
ST FAUYYD01_IN.AFS
(** FAUYYD01_IN.ISO1 :=LFAUYYD01_ISO1 ; **)
(* assign - Stmt *)
LD LFAUYYD01_ISO1
ST FAUYYD01_IN.ISO1
(** FAUYYD01_IN.ISO2 :=LFAUYYD01_ISO2 ; **)
(* assign - Stmt *)
LD LFAUYYD01_ISO2
ST FAUYYD01_IN.ISO2
(** FAUYYD01_IN.ISO3 :=LFAUYYD01_ISO3 ; **)
(* assign - Stmt *)
LD LFAUYYD01_ISO3
ST FAUYYD01_IN.ISO3
(** FAUYYD01_IN.VP :=LFAUYYD01_VP ; **)
(* assign - Stmt *)
LD LFAUYYD01_VP
ST FAUYYD01_IN.VP
(** FAUYYD01_IN.VI :=LFAUYYD01_VI ; **)
(* assign - Stmt *)
LD LFAUYYD01_VI
ST FAUYYD01_IN.VI
(** FAUYYD01_IN.FDELAY :=t#30s ; **)
(* assign - Stmt *)
LD t#30s
ST FAUYYD01_IN.FDELAY
(** FAUYYD01_IN.VDELAY :=t#120s ; **)
(* assign - Stmt *)
LD t#120s
ST FAUYYD01_IN.VDELAY
(** **)
END_PROGRAM