76 lines
3.0 KiB
Plaintext
76 lines
3.0 KiB
Plaintext
// Block Name (Original): TestLAD
|
|
// Block Number: 2
|
|
// Original Language: LAD
|
|
|
|
FUNCTION_BLOCK "TestLAD"
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_INPUT
|
|
END_VAR
|
|
|
|
VAR_OUTPUT
|
|
END_VAR
|
|
|
|
VAR_IN_OUT
|
|
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 (NOT "gIN_HVP301_Aux")) AND (NOT "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_FastChangeOverEnabled") AND "Procedure_Variables"."FTP302Line_Preparation"."Done") AND (NOT "Procedure_Variables"."Syr_RunOut"."Done") OR (((("gSyrupRoomEn" AND (NOT "gIN_HVP301_Aux")) AND "gBlenderCIPMode") AND "gIN_CIP_CIPRunning") AND "Procedure_Variables"."Blender_Run"."Running");
|
|
|
|
// 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; en VAR_STAT o VAR
|
|
"gHVM302_Open" := "mHVM302_Dly".Q;
|
|
|
|
// Network 3: ResetTotalizer (Original Language: LAD)
|
|
|
|
"mResetTotalizerTmr"(IN := "gBlendResetTotalizer", PT := S5T#2S); // TODO: Declarar "mResetTotalizerTmr" : TP; en VAR_STAT o VAR
|
|
|
|
// Network 4: ResetWaterTot (Original Language: LAD)
|
|
|
|
"mResetFTN301TotTmr"(IN := "gFTN301_ResetTot" OR "mResetTotalizerTmr", PT := S5T#2S); // TODO: Declarar "mResetFTN301TotTmr" : TP; en VAR_STAT o VAR
|
|
"mResetWaterTot" := "mResetFTN301TotTmr".Q;
|
|
|
|
// Network 5: ResetCO2Tot (Original Language: LAD)
|
|
|
|
"mResetFTP302TotTmr"(IN := "gFTP302_ResetTot" OR "mResetTotalizerTmr", PT := S5T#2S); // TODO: Declarar "mResetFTP302TotTmr" : TP; en VAR_STAT o VAR
|
|
"mResetSyrupTot" := "mResetFTP302TotTmr".Q AND "gSyrupRoomEn";
|
|
|
|
// Network 6: ResetProductTot (Original Language: LAD)
|
|
|
|
"mResetFTM303TotTmr"(IN := "gFTM303_ResetTot" OR "mResetTotalizerTmr", PT := S5T#2S); // TODO: Declarar "mResetFTM303TotTmr" : TP; en VAR_STAT o VAR
|
|
"mResetCO2Tot" := "mResetFTM303TotTmr".Q;
|
|
|
|
// Network 7: ResetCO2Tot (Original Language: LAD)
|
|
|
|
"mResetProductTotTmr"(IN := "gProductMFMResetTot" OR "mResetTotalizerTmr", PT := S5T#2S); // TODO: Declarar "mResetProductTotTmr" : TP; en VAR_STAT o VAR
|
|
"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; en VAR_STAT o VAR
|
|
IF "T_Pulse_Recipe_Edit".Q AND "T_Pulse_Recipe_Edit" 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
|