FB60 MAIN P04 : Spring winding point inspection - main module program (slave 4)

[hit  <- on your browser to return]

 

 

 

Netzwerk 1: P04 Initialisation

 

IF "M04 Init" OR NOT "M00 OB1 FirstCycle" THEN

    "M04 MW68" := #STEP_BITS := 0;

    IF "M04 Init" THEN

        "M04 MD60" :=

        "M04 MD64" := 0;

        "M04 RunHomPos" := TRUE;

        "DatOfMod".P04.CrntModule := 104;

    END_IF;

END_IF;

 

 

 

Netzwerk 2: P04 SET execute home position

 

IF "M04 RunHomPos" AND #SET.SET.S.step0 THEN

    #SET.SET.S.steps := TRUE;

END_IF;

 

IF NOT "M04 RunHomPos" OR "HMI KEY".SYS.GLB.F8_Stop OR "HMI KEY".P04.GLB.F8_Stop THEN

    #SET.SET.S.steps := "M04 RunHomPos" := FALSE;

END_IF;

 

#SET.SET.S.steph := "M04 FLT ModuStp";

 

#SET(ACT_STEP => #SET.STEP_NO);

 

 

 

Netzwerk 3: P04 SEQ1 start, stop, hold

 

#SEQ1.SSM1.S.steph := "M04 SEQ1 Start" AND NOT "M00 AutoCmpltMa run";

#SEQ1.SEQ1.S.steps := NOT "M04 RunHomPos" AND "M04 SEQ1 Start";

 

#SEQ1(ACT_STEP => #SEQ1.STEP_NO);

 

 

 

Netzwerk 4: P04 FLT faults monitoring

 

#FLT(FLT_MODULE := "M04 FLT ModuStp");

 

 

 

Netzwerk 5: P04 STEP.SEQ1_Start

 

IF "M00 TrnsSysRun Imp" AND "M00 AutoCmpltMa run" THEN

    #STEP.SEQ1_Start := TRUE;

    RETURN;

ELSIF #STEP.SEQ1_Start THEN

    IF NOT "M04 RunHomPos" AND NOT "M04 SEQ1 Active" THEN

        "M04 SEQ1 Start" := TRUE;

    ELSIF "M04 SEQ1 Active" THEN

        #STEP_BITS := 0;

        #STEP.SEQ1_Running := TRUE;

        #MaDa.RunTimeCntrl_seq1 := 0;

        "M04 SEQ1 WP1 DnOK" := "M04 SEQ1 DoWP1" := FALSE;

    END_IF;

END_IF;

 

 

 

Netzwerk 6: P04 STEP.SEQ1_Running

 

IF #STEP.SEQ1_Running THEN

    IF "M04 SEQ1 Done" THEN

        "M04 SEQ1 Active" := "M04 SEQ1 Start" := FALSE;

        #STEP_BITS := 0;

        #STEP.SEQ1_Done := TRUE;

        RETURN;

    END_IF;

END_IF;

 

 

 

Netzwerk 7: P04 STEP.Done

 

IF #STEP.SEQ1_Done THEN

    "M04 SEQ1 Done" := FALSE;

    #STEP_BITS := 0;

    #STEP.SEQ1_Write := TRUE;

    // Save actual data   

    "DatOfMod".P04.STS.RunTimeCntr_seq1 := #MaDa.RunTimeCntr_seq1;

    "DatOfMod".P04.STS.WPC_ok := "M04 SEQ1 DoWP1" AND "M04 SEQ1 WP1 DnOK";

    "DatOfMod".P04.STS.CrntWP_ok := "M04 SEQ1 WP1 DnOK" AND NOT "M04 SEQ1 WP1 DnNOK";

   

    "DatOfMod".P04.TrgtModule := 105;

    // If necessary, changing drive direction to module 106   

    IF NOT "DatOfMod".P04.STS.CrntWP_ok THEN

        "DatOfMod".P04.TrgtModule := 106;

    END_IF;

    "DatOfPLC".P04 := "DatOfMod".P04; // Block move

END_IF;

 

 

 

Netzwerk 8: P04 STEP.Write

 

IF #STEP.SEQ1_Write THEN

    "M04 TCP/IP Wrt start" := TRUE;

   

    IF "M04 TCP/IP Wrt done" THEN

        #STEP.SEQ1_Write :=

        "M04 TCP/IP Wrt start" := "M04 TCP/IP Wrt done" := FALSE;

    END_IF;

END_IF;

 

 

 

Netzwerk 9: P04 Run-Time

 

IF #STEP.SEQ1_Running THEN

    IF "M00 Imp 10Hz" AND "M04 Enabled" THEN

        #MaDa.RunTimeCntr_seq1 := #MaDa.RunTimeCntr_seq1 + 1;

    END_IF;

ELSE

    IF NOT "M04 Active" AND ("M00 ManuCmpltMa run" AND "HMI KEY".P04.GLB.F19_GoToStep OR "M00 AutoCmpltMa run") THEN

        #STEP.SEQ1_Start := TRUE;

    END_IF;

END_IF;

 

 

 

Netzwerk 10: P04 SEQ1 active

 

"M04 Active" :=

#STEP.SEQ1_Start AND "M04 SEQ1 Active"

OR #STEP.SEQ1_Running

OR #STEP.SEQ1_Done

OR #STEP.SEQ1_Write;

 

 

 

Netzwerk 11: P04 Assign signal

 

IF "M04 FLT ModuStpIS" THEN

    "M04 FLT ModuStpSR" := true;

END_IF;

 

IF "M04 FLT ModuStpSR" AND NOT "M04 FLT ModuStp ACK" THEN

    IF "M00 ACK Imp" THEN

        "M04 FLT ModuStp ACK" := TRUE;

    END_IF;

ELSIF NOT "M04 FLT ModuStpIS" AND "M04 FLT ModuStp ACK" THEN

    "M04 FLT ModuStpSR" := "M04 FLT ModuStp ACK" := FALSE;

END_IF;

#tmp_lamp_SigRD := "M04 FLT ModuStpSR" AND NOT "M04 FLT ModuStp ACK" AND "M00 Clock_1Hz" OR "M04 FLT ModuStpSR" AND "M04 FLT ModuStp ACK";

#tmp_lamp_SigGN := NOT "M04 FLT ModuStpSR" AND ("M00 AutoCmpltMa run" AND "M04 SEQ1 Active" OR "M00 Clock_1Hz" AND NOT "M00 AutoCmpltMa run" AND "M04 SEQ1 Active");

#tmp_lamp_SigYE := "M00 ManuCmpltMa run" AND "M00 Clock_1Hz" OR NOT "M00 AutoCmpltMa run" AND NOT "M00 ManuCmpltMa run";

 

 

FB61 SET P04: Spring winding point inspection - move to home position (slave 4)

 

 

 

Netzwerk 1: SET query home position

"M04 HomPos" :=

"DI OUT P04".Z05.FB_HP

AND "DI OUT P04".Z06.FB_HP

AND "DI OUT P04".G04.FB_HP

AND "DI OUT P04".Z07.FB_HP

AND NOT "DI OUT P04".CAM2_IO.OUT.oxBusy;

// Pre-Setting

"M04 MW68" := 0;

 

 

 

Netzwerk 2: SET execute home position

 

#SET(MAX_STEP := 2);

#ACT_STEP := #SET.S.stepact;

#SET.S.DlyStart.PT := t#200ms;

 

 

 

Netzwerk 3: Step jump distributor

 

CASE #SET.S.stepact OF

    0: // Waiting for enable

        #SET.S.stepd := #SET.S.steps;

       

    1: // Z06 Lift cylinder HP

        "DI OUT P04".CAM2_IO.IN.ixTrigger := FALSE;

        "DI OUT P04".Z06.VLV.CmdExe_WP := FALSE;

        "DI OUT P04".Z06.VLV.CmdExe_HP := "HMI KEY".P04.Z06.F11_Enable_HP;

        #SET.S.stepd := "DI OUT P04".Z06.FB_HP;

       

    2: // Z05 Rotary cylider HP

        "DI OUT P04".Z05.VLV.CmdExe_WP := FALSE;

        "DI OUT P04".Z05.VLV.CmdExe_HP := "HMI KEY".P04.Z05.F11_Enable_HP;

        #SET.S.stepd := "DI OUT P04".Z05.FB_HP;

       

    3: // G04 Clamp cylinder HP

        "DI OUT P04".G04.VLV.CmdExe_WP := FALSE;

        "DI OUT P04".G04.VLV.CmdExe_HP := "HMI KEY".P04.G04.F11_Enable_HP;

        #SET.S.stepd := "DI OUT P04".G04.FB_HP;

       

    4: // Z07 Gripper lock-out cylinder HP

        "DI OUT P04".Z07.VLV.CmdExe_WP := FALSE;

        "DI OUT P04".Z07.VLV.CmdExe_HP := "HMI KEY".P04.Z07.F11_Enable_HP;

        #SET.S.stepd := "DI OUT P04".Z07.FB_HP;

       

    5: // Query module at home position

        "M04 RunHomPos" := NOT "M04 HomPos";

        "M04 Enbl toRTT" := "DI MAIN P05".SEQ1.Shift_Register.%X21;

END_CASE;