海南电网项目下位机程序
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.
 
 
 
 
 
 

306 lines
7.0 KiB

PROGRAM PAU
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
PAU9FA01_IN :FAU_IN;
PAU9FA01_OUT:FAU_OUT;
PAU9FA01_SyncControl:IJ_LSyncControl;
PAU9FA01_FAU:IJ_FAU;
PAU9FA01_ST_AVE :BS_Average;
PAU9FA01_WVB_AVE:BS_Average;
PAU9FA01_SLG :IJ_EAFGroup;
LPAU9FA01_CO2S:ARRAY[0..10] OF REAL;
LPAU9FA01_LC :ARRAY[0..10] OF BOOL;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
LPAU9FA01_VFMV : INT;
LIES01A02_CO2S : REAL;
LPAU9FA01_CO2SET : REAL;
LIES01A01_CO2S : REAL;
LPAU9FA01_TC : BOOL;
LPAU9FA01_ISO1 : BOOL;
LPAU9FA01_TSET : REAL;
LPAU9FA01_LM : BOOL;
LPAU9FA01_WVCS : INT;
LPAU9FA01_ISO2 : BOOL;
LPAU9FA01_STS : REAL;
LPAU9FA01_VFB : INT;
LPAU9FA01_ST : INT;
LPAU9FA01_FDSB : BOOL;
LPAU9FA01_A : BOOL;
LPAU9FA01_R : BOOL;
LPAU9FA01_ISO3 : BOOL;
LPAU9FA01_RST : BOOL;
LPAU9FA01_WVBS : REAL;
LPAU9FA01_VFC : INT;
LPAU9FA01_FDSC : BOOL;
LPAU9FA01_VFCS : INT;
LPAU9FA01_C : BOOL;
LPAU9FA01_VFBS : INT;
LPAU9FA01_PC : BOOL;
LPAU9FA01_VI : REAL;
LPAU9FA01_FDOB : BOOL;
LPAU9FA01_RSTV : REAL;
LPAU9FA01_FDOC : BOOL;
LPAU9FA01_F : BOOL;
LPAU9FA01_RH : REAL;
LPAU9FA01_WVMC : BOOL;
LPAU9FA01_FPS : BOOL;
LPAU9FA01_TM : BOOL;
LPAU9FA01_VP : REAL;
LPAU9FA01_WVMV : BOOL;
LPAU9FA01_SM : INT;
LPAU9FA01_SN : INT;
LPAU9FA01_IPS : BOOL;
END_VAR
(** {********************************************PAU9FA01********************************************} **)
(** {*输入,类型,示值上限,示值下限,基准补偿,输出补偿*} **)
(** **)
(** PAU9FA01_ST_AVE (INPUT:=LPAU9FA01_ST ); **)
(* call - Stmt *)
CAL PAU9FA01_ST_AVE (
INPUT := LPAU9FA01_ST
)
(** LPAU9FA01_STS := BS_Scale(PAU9FA01_ST_AVE.Output ,1,0,100,0,0.0); **)
(* assign - Stmt *)
LD PAU9FA01_ST_AVE.Output
BS_Scale 1, 0, 100, 0, 0.0
ST LPAU9FA01_STS
(** LPAU9FA01_WVBS:= BS_Scale(PAU9FA01_WVB_AVE.Output,2,0,100,0,0.0); **)
(* assign - Stmt *)
LD PAU9FA01_WVB_AVE.Output
BS_Scale 2, 0, 100, 0, 0.0
ST LPAU9FA01_WVBS
(** LPAU9FA01_WVCS :=REAL_TO_INT(BS_Scale(LPAU9FA01_WVCS ,4,0,100,0,0.0)); **)
(* assign - Stmt *)
LD LPAU9FA01_WVCS
BS_Scale 4, 0, 100, 0, 0.0
REAL_TO_INT
ST LPAU9FA01_WVCS
(** LPAU9FA01_VFBS:=REAL_TO_INT(BS_Scale(LPAU9FA01_VFB ,2,0,50 ,0,0.0)); **)
(* assign - Stmt *)
LD LPAU9FA01_VFB
BS_Scale 2, 0, 50, 0, 0.0
REAL_TO_INT
ST LPAU9FA01_VFBS
(** LPAU9FA01_VFC :=REAL_TO_INT(BS_Scale((LPAU9FA01_VFCS*100) ,4,0,50 ,0,0.0)); **)
(* assign - Stmt *)
LD LPAU9FA01_VFCS
MUL 100
BS_Scale 4, 0, 50, 0, 0.0
REAL_TO_INT
ST LPAU9FA01_VFC
(** {*主程序*} **)
(** PAU9FA01_FAU(FAU_STRUCT_IN:=PAU9FA01_IN | PAU9FA01_OUT:=FAU_STRUCT_OUT); **)
(* call - Stmt *)
CAL PAU9FA01_FAU (
FAU_STRUCT_IN := PAU9FA01_IN
|
PAU9FA01_OUT := FAU_STRUCT_OUT
)
(** {*FAU_INSTRUCT*} **)
(** PAU9FA01_IN.SM :=LPAU9FA01_SM ; **)
(* assign - Stmt *)
LD LPAU9FA01_SM
ST PAU9FA01_IN.SM
(** PAU9FA01_IN.LM :=LPAU9FA01_LM ; **)
(* assign - Stmt *)
LD LPAU9FA01_LM
ST PAU9FA01_IN.LM
(** PAU9FA01_IN.Run :=LPAU9FA01_R ; **)
(* assign - Stmt *)
LD LPAU9FA01_R
ST PAU9FA01_IN.Run
(** PAU9FA01_IN.Fault :=LPAU9FA01_F ; **)
(* assign - Stmt *)
LD LPAU9FA01_F
ST PAU9FA01_IN.Fault
(** PAU9FA01_IN.Auto :=LPAU9FA01_A ; **)
(* assign - Stmt *)
LD LPAU9FA01_A
ST PAU9FA01_IN.Auto
(** PAU9FA01_IN.ContRol:=LPAU9FA01_PC ; **)
(* assign - Stmt *)
LD LPAU9FA01_PC
ST PAU9FA01_IN.ContRol
(** PAU9FA01_IN.FDOB :=LPAU9FA01_FDOB ; **)
(* assign - Stmt *)
LD LPAU9FA01_FDOB
ST PAU9FA01_IN.FDOB
(** PAU9FA01_IN.FDSB :=LPAU9FA01_FDSB ; **)
(* assign - Stmt *)
LD LPAU9FA01_FDSB
ST PAU9FA01_IN.FDSB
(** PAU9FA01_IN.TSET :=LPAU9FA01_TSET ; **)
(* assign - Stmt *)
LD LPAU9FA01_TSET
ST PAU9FA01_IN.TSET
(** PAU9FA01_IN.WVMC :=LPAU9FA01_WVMC ; **)
(* assign - Stmt *)
LD LPAU9FA01_WVMC
ST PAU9FA01_IN.WVMC
(** PAU9FA01_IN.WVMV :=BOOL_TO_REAL(LPAU9FA01_WVMV); **)
(* assign - Stmt *)
LD LPAU9FA01_WVMV
BOOL_TO_REAL
ST PAU9FA01_IN.WVMV
(** PAU9FA01_IN.VFMV :=LPAU9FA01_VFMV ; **)
(* assign - Stmt *)
LD LPAU9FA01_VFMV
ST PAU9FA01_IN.VFMV
(** PAU9FA01_IN.STS :=LPAU9FA01_STS ; **)
(* assign - Stmt *)
LD LPAU9FA01_STS
ST PAU9FA01_IN.STS
(** PAU9FA01_IN.RST :=LPAU9FA01_RST ; **)
(* assign - Stmt *)
LD LPAU9FA01_RST
ST PAU9FA01_IN.RST
(** PAU9FA01_IN.RSTV :=LPAU9FA01_RSTV ; **)
(* assign - Stmt *)
LD LPAU9FA01_RSTV
ST PAU9FA01_IN.RSTV
(** PAU9FA01_IN.FPS :=LPAU9FA01_FPS ; **)
(* assign - Stmt *)
LD LPAU9FA01_FPS
ST PAU9FA01_IN.FPS
(** PAU9FA01_IN.IPS :=LPAU9FA01_IPS ; **)
(* assign - Stmt *)
LD LPAU9FA01_IPS
ST PAU9FA01_IN.IPS
(** PAU9FA01_IN.ISO1 :=LPAU9FA01_ISO1 ; **)
(* assign - Stmt *)
LD LPAU9FA01_ISO1
ST PAU9FA01_IN.ISO1
(** PAU9FA01_IN.ISO2 :=LPAU9FA01_ISO2 ; **)
(* assign - Stmt *)
LD LPAU9FA01_ISO2
ST PAU9FA01_IN.ISO2
(** PAU9FA01_IN.ISO3 :=LPAU9FA01_ISO3 ; **)
(* assign - Stmt *)
LD LPAU9FA01_ISO3
ST PAU9FA01_IN.ISO3
(** PAU9FA01_IN.VP :=LPAU9FA01_VP ; **)
(* assign - Stmt *)
LD LPAU9FA01_VP
ST PAU9FA01_IN.VP
(** PAU9FA01_IN.VI :=LPAU9FA01_VI ; **)
(* assign - Stmt *)
LD LPAU9FA01_VI
ST PAU9FA01_IN.VI
(** PAU9FA01_IN.FDELAY :=t#30s ; **)
(* assign - Stmt *)
LD t#30s
ST PAU9FA01_IN.FDELAY
(** PAU9FA01_IN.VDELAY :=t#120s ; **)
(* assign - Stmt *)
LD t#120s
ST PAU9FA01_IN.VDELAY
(** {*FAU_OUTSTRUCT*} **)
(** LPAU9FA01_WVCS :=PAU9FA01_OUT.WVCS ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.WVCS
ST LPAU9FA01_WVCS
(** LPAU9FA01_VFCS :=PAU9FA01_OUT.VFCS ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.VFCS
ST LPAU9FA01_VFCS
(** LPAU9FA01_FDOC :=PAU9FA01_OUT.FDO ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.FDO
ST LPAU9FA01_FDOC
(** LPAU9FA01_FDSC :=PAU9FA01_OUT.FDS ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.FDS
ST LPAU9FA01_FDSC
(** LPAU9FA01_C :=PAU9FA01_OUT.ContRol; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.ContRol
ST LPAU9FA01_C
(** LPAU9FA01_RH :=PAU9FA01_OUT.RH ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.RH
ST LPAU9FA01_RH
(** LPAU9FA01_SN :=PAU9FA01_OUT.SN ; **)
(* assign - Stmt *)
LD PAU9FA01_OUT.SN
ST LPAU9FA01_SN
(** **)
(** {*新风机CO2联动程序*} **)
(** LPAU9FA01_TC:=LPAU9FA01_LC[1]; **)
(* assign - Stmt *)
LD LPAU9FA01_LC[1]
ST LPAU9FA01_TC
(** LPAU9FA01_CO2S[1]:=LIES01A01_CO2S; **)
(* assign - Stmt *)
LD LIES01A01_CO2S
ST LPAU9FA01_CO2S[1]
(** LPAU9FA01_CO2S[2]:=LIES01A02_CO2S; **)
(* assign - Stmt *)
LD LIES01A02_CO2S
ST LPAU9FA01_CO2S[2]
(** **)
(** PAU9FA01_SLG(ENABLE:=LPAU9FA01_TM,LINKAGEVALUE:=LPAU9FA01_CO2S,DEAD_BAND:=10.0,MAXRANGE:=2000.0,MINRANGE:=10.0, **)
(* call - Stmt *)
CAL PAU9FA01_SLG (
ENABLE := LPAU9FA01_TM,
LINKAGEVALUE := LPAU9FA01_CO2S,
DEAD_BAND := 10.0,
MAXRANGE := 2000.0,
MINRANGE := 10.0,
(** LINKAGESET:=LPAU9FA01_CO2SET,HOLDDELAY:=t#60s); **)
LINKAGESET := LPAU9FA01_CO2SET,
HOLDDELAY := t#60s
)
END_PROGRAM