71 lines
2.8 KiB
Plaintext
71 lines
2.8 KiB
Plaintext
// Block Name (Original): TestLAD
|
|
// Block Number: 2
|
|
// Original Language: LAD
|
|
|
|
FUNCTION_BLOCK "TestLAD"
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_RETURN
|
|
Ret_Val : Void;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
All_Auto_RETVAL : Int;
|
|
Reset_SP_Word_RETVAL : Int;
|
|
mResetWaterTot : Bool;
|
|
mResetSyrupTot : Bool;
|
|
mResetCO2Tot : Bool;
|
|
mResetProductTot : Bool;
|
|
Block_Move_Err : Int;
|
|
END_VAR
|
|
|
|
BEGIN
|
|
|
|
// Network 1: Manual Syrup Drain Valve Open - Operator Alarm (Original Language: LAD)
|
|
|
|
"gHVP301_Open" := ("gSyrupRoomEn" AND "gBlenderCIPMode" AND "gIN_CIP_CIPRunning" AND "Procedure_Variables"."Blender_Run"."Running" AND NOT "gIN_HVP301_Aux") OR ("gSyrupRoomEn" AND "Procedure_Variables"."FTP302Line_Preparation"."Done" AND NOT "gIN_HVP301_Aux" AND NOT "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_FastChangeOverEnabled" AND NOT "Procedure_Variables"."Syr_RunOut"."Done");
|
|
|
|
// Network 2: Manual Syrup Drain Valve Open - Operator Alarm (Original Language: LAD)
|
|
|
|
"mHVM302_Dly"(IN := "gIN_HVM302_Aux", PT := S5T#1S); // TODO: Declarar "mHVM302_Dly" : TON;
|
|
"gHVM302_Open" := "mHVM302_Dly".Q;
|
|
|
|
// Network 3: ResetTotalizer (Original Language: LAD)
|
|
|
|
"mResetTotalizerTmr"(IN := "gBlendResetTotalizer", PT := S5T#2S); // TODO: Declarar "mResetTotalizerTmr" : TP;
|
|
|
|
// Network 4: ResetWaterTot (Original Language: LAD)
|
|
|
|
"mResetFTN301TotTmr"(IN := "gFTN301_ResetTot" OR "mResetTotalizerTmr", PT := S5T#2S); // TODO: Declarar "mResetFTN301TotTmr" : TP;
|
|
"mResetWaterTot" := "mResetFTN301TotTmr".Q;
|
|
|
|
// Network 5: ResetCO2Tot (Original Language: LAD)
|
|
|
|
"mResetFTP302TotTmr"(IN := "mResetTotalizerTmr" OR "gFTP302_ResetTot", PT := S5T#2S); // TODO: Declarar "mResetFTP302TotTmr" : TP;
|
|
"mResetSyrupTot" := "gSyrupRoomEn" AND "mResetFTP302TotTmr".Q;
|
|
|
|
// Network 6: ResetProductTot (Original Language: LAD)
|
|
|
|
"mResetFTM303TotTmr"(IN := "mResetTotalizerTmr" OR "gFTM303_ResetTot", PT := S5T#2S); // TODO: Declarar "mResetFTM303TotTmr" : TP;
|
|
"mResetCO2Tot" := "mResetFTM303TotTmr".Q;
|
|
|
|
// Network 7: ResetCO2Tot (Original Language: LAD)
|
|
|
|
"mResetProductTotTmr"(IN := "mResetTotalizerTmr" OR "gProductMFMResetTot", PT := S5T#2S); // TODO: Declarar "mResetProductTotTmr" : TP;
|
|
"mResetProductTot" := "mResetProductTotTmr".Q;
|
|
|
|
// Network 8: Mod Copy Recipe (Original Language: LAD)
|
|
|
|
"mAux_FP_M700_1" := "HMI_Variables_Cmd"."Recipe"."Main_Page" AND NOT "mFP_Recip_Main_Page";
|
|
"mFP_Recip_Main_Page" := "HMI_Variables_Cmd"."Recipe"."Main_Page";
|
|
"T_Pulse_Recipe_Edit"(IN := "HMI_Variables_Cmd"."Recipe"."Main_Page" AND "HMI_Variables_Cmd"."Recipe"."Edit", PT := S5T#500ms); // TODO: Declarar "T_Pulse_Recipe_Edit" : TP;
|
|
IF "T_Pulse_Recipe_Edit" AND "T_Pulse_Recipe_Edit".Q THEN
|
|
"HMI_Variables_Cmd"."Recipe"."Edit" := FALSE;
|
|
END_IF;
|
|
IF "mAux_FP_M700_1" THEN
|
|
"HMI_Variables_Cmd"."Recipe"."Edit" := TRUE;
|
|
END_IF;
|
|
|
|
END_FUNCTION_BLOCK
|