193 lines
4.2 KiB
Markdown
193 lines
4.2 KiB
Markdown
```pascal
|
|
// Block Type: OB
|
|
// Block Number: 35
|
|
// Original Network Languages: STL, LAD
|
|
// Block Comment:
|
|
// OB35_EXC_FREQ = 50ms
|
|
|
|
ORGANIZATION_BLOCK "CYC_INT5"
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_TEMP
|
|
OB35_EV_CLASS : Byte;
|
|
OB35_STRT_INF : Byte;
|
|
OB35_PRIORITY : Byte;
|
|
OB35_OB_NUMBR : Byte;
|
|
OB35_RESERVED_1 : Byte;
|
|
OB35_RESERVED_2 : Byte;
|
|
OB35_PHASE_OFFSET : Word;
|
|
OB35_RESERVED_3 : Int;
|
|
OB35_EXC_FREQ : Int;
|
|
OB35_DATE_TIME : "Date_And_Time";
|
|
END_VAR
|
|
|
|
BEGIN
|
|
|
|
// Network 1: Cycles Counter (Original Language: LAD)
|
|
// PID Control Time Bit (300ms)
|
|
|
|
"MW1968" := "MW1968" + 1;
|
|
|
|
IF "MW1968" >= 7 THEN
|
|
"MW1968" := 1;
|
|
END_IF;
|
|
|
|
// Network 2: Signal Gen (Original Language: LAD)
|
|
|
|
"Signal_Gen_Data"();
|
|
|
|
// Network 3: Analog Values (PV) (Original Language: LAD)
|
|
|
|
"MFM_Analog_Value_Data"();
|
|
|
|
// Network 4: PIDs Call (Original Language: LAD)
|
|
|
|
IF Eq("MW1968", 6) THEN
|
|
"BlenderPID__Main_Data"();
|
|
END_IF;
|
|
|
|
// Network 5: Meas Fill Speed Call (Original Language: LAD)
|
|
|
|
IF Eq("MW1968", 4) THEN
|
|
"BlenderRun_MeasFil_Data"();
|
|
END_IF;
|
|
|
|
// Network 6: Brix Tracking (Original Language: LAD)
|
|
|
|
IF Eq("MW1968", 3) THEN
|
|
"BrixTracking_Data"();
|
|
END_IF;
|
|
|
|
// Network 7: Co2 Tracking Data (Original Language: LAD)
|
|
|
|
IF Eq("MW1968", 6) THEN
|
|
"CO2Tracking_Data"();
|
|
END_IF;
|
|
|
|
// Network 8: Water Totalizer Reset (Original Language: STL)
|
|
// Reset Totalizer
|
|
|
|
// --- BEGIN STL Network 8 ---
|
|
|
|
O "gBlenderCIPMode"
|
|
O "gBlenderRinseMode"
|
|
O "SLIM_Variables".ResetCounter
|
|
JCN nore
|
|
L 0.0
|
|
T "Blender_Variables_Pers".gWaterTotal
|
|
T "Blender_Variables_Pers".gWaterTempTot
|
|
nore: NOP_0
|
|
|
|
// --- END STL Network 8 ---
|
|
|
|
// Network 9: Syrup Totalizer Reset (Original Language: STL)
|
|
// Reset Totalizer
|
|
|
|
// --- BEGIN STL Network 9 ---
|
|
|
|
O "gBlenderCIPMode"
|
|
O "gBlenderRinseMode"
|
|
O "SLIM_Variables".ResetCounter
|
|
JCN nore_1
|
|
L 0.0
|
|
T "Blender_Variables_Pers".gSyrupTotal
|
|
T "Blender_Variables_Pers".gSyrupTempTot
|
|
T "HMI_Variables_Status".Analog_Values.SyrupTotalizerLt
|
|
nore_1: NOP_0
|
|
|
|
// --- END STL Network 9 ---
|
|
|
|
// Network 10: CO2 Totalizer Reset (Original Language: STL)
|
|
// Reset Totalizer
|
|
|
|
// --- BEGIN STL Network 10 ---
|
|
|
|
O "gBlenderCIPMode"
|
|
O "gBlenderRinseMode"
|
|
O "SLIM_Variables".ResetCounter
|
|
JCN nore_2
|
|
L 0.0
|
|
T "Blender_Variables_Pers".gWaterTotal
|
|
T "Blender_Variables_Pers".gSyrupTotal
|
|
T "Blender_Variables_Pers".gCO2Total
|
|
T "Blender_Variables_Pers".gProductVFMTotal
|
|
T "Blender_Variables_Pers".gWaterTempTot
|
|
T "Blender_Variables_Pers".gSyrupTempTot
|
|
T "Blender_Variables_Pers".gCO2TempTot
|
|
T "Blender_Variables_Pers".gProductVFMTempTot
|
|
T "HMI_Variables_Status".Analog_Values.SyrupTotalizerLt
|
|
nore_2: NOP_0
|
|
|
|
// --- END STL Network 10 ---
|
|
|
|
// Network 11: Product Totalizer Reset (Original Language: STL)
|
|
// Reset Totalizer
|
|
|
|
// --- BEGIN STL Network 11 ---
|
|
|
|
O "gBlenderCIPMode"
|
|
O "gBlenderRinseMode"
|
|
O "SLIM_Variables".ResetCounter
|
|
JCN nore_3
|
|
L 0.0
|
|
T "Blender_Variables_Pers".gProductVFMTotal
|
|
T "Blender_Variables_Pers".gProductVFMTempTot
|
|
nore_3: NOP_0
|
|
|
|
// --- END STL Network 11 ---
|
|
|
|
// Network 12: PID Main Data (Original Language: LAD)
|
|
|
|
"PID MAIN Data"();
|
|
|
|
// Network 13: 1 Cycle OB35 in msec (Original Language: STL)
|
|
// 50ms Task (See FB29)
|
|
|
|
// --- BEGIN STL Network 13 ---
|
|
|
|
L "OB35_EXC_FREQ"
|
|
ITD
|
|
DTR
|
|
L 1000.0
|
|
DIV_R
|
|
T "Time_50ms"
|
|
|
|
// --- END STL Network 13 ---
|
|
|
|
// Network 14: 5 Cycle OB35 in msec (Original Language: STL)
|
|
// 250ms Task (See FB29)
|
|
|
|
// --- BEGIN STL Network 14 ---
|
|
|
|
L "OB35_EXC_FREQ"
|
|
L 5
|
|
MUL_I
|
|
ITD
|
|
DTR
|
|
L 1000.0
|
|
DIV_R
|
|
T "Time_250ms"
|
|
|
|
// --- END STL Network 14 ---
|
|
|
|
// Network 15: 6 Cycle OB35 in msec (Original Language: STL)
|
|
// 300ms Task (See FB29)
|
|
|
|
// --- BEGIN STL Network 15 ---
|
|
|
|
L "OB35_EXC_FREQ"
|
|
L 6
|
|
MUL_I
|
|
ITD
|
|
DTR
|
|
L 1000.0
|
|
DIV_R
|
|
T "Time_300ms"
|
|
|
|
// --- END STL Network 15 ---
|
|
|
|
END_ORGANIZATION_BLOCK
|
|
|
|
```
|