49 lines
2.0 KiB
Markdown
49 lines
2.0 KiB
Markdown
```pascal
|
|
// Block Type: FC
|
|
// Block Number: 2041
|
|
// Original Network Languages: LAD
|
|
|
|
FUNCTION "BlenderRun_Stopping" : Void
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
BEGIN
|
|
|
|
// Network 1: Request (Original Language: LAD)
|
|
|
|
"Procedure_Variables"."Blender_Stop"."Request" := "gIN_StopBtn" OR "gBlenderAlarm";
|
|
|
|
// Network 2: Latch (Original Language: LAD)
|
|
|
|
"Procedure_Variables"."Blender_Stop"."Latch" := ("Procedure_Variables"."Blender_Stop"."Request" AND "Procedure_Variables"."Blender_Run"."Latch" AND "Procedure_Variables"."Blender_Stop"."Done" AND "gBlenderSuppliesOk") OR ("Procedure_Variables"."Blender_Stop"."Latch" AND "Procedure_Variables"."Blender_Run"."Latch" AND "Procedure_Variables"."Blender_Stop"."Done" AND "gBlenderSuppliesOk");
|
|
|
|
// Network 3: OperatorStop (Original Language: LAD)
|
|
|
|
// Network 3 did not produce printable SCL code.
|
|
|
|
// Network 4: Stop Done Reset (Original Language: LAD)
|
|
|
|
IF "Procedure_Variables"."Blender_Stop"."Done" THEN
|
|
"Procedure_Variables"."Blender_Stop"."Done" := FALSE;
|
|
END_IF;
|
|
|
|
// Network 5: Stop (Original Language: LAD)
|
|
|
|
"gEnRampDownToStop" := ("Blender_Variables_Pers"."gWaterRecipe" AND "HMI_PID"."RMM303"."ManualControl"."ManOut" AND "HMI_PID"."RMM301"."ManualControl"."ManOut") OR ("Blender_Variables_Pers"."gWaterRecipe" AND "Blender_Variables_Pers"."gCarboStillProduct" AND "HMI_PID"."RMM301"."ManualControl"."ManOut") OR ("HMI_PID"."RMM303"."ManualControl"."ManOut" AND "HMI_PID"."RMM301"."ManualControl"."ManOut" AND "HMI_PID"."RMP302"."ManualControl"."ManOut") OR ("Blender_Variables_Pers"."gCarboStillProduct" AND "HMI_PID"."RMM301"."ManualControl"."ManOut" AND "HMI_PID"."RMP302"."ManualControl"."ManOut");
|
|
|
|
// Network 6: Stop Done (Original Language: LAD)
|
|
|
|
IF "gBlenderStopping" AND "gEnRampDownToStop" AND "gFTN301_SpeedToStop" THEN
|
|
"Procedure_Variables"."Blender_Stop"."Done" := TRUE;
|
|
END_IF;
|
|
|
|
// Network 7: Stop Done (Original Language: LAD)
|
|
|
|
IF "gBlenderStopping" AND "gEnRampDownToStop" THEN
|
|
"Procedure_Variables"."Blender_Stop"."Done" := TRUE;
|
|
END_IF;
|
|
|
|
END_FUNCTION
|
|
|
|
```
|