Miguel
/
Obsidean_VM
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/MFMAnalogValues_Totalize.md

2.2 KiB
Raw Blame History 

// 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