FB40 MAIN P02 : Removal module |
|
|
|
Netzwerk 1: P02 Initialisation IF "M02 Init" OR NOT "M00 OB1 FirstCycle" THEN "M02 MW48" := #STEP_BITS := 0; IF "M02 Init" THEN "M02 MD40" := "M02 MD44" := 0; "M02 RunHomPos" := TRUE; "DatOfMod".P02.CrntModule := 102; END_IF; END_IF; |
|
|
|
Netzwerk 2: P02 SET execute home position IF "M02 RunHomPos" AND #SET.SET.S.S0 THEN #SET.SET.S.steps := TRUE; END_IF;
IF NOT "M02 RunHomPos" OR "HMI KEY".SYS.GLB.F8_Stop OR "HMI KEY".P02.GLB.F8_Stop THEN #SET.SET.S.steps := "M02 RunHomPos" := FALSE; END_IF;
#SET.SET.S.steph := "M02 FLT ModuStp"; // CALL SET #SET(ACT_STEP => #SET.STEP_NO); |
|
|
|
Netzwerk 3: P02 SEQ1 start, stop, hold #SEQ1.SEQ1.S.steph := NOT "M02 Enabled"; #SEQ1.SEQ1.S.steps := NOT "M02 RunHomPos" AND "M02 SEQ1 Start"; // CALL SEQ1 #SEQ1(ACT_STEP => #SEQ1.STEP_NO); |
|
|
|
Netzwerk 4: P02 Faults monitoring // CALL FLT #FLT(FLT_MODULE := "M02 FLT ModuStp"); |
|
|
|
Netzwerk 5: P02 Module RFID ID read head // not used |
|
|
|
Netzwerk 6: P02 SEQ1_Start IF "M00 TrnsSysRun Imp" AND "M00 AutoCmpltMa run" THEN #STEP.SEQ1_Start := TRUE; RETURN; ELSIF #STEP.SEQ1_Start THEN IF NOT "M02 RunHomPos" AND NOT "M02 SEQ1 Active" THEN "M02 SEQ1 Start" := TRUE; ELSIF "M02 SEQ1 Active" THEN #STEP_BITS := 0; #STEP.SEQ1_Running := TRUE; END_IF; END_IF; |
|
|
|
Netzwerk 7: P02 SEQ1_Running IF #STEP.SEQ1_Running THEN IF "M02 SEQ1 Done" THEN "M02 SEQ1 Start" := FALSE; #STEP_BITS := 0; #STEP.SEQ1_Done := TRUE; RETURN; END_IF; END_IF; |
|
|
|
Netzwerk 8: P02 SEQ1_Done IF #STEP.SEQ1_Done THEN "M02 SEQ1 Done" := FALSE; #STEP_BITS := 0; #STEP.SEQ1_Write := TRUE; // Save actual data "DatOfMod".P02.STS.RunTimeCntr_seq1 := #MaDa.RunTimeCntr_seq1; "DatOfMod".P02.STS.WPC_ok := "M02 SEQ1 DoWP1" AND "M02 SEQ1 WP1 DnOK"; "DatOfMod".P02.STS.CrntWP_ok := "M02 SEQ1 WP1 DnOK"; "DatOfMod".P02.TrgtModule := 103; // If necessary, changing drive direction to module 103 IF NOT "DatOfMod".P02.STS.CrntWP_ok THEN "DatOfMod".P02.TrgtModule := 103; END_IF; "DatOfPLC".P02 := "DatOfMod".P02; END_IF; |
|
|
|
Netzwerk 9: P02 SEQ1_Write IF #STEP.SEQ1_Write THEN "M02 SEQ1 WP1 DnOK" := "M02 SEQ1 DoWP1" := FALSE; "M02 TCP/IP Wrt start" := TRUE;
IF "M02 TCP/IP Wrt done" THEN "M02 TCP/IP Wrt start" := "M02 TCP/IP Wrt done" := FALSE; #STEP_BITS := 0; RETURN; END_IF; END_IF; |
|
|
|
Netzwerk 10: P07 Assembling Run-Time IF #STEP.SEQ1_Running THEN IF "M00 Imp 10Hz" AND "M02 Enabled" THEN #MaDa.RunTimeCntr_seq1 := #MaDa.RunTimeCntr_seq1 + 1; END_IF; ELSE #MaDa.RunTimeCntr_seq1 := 0; IF NOT "M02 Active" AND ("M00 ManuCmpltMa run" AND "HMI KEY".P02.GLB.F19_GoToStep OR "M00 AutoCmpltMa run") THEN #STEP.SEQ1_Start := TRUE; END_IF; END_IF; |
|
|
|
Netzwerk 11: P07 SEQ1 active "M02 Active" :=#STEP.SEQ1_Start AND "M02 SEQ1 Active" OR #STEP.SEQ1_Running OR #STEP.SEQ1_Done OR #STEP.SEQ1_Write; |
|
|
|
Netzwerk 12: P02 Assign tower light signal IF "M02 FLT ModuStp" THEN "M02 FLT ModuStp SR" := true; END_IF;
IF "M02 FLT ModuStp SR" AND NOT "M02 FLT ModuStp ACK" THEN IF "M02 FLT ModuStp SR" AND "M00 ACK Imp" THEN "M02 FLT ModuStp ACK" := true; END_IF; ELSIF NOT "M02 FLT ModuStp" AND "M02 FLT ModuStp ACK" THEN "M02 FLT ModuStp SR" := "M02 FLT ModuStp ACK" := FALSE; END_IF; // Faults lamp #tmp_RedSig_lamp := "M02 FLT ModuStp SR" AND NOT "M02 FLT ModuStp ACK" AND "Clock_1.0Hz" OR "M02 FLT ModuStp SR" AND "M02 FLT ModuStp ACK"; // Ready to start lamp #tmp_GrnSig_lamp := NOT "M02 FLT ModuStp SR" AND NOT "M00 AutoCmpltMa run" AND "M02 HomPos"; |
|
|
|
|