13 KiB
13 KiB
FUNCTION "BlenderRun_SelectConstan" : Void
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : TASK2
NAME : 'Name'
VERSION : 1.0
BEGIN
CASE "HMI_Blender_Parameters".Processor_Options.Blender_OPT._ModelNum OF
0: "Blender_Variables".gWaterVFM_DN := 25 ;
"Blender_Variables".gSyrupMFM_DN := 15 ;
"Blender_Variables".gWaterPipe_DN := 32 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ;
"Blender_Variables".gProdTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
1: "Blender_Variables".gWaterVFM_DN := 25 ;
"Blender_Variables".gSyrupMFM_DN := 15 ;
"Blender_Variables".gWaterPipe_DN := 38 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ;
"Blender_Variables".gProdTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
2: "Blender_Variables".gWaterVFM_DN := 25 ; // NOT Exists
"Blender_Variables".gSyrupMFM_DN := 15 ;
"Blender_Variables".gWaterPipe_DN := 50 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ;
"Blender_Variables".gProdTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 150.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#150.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
3: "Blender_Variables".gWaterVFM_DN := 25 ;
"Blender_Variables".gSyrupMFM_DN := 15 ;
"Blender_Variables".gWaterPipe_DN := 50 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ;
"Blender_Variables".gProdTankVolume := 550 ;
"Blender_Variables".gDeairTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 200.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#200.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
4: "Blender_Variables".gWaterVFM_DN := 40 ;
"Blender_Variables".gSyrupMFM_DN := 25 ;
"Blender_Variables".gWaterPipe_DN := 65 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.9 ;
"Blender_Variables".gProdTankVolume := 1150 ;
"Blender_Variables".gDeairTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 283.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#283.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ;
5: "Blender_Variables".gWaterVFM_DN := 40 ;
"Blender_Variables".gSyrupMFM_DN := 25 ;
"Blender_Variables".gWaterPipe_DN := 65 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.9 ;
"Blender_Variables".gProdTankVolume := 1150 ;
"Blender_Variables".gDeairTankVolume := 550 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 350.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#350.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ;
6: "Blender_Variables".gWaterVFM_DN := 40 ;
"Blender_Variables".gSyrupMFM_DN :=25 ;
"Blender_Variables".gWaterPipe_DN := 80 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#0.9;
"Blender_Variables".gProdTankVolume := 1150 ;
"Blender_Variables".gDeairTankVolume := 1150 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 450.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#450.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ;
7: "Blender_Variables".gWaterVFM_DN := 50 ;
"Blender_Variables".gSyrupMFM_DN := 40 ;
"Blender_Variables".gWaterPipe_DN := 80 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ;
"Blender_Variables".gProdTankVolume := 2170 ;
"Blender_Variables".gDeairTankVolume := 1150 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 567.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#600.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ;
8: "Blender_Variables".gWaterVFM_DN := 50 ;
"Blender_Variables".gSyrupMFM_DN := 40 ;
"Blender_Variables".gWaterPipe_DN := 105 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ;
"Blender_Variables".gProdTankVolume := 2170 ;
"Blender_Variables".gDeairTankVolume := 1150 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 700.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#700.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 100 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ;
9: "Blender_Variables".gWaterVFM_DN := 50 ;
"Blender_Variables".gSyrupMFM_DN := 40 ;
"Blender_Variables".gWaterPipe_DN := 100 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ;
"Blender_Variables".gProdTankVolume := 2170 ;
"Blender_Variables".gDeairTankVolume := 1150 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 900.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#900.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#1000.0 ;
"Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ;
10: "Blender_Variables".gWaterVFM_DN := 65 ;
"Blender_Variables".gSyrupMFM_DN := 50 ;
"Blender_Variables".gWaterPipe_DN := 100 ;
(* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*)
"Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ;
"Blender_Variables".gProdTankVolume := 2170 ;
"Blender_Variables".gDeairTankVolume := 1150 ;
(* classic code: "Blender_Variables".gBlenderNomSpeed := 1100.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*)
"Blender_Variables".gBlenderNomSpeed := REAL#1100.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;
"Blender_Variables".gProdTankBottomVol := 105 ;
(* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*)
"Blender_Variables".gFlowTronic := REAL#666.66 ;
ELSE:
;
END_CASE;
(* classic code: "HMI_Variables_Status".Analog_Values.BlenderSlowProd := "Blender_Variables".gBlenderNomSpeed * 0.5;*)
"HMI_Variables_Status".Analog_Values.BlenderSlowProd := "Blender_Variables".gBlenderNomSpeed * REAL#0.5;
IF "HMI_Blender_Parameters".Actual_Recipe_Parameters._ProductionRate >= "HMI_Variables_Status".Analog_Values.BlenderSlowProd THEN
"Blender_Variables".gMinProduction := "Blender_Variables".gBlenderNomSpeed * "HMI_Blender_Parameters".ProcessSetup._MinSpeedNominalProd;
ELSE
"Blender_Variables".gMinProduction := "Blender_Variables".gBlenderNomSpeed * "HMI_Blender_Parameters".ProcessSetup._MinSpeedSlowProd;
END_IF;
"Blender_Variables".gCarboCO2MFM_DN := 15 ;
"Blender_Variables".gWaterVFM_Area := "Blender_Constants".gP_Greek * "Blender_Variables".gWaterVFM_DN / 2 / 100 * "Blender_Variables".gWaterVFM_DN / 2 / 100 ;
"Blender_Variables".gWaterPipe_Area := "Blender_Constants".gP_Greek * "Blender_Variables".gWaterPipe_DN / 2 / 100 * "Blender_Variables".gWaterPipe_DN / 2 / 100 ;
(* classic code: "Blender_Variables".gWaterVFMMeasError := 0.2 ;*)
"Blender_Variables".gWaterVFMMeasError := REAL#0.2 ;
(* classic code: "Blender_Variables".gWaterVFMRepeatibility := 0.1 ;*)
"Blender_Variables".gWaterVFMRepeatibility := REAL#0.1 ;
(* classic code: "Blender_Variables".gSyrupMFMMeasError := 0.1 ;*)
"Blender_Variables".gSyrupMFMMeasError := REAL#0.1 ;
(* classic code: "Blender_Variables".gSyrupMFMRepeatibility := 0.05 ;*)
"Blender_Variables".gSyrupMFMRepeatibility := REAL#0.05 ;
(* classic code: "Blender_Variables".gCO2MFMMeasError := 0.5 ;*)
"Blender_Variables".gCO2MFMMeasError := REAL#0.5 ;
(* classic code: "Blender_Variables".gCO2MFMRepeatibility := 0.25 ;*)
"Blender_Variables".gCO2MFMRepeatibility := REAL#0.25 ;
(* classic code: "Blender_Variables".gCO2MFMZeroStab := 0.325 ;*)
"Blender_Variables".gCO2MFMZeroStab := REAL#0.325 ;
"Blender_Variables".gFirstProdExtraBrix := "HMI_Blender_Parameters".ProcessSetup._FirstProdExtraBrix ;
"Blender_Variables".gFirstProdDietExtraSyr := "HMI_Blender_Parameters".ProcessSetup._FirstProdDietExtraSyr ;
"Blender_Variables".gFirstProdExtraCO2Fact := "HMI_Blender_Parameters".Actual_Recipe_Parameters._FirstProdExtraCO2Fact ;
"System_RunOut_Variables".TM301_Drain.Time_Preset.Step0 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt0Time));
"System_RunOut_Variables".TM301_Drain.Time_Preset.Step1 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt1Time));
"System_RunOut_Variables".TM301_Drain.Time_Preset.Step2 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt2Time));
"System_RunOut_Variables".TM301_Drain.Time_Preset.Step3 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt3Time));
"System_RunOut_Variables".Prod_Pipe_RunOut.Time_Preset.Step0 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._ProdPipeRunOutSt0Time));
"System_RunOut_Variables".RMM301_OV_ProdPipeRunOut := "HMI_Blender_Parameters".ProcessSetup._RMM301ProdPipeRunOu ;
"System_RunOut_Variables".RMP302_OV_ProdPipeRunOut := "HMI_Blender_Parameters".ProcessSetup._RMP302ProdPipeRunOu;
"System_RunOut_Variables".ProdPipeRunOutProdAmount := "HMI_Blender_Parameters".ProcessSetup._ProdPipeRunOutAmount ;
"System_RunOut_Variables".TM301RunOutChillerAm := "HMI_Blender_Parameters".ProcessSetup._TM301RunOutChiller;
END_FUNCTION