FB42 SEQ1 P02 SEQ1 Removal automatic mode

 

 

 

Netzwerk 1: Execute SEQ1

    #SEQ1(STEP_PLS := "HMI KEY".P02.GLB.F17_StepPls,

         STEP_MNS := "HMI KEY".P02.GLB.F18_StepMns,

         GOTO_STEP := "HMI KEY".P02.GLB.F19_GoToStep,

         GOTO_STEP_NO := "HMI KEY".P02.GLB.GoToStep,

         MAX_STEP := 4);

    #ACT_STEP := #SEQ1.S.stepact;

 

 

 

Netzwerk 2: Step jump distributor SEQ1

    CASE #SEQ1.S.stepact OF

        0: // Waiting for enable

            "M02 SEQ1 Active" := FALSE;

            #SEQ1.S.stepd := "M02 HomPos" AND #SEQ1.S.steps;

            "M02 MW48" := 0;

           

        1: // 2M1 conveyor WP (RTT-Tact)

            "M02 SEQ1 Active" := TRUE;

            IF #SEQ1.S.stepfc THEN

                "DI OUT P02"."2M1".DRV.SetTrgtPos := "DI OUT P02".MANUAL.Support."2M1".Set_TchInPos_1;

                #SEQ1.S.c2.start := TRUE;

                #SEQ1.S.c2.set := 15;

                RETURN;

            END_IF;

           

            IF "DI OUT P02"."2M1".DRV.SetPoReach AND #SEQ1.S.c2.done THEN

                #SEQ1.S.c1.set := 15;

                #SEQ1.S.c1.start := "M02 ToRTT SetPoReach" := TRUE;

                "M02 Enbl RTT" := FALSE;

            END_IF;

           

            IF NOT "DI MAIN P03".SEQ1.WP_PLACE.%X4 THEN

                "M02 ToRTT SetPoReach" := TRUE;

                "M02 Enbl RTT" := FALSE;

            END_IF;

           

            "M02 2M1 GoToPos" := "HMI KEY".P02."2M1".Enable_WP AND "M02 Enbl RTT";

           

            IF #SEQ1.S.c1.done THEN

                #SEQ1.S.stepd := "E02 2M1 LB";

                #SEQ1.S.stepnew := 3;

                IF NOT #SEQ1.S.stepd THEN

                    #FLT."2M1_WP" := TRUE;

                END_IF;

            END_IF;

           

        2: // 2V1 centring unit WP (up)

            "DI OUT P02"."2V1".VLV.CmdExe_HP := FALSE;

            "DI OUT P02"."2V1".VLV.CmdExe_WP := "HMI KEY".P02."2V1".Enable_WP;

            #SEQ1.S.stepd := "DI OUT P02"."2V1".FB_WP;

           

        3: // 2M1 Setting conveyor reference point=0 mm

            IF #SEQ1.S.stepfc THEN

                #SEQ1.S.c1.start := TRUE;

                #SEQ1.S.c1.set := 15;

                "HMI KEY".P02."2M1".F5_Set_Ref_Point := TRUE;

            ELSIF #SEQ1.S.c1.done THEN

                "HMI KEY".P02."2M1".F5_Set_Ref_Point := FALSE;

                #SEQ1.S.stepd := "DI OUT P02"."2M1".DRV.ReferenceOK AND "DI OUT P02"."2M1".DRV.CrntPos = 0.0;

            END_IF;

           

        4: // 2V1 Centring unit HP (down)

            "DI OUT P02"."2V1".VLV.CmdExe_WP := FALSE;

            "DI OUT P02"."2V1".VLV.CmdExe_HP := "HMI KEY".P02."2V1".Enable_HP;

            "M02 SEQ1 Done" := "M02 HomPos";

    END_CASE;

 

 

Home

 

Erfahrung

 

Referenzen

 

Sondermaschinen

 

MSR-Maschinen

 

SPS-Programmierung

 

Visualisierung HMI

 

Elektro CAD

 

Leistungsprofil

 

Personalia

 

SW-Development

 

Dokumentation

 

 

 

Impressum & DSGVO