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.
 
 
 
 
 
 

240 lines
5.4 KiB

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