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.
 
 
 
 
 
 

145 lines
6.8 KiB

PROGRAM EAF
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
LEAFB2B01_COS:ARRAY[0..10] OF REAL;
LIESB2B01_CO_AVE:BS_Average;
LIESB2B02_CO_AVE:BS_Average;
LIESB2B03_CO_AVE:BS_Average;
LIESB2B04_CO_AVE:BS_Average;
LIESB2B05_CO_AVE:BS_Average;
ESFB2B01_SyncControl:IJ_LSyncControl;
ESFB2B01_SLG:IJ_EAFGroup;
ESFB2B01_RunTime:BS_RunTime;
LESFB2B01_LC :ARRAY[0..10] OF BOOL;
ESFB2B02_SyncControl:IJ_LSyncControl;
ESFB2B02_SLG:IJ_EAFGroup;
ESFB2B02_RunTime:BS_RunTime;
LESFB2B02_LC :ARRAY[0..10] OF BOOL;
ESFB2B03_SyncControl:IJ_LSyncControl;
ESFB2B03_SLG:IJ_EAFGroup;
ESFB2B03_RunTime:BS_RunTime;
LESFB2B03_LC :ARRAY[0..10] OF BOOL;
ESFB2B04_SyncControl:IJ_LSyncControl;
ESFB2B04_SLG:IJ_EAFGroup;
ESFB2B04_RunTime:BS_RunTime;
LESFB2B04_LC :ARRAY[0..10] OF BOOL;
LEAFB2A01_COS:ARRAY[0..10] OF REAL;
LIESB2A01_CO_AVE:BS_Average;
LIESB2A02_CO_AVE:BS_Average;
LIESB2A03_CO_AVE:BS_Average;
ESFB2A01_SyncControl:IJ_LSyncControl;
ESFB2A01_SLG:IJ_EAFGroup;
ESFB2A01_RunTime:BS_RunTime;
LESFB2A01_LC :ARRAY[0..10] OF BOOL;
ESFB2A02_SyncControl:IJ_LSyncControl;
ESFB2A02_SLG:IJ_EAFGroup;
ESFB2A02_RunTime:BS_RunTime;
LESFB2A02_LC :ARRAY[0..10] OF BOOL;
END_VAR
LIESB2B01_CO_AVE(INPUT :=LIESB2B01_CO );
LIESB2B01_COS := BS_Scale(LIESB2B01_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB2B02_CO_AVE(INPUT :=LIESB2B02_CO );
LIESB2B02_COS := BS_Scale(LIESB2B02_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB2B03_CO_AVE(INPUT :=LIESB2B03_CO );
LIESB2B03_COS := BS_Scale(LIESB2B03_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB2B04_CO_AVE(INPUT :=LIESB2B04_CO );
LIESB2B04_COS := BS_Scale(LIESB2B04_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LEAFB2B01_COS[1]:=LIESB2B01_COS;
LEAFB2B01_COS[2]:=LIESB2B02_COS;
LEAFB2B01_COS[3]:=LIESB2B03_COS;
LEAFB2B01_COS[4]:=LIESB2B04_COS;
LEAFB2B01_COS[5]:=LIESB2B05_COS;
LESFB2B01_TC :=LESFB2B01_LC[1];
(*排风机联动程序*)
ESFB2B01_SLG(ENABLE :=LESFB2B01_TM ,LINKAGEVALUE :=LEAFB2B01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2B01_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2B01_TSTR ,ALLDAY :=LESFB2B01_DM | LESFB2B01_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2B01_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2B01_C,BOOL_IN2:=RESFB2B01_C,BOOL_IN3:=LESFB2B01_TC | LESFB2B01_C:= BOOL_OUT1,RESFB2B01_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2B01_RunTime(RUN :=LESFB2B01_R , RUNTIMESET :=LESFB2B01_RSTV , RUNTIMERST :=LESFB2B01_RST , RunTimeRec_In :=LESFB2B01_RH | LESFB2B01_RH:= RUNTIME);
LESFB2B02_TC :=LESFB2B02_LC[1];
(*排风机联动程序*)
ESFB2B02_SLG(ENABLE :=LESFB2B02_TM ,LINKAGEVALUE :=LEAFB2B01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2B02_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2B02_TSTR ,ALLDAY :=LESFB2B02_DM | LESFB2B02_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2B02_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2B02_C,BOOL_IN2:=RESFB2B02_C,BOOL_IN3:=LESFB2B02_TC | LESFB2B02_C:= BOOL_OUT1,RESFB2B02_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2B02_RunTime(RUN :=LESFB2B02_R , RUNTIMESET :=LESFB2B02_RSTV , RUNTIMERST :=LESFB2B02_RST , RunTimeRec_In :=LESFB2B02_RH | LESFB2B02_RH:= RUNTIME);
LESFB2B03_TC :=LESFB2B03_LC[1];
(*排风机联动程序*)
ESFB2B03_SLG(ENABLE :=LESFB2B03_TM ,LINKAGEVALUE :=LEAFB2B01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2B03_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2B03_TSTR ,ALLDAY :=LESFB2B03_DM | LESFB2B03_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2B03_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2B03_C,BOOL_IN2:=RESFB2B03_C,BOOL_IN3:=LESFB2B03_TC | LESFB2B03_C:= BOOL_OUT1,RESFB2B03_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2B03_RunTime(RUN :=LESFB2B03_R , RUNTIMESET :=LESFB2B03_RSTV , RUNTIMERST :=LESFB2B03_RST , RunTimeRec_In :=LESFB2B03_RH | LESFB2B03_RH:= RUNTIME);
LESFB2B04_TC :=LESFB2B04_LC[1];
(*排风机联动程序*)
ESFB2B04_SLG(ENABLE :=LESFB2B04_TM ,LINKAGEVALUE :=LEAFB2B01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2B04_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2B04_TSTR ,ALLDAY :=LESFB2B04_DM | LESFB2B04_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2B04_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2B04_C,BOOL_IN2:=RESFB2B04_C,BOOL_IN3:=LESFB2B04_TC | LESFB2B04_C:= BOOL_OUT1,RESFB2B04_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2B04_RunTime(RUN :=LESFB2B04_R , RUNTIMESET :=LESFB2B04_RSTV , RUNTIMERST :=LESFB2B04_RST , RunTimeRec_In :=LESFB2B04_RH | LESFB2B04_RH:= RUNTIME);
LIESB2A01_CO_AVE(INPUT :=LIESB2A01_CO );
LIESB2A01_COS := BS_Scale(LIESB2A01_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB2A02_CO_AVE(INPUT :=LIESB2A02_CO );
LIESB2A02_COS := BS_Scale(LIESB2A02_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB2A03_CO_AVE(INPUT :=LIESB2A03_CO );
LIESB2A03_COS := BS_Scale(LIESB2A03_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LEAFB2A01_COS[1]:=LIESB2A01_COS;
LEAFB2A01_COS[2]:=LIESB2A02_COS;
LEAFB2A01_COS[3]:=LIESB2A03_COS;
LESFB2A01_TC :=LESFB2A01_LC[1];
(*排风机联动程序*)
ESFB2A01_SLG(ENABLE :=LESFB2A01_TM ,LINKAGEVALUE :=LEAFB2A01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2A01_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2A01_TSTR ,ALLDAY :=LESFB2A01_DM | LESFB2A01_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2A01_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2A01_C,BOOL_IN2:=RESFB2A01_C,BOOL_IN3:=LESFB2A01_TC | LESFB2A01_C:= BOOL_OUT1,RESFB2A01_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2A01_RunTime(RUN :=LESFB2A01_R , RUNTIMESET :=LESFB2A01_RSTV , RUNTIMERST :=LESFB2A01_RST , RunTimeRec_In :=LESFB2A01_RH | LESFB2A01_RH:= RUNTIME);
LESFB2A02_TC :=LESFB2A02_LC[1];
(*排风机联动程序*)
ESFB2A02_SLG(ENABLE :=LESFB2A02_TM ,LINKAGEVALUE :=LEAFB2A01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LESFB2A02_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB2A02_TSTR ,ALLDAY :=LESFB2A02_DM | LESFB2A02_LC:= LINKAGEOUT);
(*同步程序*)
ESFB2A02_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LESFB2A02_C,BOOL_IN2:=RESFB2A02_C,BOOL_IN3:=LESFB2A02_TC | LESFB2A02_C:= BOOL_OUT1,RESFB2A02_C:=BOOL_OUT2);
(*运行累积时间*)
ESFB2A02_RunTime(RUN :=LESFB2A02_R , RUNTIMESET :=LESFB2A02_RSTV , RUNTIMERST :=LESFB2A02_RST , RunTimeRec_In :=LESFB2A02_RH | LESFB2A02_RH:= RUNTIME);
END_PROGRAM