|
Call Main-Safety-Block OB123 |
|
OB1 Main : Main Program Sweep |
|
|
By means of a wide variety of techniques, sheet metals can be given all sorts of complex hollow shapes and sections. The equipment employed for this type of work ranges from simple bending press to elaborate power-operated automatic hydraulic press.
What you are seeing here is an H-type power press consisting of: 1. One Hydraulic Oil Control Pump (M01) 2. Two Main Hydraulic Pump (M02 + M03) 3. Two Ram Cylinder 1+2 (C13) 4. Ram Stow Pin (C27) 5. Two Spiral Column Stroke Limitation Unit (M04) 6. Upper Die and Lower Die 7. Input and output Sheet-Metal Table 8. Hydraulic Press HMI 9. Main working Press Positions |
|
|
Netzwerk 1: Start measuring runtime (Start Cycle)
"HMI SYS".Support.LastCycle := RUNTIME("HMI SYS".Support.LastCycle_inout); |
|
|
|
|
|
Netzwerk 2: Pulse generator
"HMI SYS".Support.Sav_Clock_Byte := "HMI SYS".Support.Sav_Clock_Byte XOR "Clock_Byte"; "M00 PLC Impulse" := "HMI SYS".Support.Sav_Clock_Byte AND "Clock_Byte"; "HMI SYS".Support.Sav_Clock_Byte := "Clock_Byte"; |
|
|
|
|
|
Netzwerk 3: CALL distributor
"DI MAIN GLB"(); —>"DI MAIN P01"(); // ---- —>"DI OUT P01"(); |
|
|
|
|
|
Netzwerk 4: First cycle evaluation
U "M00 log 1" L s5t#2s SE "T00 OB1 FirstCycle SE" U "T00 OB1 FirstCycle SE" = "M00 OB1 FirstCycle" |
|
|
|
|
|
Netzwerk 5: Flag logic =0, =1
"M00 log 0" := FALSE; "M00 log 1" := TRUE; |
|
|
|
|
|
Netzwerk 6: End measuring PLC-Runtime (End Cycle)
"HMI SYS".Support.LastCycle := RUNTIME("HMI SYS".Support.LastCycle_inout); "HMI SYS".Support.LastCycle_real := LREAL_TO_REAL(IN := "HMI SYS".Support.LastCycle); |
|
|
|
|
|
FB20 MAIN GLB : Global operating modes and signals evaluation |
|
|
|
|
|
Netzwerk 1: Fault acknowledgement
"M00 ACK Imp" := NOT "M00 ACK FP" AND "HMI KEY".SYS.GLB.F1_AckKey; "M00 ACK FP" := "HMI KEY".SYS.GLB.F1_AckKey; |
|
|
|
|
|
Netzwerk 2: Call main station safety program
"M00 EStp ok" := "DIF_Main_Safety_RTG1".FB_SAFE_GLB.M0F_ESTP_GLB AND "DIF_Main_Safety_RTG1".FB_SAFE_GLB.M0F_SFDOR_CLS AND "DIF_Main_Safety_RTG1".FB_SAFE_GLB.M0F_OEP_OK; |
|
|
|
|
|
Netzwerk 3: GLB FLT faults monitoring
#FLT(FLT_MODULE := "M00 FLT ModuStpIS"); |
|
|
|
|
|
Netzwerk 4: Assigned failure complete machine
"M00 EStp ok" := "M00 FLT ModuStpIS" OR "M01 FLT ModuStpIS"; |
|
|
|
|
|
Netzwerk 5: Set failure complete machine
IF "M00 FltCmpltMaIS" THEN "M00 FltCmpltMaSR" := true; END_IF;
IF "M00 FLT CmpltMaSR" AND NOT "M00 FLT CmpltMa ACK" THEN IF "M00 ACK Imp" THEN "M00 FLT CmpltMa ACK" := TRUE; END_IF; ELSIF NOT "M00 FLT CmpltMaIS" AND "M00 FLT CmpltMa ACK" THEN "M00 FLT CmpltMaSR" := "M00 FLT CmpltMa ACK" := FALSE; END_IF; "A01 FLT LD" := "M00 FLT CmpltMaSR" AND NOT "M00 FLT CmpltMa ACK" AND "M00 Clock_1Hz" OR "M00 FLT CmpltMaSR" AND "M00 FLT CmpltMa ACK"; |
|
|
|
|
|
Netzwerk 6: Query assembly module at home position
"M00 HomPos" := "M01 HomPos"; IF "M00 HomPos" THEN "M00 HomPosSR" := TRUE; END_IF; |
|
|
|
|
|
Netzwerk 7: Start operating mode AUTOMATIC
IF "HMI KEY".SYS.GLB.F3_OM_AUTO_ON AND NOT ("M00 HYD OpraTest" OR "M00 Ram OTC") AND ("M00 HomPosSR" OR "M00 HomPos") THEN "M00 OM AUTO" := TRUE; "M00 OM MANUAL" := "M00 OM HOME POS" := "M00 ManuCmpltMa run" := FALSE; ELSIF "M00 OM AUTO" AND "HMI KEY".SYS.GLB.F5_Start AND ("M00 HomPosSR" OR "M00 HomPos") THEN "M00 AutoCmpltMa run" := TRUE; END_IF; |
|
|
|
|
|
Netzwerk 8: Start operating mode MANUAL
IF "HMI KEY".SYS.GLB.F4_OM_MANU_ON AND NOT ("M00 HYD OpraTest" OR "M00 Ram OTC") THEN "M00 OM MANUAL" := TRUE; "M00 OM AUTO" := "M00 AutoCmpltMa run" := "M00 OM HOME POS" := FALSE; ELSIF "HMI KEY".SYS.GLB.F5_Start AND "M00 OM MANUAL" THEN "M00 ManuCmpltMa run" := TRUE; END_IF; #tmp_save := "M00 ManuCmpltMa run" XOR "M00 AutoCmpltMa run"; "M00 ManuOff Imp" := NOT #tmp_save AND "M00 ManuOFF FN"; "M00 ManuOFF FN" := #tmp_save;
#TOF_ManuOff_Pulse(IN := "M00 ManuOff Imp", PT := t#600ms); |
|
|
|
|
|
Netzwerk 9: Start HYD Aggregate Operation Test
IF "HMI KEY".SYS.GLB.F2_InchCmpltMa AND NOT "M00 HYD OpraTest REg" THEN "M00 HYD OpraTest" := NOT "M00 HYD OpraTest"; END_IF; "M00 HYD OpraTest REg" := "HMI KEY".SYS.GLB.F2_InchCmpltMa; END_IF; |
|
|
|
|
|
Netzwerk 10: STOP all operating mode
#tmp_save := "M00 HYD OpraTest" OR "M00 OM HOME POS" OR "HMI KEY".SYS.GLB.F8_Stop AND ("M00 AutoCmpltMa run" OR "M00 ManuCmpltMa run"); IF #tmp_save OR "M00 FLT CmpltMaSR" THEN "M00 AutoCmpltMa run" := FALSE; END_IF; IF #tmp_save OR "M00 ManuOff Imp" THEN "M00 ManuCmpltMa run" := FALSE; END_IF; |
|
|
|
|
|
Netzwerk 11: Impulse Start complete machine
"M00 TrnsSysRun Imp" := NOT "M00 TrnsSysRun FP" AND ("M00 AutoCmpltMa run" OR "M00 ManuCmpltMa run"); "M00 TrnsSysRun FP" := "M00 AutoCmpltMa run" OR "M00 ManuCmpltMa run"; |
|
|
|
|
|
Netzwerk 12: Show key colour on HMI
"HMI KEY".SYS.GLB.F15_OM_ON_RUN := "M00 TrnsSysRun FP"; "HMI KEY".SYS.GLB.F11_Show_KeyColour_Start_Stop := "M00 AutoCmpltMa run" OR "M00 ManuCmpltMa run" OR #SET.SET.S.steps; "HMI KEY".SYS.GLB.F14_Show_Key_Start_Stop := "M00 OM AUTO" OR "M00 OM MANUAL" OR "M00 OM HOME POS"; |
|
|
|
|
|
Netzwerk 13: Enable running each module
"M00 Enabled" := "M00 OM HOME POS" AND NOT "M00 FLT CmpltMaSR"; "M01 Enabled" := "M00 AutoCmpltMa run" AND NOT "M01 FLT ModuStpSR"; |
|
|
|
|
|
Netzwerk 14: START home position complete machine
IF "HMI KEY".SYS.GLB.F7_OM_HOM_POS_ON AND NOT ("M00 HomPos" AND "M00 HYD OpraTest") THEN "M00 OM HOME POS" := TRUE; "M00 OM AUTO" := "M00 OM MANUAL" := FALSE; ELSIF "HMI KEY".SYS.GLB.F5_Start AND "M00 OM HOME POS" AND NOT "M00 FLT CmpltMaSR" THEN #SET.SET.S.steps := TRUE; "M00 HomPosSR" := FALSE; END_IF; IF NOT "M00 OM HOME POS" OR "HMI KEY".SYS.GLB.F8_Stop THEN #SET.SET.S.steps := FALSE; END_IF; "M00 Active" := #SET.SET.S.steps; #SET.SET.S.steph := "M00 FLT CmpltMaSR";
#SET(ACT_STEP => #SET.STEP_NO); |
|
|
|
|
|
Netzwerk 16: Assign signal lamp safety door left
"A00 26QM1 LG_L OPN LD" := "E01 GLB PbLT" OR NOT "E00 LG L CLS CH1" AND "M00 Clock_1Hz"; "A00 26QM1 LG_L CLS LD" := "E01 GLB PbLT" OR "E00 LG L CLS CH1"; "A00 26QM1 LG_L ACK LD" := "E01 GLB PbLT" OR NOT "DIF_Main_Safety_RTG1".FB_SAFE_GLB.E00_LG_L_CLS_Q AND "E00 LG L CLS CH1" AND "M00 Clock_1Hz"; |
|
|
|
|
|
Netzwerk 17: Assign signal lamp safety door right
"A00 26QM2 LG_R OPN LD" := "E01 GLB PbLT" OR NOT "E00 LG R CLS CH1" AND "M00 Clock_1Hz"; "A00 26QM2 LG_R CLS LD" := "E01 GLB PbLT" OR "E00 LG R CLS CH1"; "A00 26QM2 LG_R ACK LD" := "E01 GLB PbLT" OR NOT "DIF_Main_Safety_RTG1".FB_SAFE_GLB.E00_LG_R_CLS_Q AND "E00 LG R CLS CH1" AND "M00 Clock_1Hz"; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|