71 lines
2.2 KiB
Markdown
71 lines
2.2 KiB
Markdown
```pascal
|
|
// Block Type: FC
|
|
// Block Number: 2025
|
|
// Original Network Languages: LAD
|
|
|
|
FUNCTION "MFMAnalogValues_Totalize" : Void
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_TEMP
|
|
CO2_Tot_temp : Real;
|
|
CO2_Temp_pulse : Real;
|
|
Water_Tot_temp : Real;
|
|
Water_Temp_pulse : Real;
|
|
Syrup_Tot_temp : Real;
|
|
Syrup_Temp_pulse : Real;
|
|
CO2_Totalizer_ : Real;
|
|
CO2_Totalizer_1 : Real;
|
|
Water_Tot_Temp_1 : Real;
|
|
END_VAR
|
|
|
|
#_1S : Bool; // Auto-generated temporary
|
|
BEGIN
|
|
|
|
// Network 1: MIX - MFMAnalogValues_Totalize (Original Language: LAD)
|
|
|
|
// Network 1 did not produce printable SCL code.
|
|
|
|
// Network 2: MIX - (Original Language: LAD)
|
|
|
|
"mAuxTP1"(IN := "Procedure_Variables"."Blender_Run"."Running" OR ("AUX FALSE" AND "M19080"), PT := S5T#1S); // TODO: Declarar "mAuxTP1" : TP;
|
|
|
|
IF "mAuxTP1".Q THEN
|
|
"gBlendResetTotalizer" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 3: (Original Language: LAD)
|
|
|
|
IF "gBlenderBlending" THEN
|
|
"Blender_Variables_Pers"."gWaterTotal" := "Profibus_Variables"."gFTN301_Tot" + "Blender_Variables_Pers"."gWaterTempTot";
|
|
"Blender_Variables_Pers"."gSyrupTotal" := "Profibus_Variables"."gFTP302_Tot" + "Blender_Variables_Pers"."gSyrupTempTot";
|
|
"Blender_Variables_Pers"."gProductVFMTotal" := "Profibus_Variables"."gVFM_ProductTotalizer" + "Blender_Variables_Pers"."gProductVFMTempTot";
|
|
"Blender_Variables_Pers"."gCO2TempTot" := "Profibus_Variables"."gFTM303_Tot" + "Blender_Variables_Pers"."gCO2TempTot";
|
|
END_IF;
|
|
|
|
IF "gBlenderBlending" THEN
|
|
"Blender_Variables_Pers"."gCO2Total" := "Blender_Variables_Pers"."gCO2TempTot" / 1000.0;
|
|
END_IF;
|
|
|
|
// Network 4: MIX - Water Counter Pulse ( 1 Pulse = 10 Lt.) (Original Language: LAD)
|
|
|
|
"Water_Tot_temp" := "Blender_Variables_Pers"."gWaterTotal" - "H2O_Counter_Tot";
|
|
|
|
"DO_Water_Counter_Pulse" := "mPulse_10Lt_Water";
|
|
|
|
// Network 5: MIX - Syrup Counter Pulse ( 1 Pulse = 100 Lt.) (Original Language: LAD)
|
|
|
|
"Syrup_Tot_temp" := "Blender_Variables_Pers"."gSyrupTotal" - "Syr_Counter_Tot";
|
|
|
|
"DO_Syrup_Counter_Pulse" := "mPulse_100Lt_Syrup";
|
|
|
|
// Network 6: Pulsos Contadores Kg CO2 (Original Language: LAD)
|
|
|
|
"CO2_Tot_temp" := "Blender_Variables_Pers"."gCO2Total" - "CO2_Counter_Tot";
|
|
|
|
"DO_CO2_Counter_Pulse" := "mPulse_100Kg_CO2";
|
|
|
|
END_FUNCTION
|
|
|
|
```
|