175 lines
3.6 KiB
Markdown
175 lines
3.6 KiB
Markdown
```pascal
|
|
// Block Type: FC
|
|
// Block Number: 1802
|
|
// Original Network Languages: LAD, STL
|
|
|
|
FUNCTION "CarboWaterLine_Seq" : Void
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_INOUT
|
|
mStep_Number : Int;
|
|
mTimer : Int;
|
|
mTransition : Bool;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
mAuxTimer : Int;
|
|
__PlcmigTempFillBits_2B0 : Array[0..7] of Bool;
|
|
END_VAR
|
|
|
|
BEGIN
|
|
|
|
// Network 1: STEP CONTROL (Original Language: STL)
|
|
|
|
// --- BEGIN STL Network 1 ---
|
|
|
|
L "mStep_Number"
|
|
JL LEND
|
|
JU ST00
|
|
JU ST01
|
|
JU ST02
|
|
LEND: JU FULL
|
|
FULL: L 0
|
|
T "mStep_Number"
|
|
JU END
|
|
|
|
// --- END STL Network 1 ---
|
|
|
|
// Network 2: STEP 00 (Original Language: LAD)
|
|
// Step 0: Wait To Carbonate Water Line
|
|
|
|
IF "AUX FALSE" THEN
|
|
"gSP_RVN301" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX FALSE" AND "Disable_Bit" THEN
|
|
"gSP_AVM322" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX FALSE" THEN
|
|
"gSP_PPN301" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX FALSE" THEN
|
|
"gSP_AVM326" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX FALSE" THEN
|
|
"gSP_CarboPipe_En" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX FALSE" THEN
|
|
"gSP_AVN328" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 3: STEP 00 (Original Language: LAD)
|
|
|
|
IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
|
|
"gSP_PPN305" := TRUE;
|
|
END_IF;
|
|
|
|
IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
|
|
"gSP_RVN301_1" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 4: STEP 00 (Original Language: LAD)
|
|
|
|
SEL_I(G := Eq("HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_CoolerControl", 1) OR Eq("HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_CoolerControl", 3), IN0 := 0, IN1 := 0);
|
|
|
|
// Network 5: STEP 00 (Original Language: STL)
|
|
|
|
// --- BEGIN STL Network 5 ---
|
|
|
|
A "AUX TRUE"
|
|
= "__PlcmigTempFillBits_2B0"[0]
|
|
BLD 103
|
|
A "AUX TRUE"
|
|
= "__PlcmigTempFillBits_2B0"[1]
|
|
BLD 103
|
|
A "Procedure_Variables".CarboWaterLine.Wait
|
|
= "__PlcmigTempFillBits_2B0"[2]
|
|
BLD 103
|
|
A CLK_0.5S
|
|
= "__PlcmigTempFillBits_2B0"[3]
|
|
BLD 103
|
|
CALL "_StepMove"
|
|
A _Statusword_?
|
|
JC END
|
|
|
|
// --- END STL Network 5 ---
|
|
|
|
// Network 6: STEP 01 (Original Language: LAD)
|
|
// Step 1: Wait To Carbonate Water Line
|
|
|
|
IF "AUX TRUE" THEN
|
|
"gSP_RVN301" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX TRUE" THEN
|
|
"gSP_PPN301" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX TRUE" THEN
|
|
"gSP_AVM326" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX TRUE" THEN
|
|
"gSP_CarboPipe_En" := TRUE;
|
|
END_IF;
|
|
|
|
IF "AUX TRUE" THEN
|
|
"gSP_AVN328" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 7: STEP 01 (Original Language: LAD)
|
|
|
|
IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
|
|
"gSP_PPN305" := TRUE;
|
|
END_IF;
|
|
|
|
IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
|
|
"gSP_RVN301_1" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 8: STEP 01 (Original Language: STL)
|
|
|
|
// --- BEGIN STL Network 8 ---
|
|
|
|
A "AUX TRUE"
|
|
= "__PlcmigTempFillBits_2B0"[0]
|
|
BLD 103
|
|
A "AUX TRUE"
|
|
= "__PlcmigTempFillBits_2B0"[1]
|
|
BLD 103
|
|
A "Procedure_Variables".CarboWaterLine.Wait
|
|
= "__PlcmigTempFillBits_2B0"[2]
|
|
BLD 103
|
|
A CLK_0.5S
|
|
= "__PlcmigTempFillBits_2B0"[3]
|
|
BLD 103
|
|
CALL "_StepMove"
|
|
A _Statusword_?
|
|
JC END
|
|
|
|
// --- END STL Network 8 ---
|
|
|
|
// Network 9: STEP 02 (Original Language: LAD)
|
|
// Water Line Carbonation Completed
|
|
|
|
IF "AUX TRUE" THEN
|
|
"Procedure_Variables"."CarboWaterLine"."Done" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 10: END (Original Language: STL)
|
|
|
|
// --- BEGIN STL Network 10 ---
|
|
|
|
END: NOP_0
|
|
|
|
// --- END STL Network 10 ---
|
|
|
|
END_FUNCTION
|
|
|
|
```
|