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.
 
 
 
 
 
 

92 lines
4.4 KiB

PROGRAM EAF
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
EAFB3D01_COS:ARRAY[0..10] OF REAL;
LIESB3D01_CO_AVE:BS_Average;
LIESB3D02_CO_AVE:BS_Average;
EAFB3D01_SyncControl:IJ_LSyncControl;
EAFB3D01_SLG:IJ_EAFGroup;
EAFB3D01_RunTime:BS_RunTime;
LEAFB3D01_LC :ARRAY[0..10] OF BOOL;
LEAFB3E01_COS:ARRAY[0..10] OF REAL;
LIESB3E01_CO_AVE:BS_Average;
LIESB3E02_CO_AVE:BS_Average;
LIESB3E03_CO_AVE:BS_Average;
LIESB3E04_CO_AVE:BS_Average;
LIESB3E05_CO_AVE:BS_Average;
EAFB3E01_SyncControl:IJ_LSyncControl;
EAFB3E01_SLG:IJ_EAFGroup;
EAFB3E01_RunTime:BS_RunTime;
LEAFB3E01_LC :ARRAY[0..10] OF BOOL;
LEAFB3E02_COS:ARRAY[0..10] OF REAL;
EAFB3E02_SyncControl:IJ_LSyncControl;
EAFB3E02_SLG:IJ_EAFGroup;
EAFB3E02_RunTime:BS_RunTime;
LEAFB3E02_LC :ARRAY[0..10] OF BOOL;
END_VAR
LIESB3D01_CO_AVE(INPUT :=LIESB3D01_CO );
LIESB3D01_COS := BS_Scale(LIESB3D01_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LIESB3D02_CO_AVE(INPUT :=LIESB3D02_CO );
LIESB3D02_COS := BS_Scale(LIESB3D02_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
EAFB3D01_COS[1]:=LIESB3D01_COS;
EAFB3D01_COS[2]:=LIESB3D02_COS;
LEAFB3D01_TC :=LEAFB3D01_LC[1];
(*排风机联动程序*)
EAFB3D01_SLG(ENABLE :=LEAFB3D01_TM , LINKAGEVALUE :=EAFB3D01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 , LINKAGESET :=LEAFB3D01_COSET ,HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB3D01_TSTR , ALLDAY :=LEAFB3D01_DM | LEAFB3D01_LC:= LINKAGEOUT);
(*同步程序*)
EAFB3D01_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LEAFB3D01_C,BOOL_IN2:=REAFB3D01_C,BOOL_IN3:=LEAFB3D01_TC | LEAFB3D01_C:= BOOL_OUT1,REAFB3D01_C:=BOOL_OUT2);
(*运行累积时间*)
EAFB3D01_RunTime(RUN :=LEAFB3D01_R , RUNTIMESET :=LEAFB3D01_RSTV , RUNTIMERST :=LEAFB3D01_RST , RunTimeRec_In :=LEAFB3D01_RH | LEAFB3D01_RH:= RUNTIME);
LIESB3E01_CO_AVE(INPUT :=LIESB3E01_CO );
LIESB3E01_COS := BS_Scale(LIESB3E01_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LIESB3E02_CO_AVE(INPUT :=LIESB3E02_CO );
LIESB3E02_COS := BS_Scale(LIESB3E02_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LIESB3E03_CO_AVE(INPUT :=LIESB3E03_CO );
LIESB3E03_COS := BS_Scale(LIESB3E03_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LIESB3E04_CO_AVE(INPUT :=LIESB3E04_CO );
LIESB3E04_COS := BS_Scale(LIESB3E04_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LIESB3E05_CO_AVE(INPUT :=LIESB3E05_CO );
LIESB3E05_COS := BS_Scale(LIESB3E05_CO_AVE.Output , 3, 0, 1000, 0, 10.0);
LEAFB3E01_COS[1]:=LIESB3E01_COS;
LEAFB3E01_COS[2]:=LIESB3E02_COS;
LEAFB3E01_COS[3]:=LIESB3E03_COS;
LEAFB3E01_COS[4]:=LIESB3E04_COS;
LEAFB3E01_COS[5]:=LIESB3E05_COS;
LEAFB3E01_TC :=LEAFB3E01_LC[1];
(*排风机联动程序*)
EAFB3E01_SLG(ENABLE :=LEAFB3E01_TM ,LINKAGEVALUE :=LEAFB3E01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LEAFB3E01_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB3E01_TSTR ,ALLDAY :=LEAFB3E01_DM | LEAFB3E01_LC:= LINKAGEOUT);
(*同步程序*)
EAFB3E01_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB3X00_PC,BOOL_IN1:=LEAFB3E01_C,BOOL_IN2:=REAFB3E01_C,BOOL_IN3:=LEAFB3E01_TC | LEAFB3E01_C:= BOOL_OUT1,REAFB3E01_C:=BOOL_OUT2);
(*运行累积时间*)
EAFB3E01_RunTime(RUN :=LEAFB3E01_R , RUNTIMESET :=LEAFB3E01_RSTV , RUNTIMERST :=LEAFB3E01_RST , RunTimeRec_In :=LEAFB3E01_RH | LEAFB3E01_RH:= RUNTIME);
LEAFB3E02_COS[1]:=LIESB3E01_COS;
LEAFB3E02_COS[2]:=LIESB3E02_COS;
LEAFB3E02_COS[3]:=LIESB3E03_COS;
LEAFB3E02_COS[4]:=LIESB3E04_COS;
LEAFB3E02_COS[5]:=LIESB3E05_COS;
LEAFB3E02_TC :=LEAFB3E02_LC[1];
(*排风机联动程序*)
EAFB3E02_SLG(ENABLE :=LEAFB3E02_TM ,LINKAGEVALUE :=LEAFB3E02_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LEAFB3E02_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB3E02_TSTR ,ALLDAY :=LEAFB3E02_DM | LEAFB3E02_LC:= LINKAGEOUT);
(*同步程序*)
EAFB3E02_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB3X00_PC,BOOL_IN1:=LEAFB3E02_C,BOOL_IN2:=REAFB3E02_C,BOOL_IN3:=LEAFB3E02_TC | LEAFB3E02_C:= BOOL_OUT1,REAFB3E02_C:=BOOL_OUT2);
(*运行累积时间*)
EAFB3E02_RunTime(RUN :=LEAFB3E02_R , RUNTIMESET :=LEAFB3E02_RSTV , RUNTIMERST :=LEAFB3E02_RST , RunTimeRec_In :=LEAFB3E02_RH | LEAFB3E02_RH:= RUNTIME);
END_PROGRAM