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.
 
 
 
 
 
 

69 lines
2.3 KiB

PROGRAM EAF
VAR_EXTERNAL
END_VAR
VAR_GLOBAL
END_VAR
VAR
LEAFB1C01_COS:ARRAY[0..10] OF REAL;
LIESB1C01_CO_AVE:BS_Average;
LIESB1C02_CO_AVE:BS_Average;
EAFB1C01_SyncControl:IJ_LSyncControl;
EAFB1C01_SLG:IJ_EAFGroup;
EAFB1C01_RunTime:BS_RunTime;
LEAFB1C01_LC :ARRAY[0..10] OF BOOL;
EAFB1C02_SyncControl:IJ_LSyncControl;
EAFB1C02_SLG:IJ_EAFGroup;
EAFB1C02_RunTime:BS_RunTime;
LEAFB1C02_LC :ARRAY[0..10] OF BOOL;
END_VAR
LIESB1C01_CO_AVE(INPUT :=LIESB1C01_CO );
LIESB1C01_COS := BS_Scale(LIESB1C01_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LIESB1C02_CO_AVE(INPUT :=LIESB1C02_CO );
LIESB1C02_COS := BS_Scale(LIESB1C02_CO_AVE.Output , 3, 0, 1000, 0, 0.0);
LEAFB1C01_COS[1]:=LIESB1C01_COS;
LEAFB1C01_COS[2]:=LIESB1C02_COS;
LEAFB1C01_TC :=LEAFB1C01_LC[1];
(**)
EAFB1C01_SLG(ENABLE :=LEAFB1C01_TM ,LINKAGEVALUE :=LEAFB1C01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LEAFB1C01_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB1C01_TSTR ,ALLDAY :=LEAFB1C01_DM | LEAFB1C01_LC:= LINKAGEOUT);
(**)
EAFB1C01_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LEAFB1C01_C,BOOL_IN2:=REAFB1C01_C,BOOL_IN3:=LEAFB1C01_TC | LEAFB1C01_C:= BOOL_OUT1,REAFB1C01_C:=BOOL_OUT2);
(**)
EAFB1C01_RunTime(RUN :=LEAFB1C01_R , RUNTIMESET :=LEAFB1C01_RSTV , RUNTIMERST :=LEAFB1C01_RST , RunTimeRec_In :=LEAFB1C01_RH | LEAFB1C01_RH:= RUNTIME);
LEAFB1C02_TC :=LEAFB1C02_LC[1];
(**)
EAFB1C02_SLG(ENABLE :=LEAFB1C02_TM ,LINKAGEVALUE :=LEAFB1C01_COS , DEAD_BAND :=10.0 , MAXRANGE :=1000.0 , MINRANGE :=0.1 ,LINKAGESET :=LEAFB1C02_COSET , HOLDDELAY :=t#60s , ENABLENUM :=4 , SCH_STR :=LEAFB1C02_TSTR ,ALLDAY :=LEAFB1C02_DM | LEAFB1C02_LC:= LINKAGEOUT);
(**)
EAFB1C02_SyncContRol(CM :=RNIEAF00000_CM , RM :=LCMD00000_RM ,BOOL_IN0:= RNIEAFB2X00_PC,BOOL_IN1:=LEAFB1C02_C,BOOL_IN2:=REAFB1C02_C,BOOL_IN3:=LEAFB1C02_TC | LEAFB1C02_C:= BOOL_OUT1,REAFB1C02_C:=BOOL_OUT2);
(**)
EAFB1C02_RunTime(RUN :=LEAFB1C02_R , RUNTIMESET :=LEAFB1C02_RSTV , RUNTIMERST :=LEAFB1C02_RST , RunTimeRec_In :=LEAFB1C02_RH | LEAFB1C02_RH:= RUNTIME);
END_PROGRAM