Hallo zusammen,,,
derzeitig bin ich ziemlich planlos ,,
kann mirrrr bitte einer helfen ???
also
folgendes hab ich hinbekommen (alles ohne Schulung ,,,weil mein CHef so auf Selbstbeigebrachtet Steht )
/JOB
//NAME 1-HAUPTPROGRAMM-Werkstück A
///GROUP1 RB1
NOP
.
CALL JOB:WERKSTÜCK A TISCH 1 (Aufnahme)
//NAME WERKSTÜCK A TISCH 1 (Aufnahme)
///GROUP1 RB1
NOP
DI
JUMP *INPOS IF IN#(1)=OFF
PAUSE
*INPOS
SET I002 EXPRESS ( I001 - 1 ) / 13
SET I003 EXPRESS I002 * 13
SET I004 EXPRESS I001 - 1 - I003
SET D001 EXPRESS I002 * 0
SETE P001 (1) D001
SET D002 EXPRESS I004 * 45000
SETE P001 (2) D002
SFTON P001 UF#(6)
MOVJ C00000 VJ=40.00 ACC=20 ( gut oder nicht ? )
MOVL
MOVL SHCKSET SSL#(1)
MOVL DOUT OT#(9) ON
TIMER T=0.50
MOVL
SHCKRST
MOVL
SFTOF
END
CALL JOB:WERKSTÜCK A BEARBEITUNG
/JOB
//NAME WERKSTÜCK A BEARBEITUNG
///GROUP1 RB1
NOP
JUMP *LABEL IF IN#(10)=ON
'!!!!!!KEINE-TEILE!!!!!!
*LABEL
CALL JOB: WERKSTÜCK A “BÜRSTEN”
/JOB
//NAME WERKSTÜCK A BÜRSTEN
///GROUP1 RB1
NOP
DOUT OT#(15) ON
SFTOF
EI
DOUT OT#(7) ON
MOVJ
JUMP *LABEL IF I020<=60
PAUSE
'!!! BÜRSTE WECHSELN !!!
SET I020 0
*LABEL
JUMP *VOR IF I013<=80
NÄHER AN BÜRSTE
ADD I020 1
SET I013 0
*VOR
SET D020 EXPRESS I020 * 500
SETE P009 (2) D020
SETE P009 (1) 0
SFTON P009 UF#(4)
DOUT OT#(3) ON
PULSE OT#(11)
MOVJ
SFTOF
MOVJ
SFTON P009 UF#(3)
PULSE OT#(11)
MOVL
MOVJ
PULSE OT#(11)
MOVJ
PULSE OT#(11)
MOVL
MOVJ
DOUT OT#(3) OFF
SFTOF
INC I013
DOUT OT#(7) OFF
MOVJ
DI
DOUT OT#(15) OFF
END
CALL JOB: WERKSTÜCK A “POLIEREN”
/JOB
//NAME WERKSTÜCK A POLIEREN
///GROUP1 RB1
NOP
SFTOF
JUMP *LABEL IF I015<=25
SET I015 0
PULSE OT#(13) T=0.10
*LABEL
INC I015
MOVL
INC I023
INC I005
END
CALL JOB: WERKSTÜCK A TISCH 1 (ABLAGE)
/JOB
//NAME WERKSTÜCK A TISCH 1 (ABLAGE)
///GROUP1 RB1
NOP
DI
JUMP *INPOS IF IN#(1)=OFF
PAUSE
*INPOS
SET I002 EXPRESS ( I001 - 1 ) / 13
SET I003 EXPRESS I002 * 13
SET I004 EXPRESS I001 - 1 - I003
SET D001 EXPRESS I002 * 0
SETE P001 (1) D001
SET D002 EXPRESS I004 * 45000
SETE P001 (2) D002
SFTON P001 UF#(6)
MOVJ
MOVL
SHCKSET SSL#(1)
MOVL
DOUT OT#(9) OFF
TIMER T=0.30
DOUT OT#(10) ON
TIMER T=0.50
DOUT OT#(10) OFF
MOVL SHCKRST
MOVL
SFTOF
END
Das ist nartürlich sehr Aufwendig , WAS IHR SEHT !!!!
Jemand ein Beispiel für Veränderrungen.....????
Ich hab mal gehört das man einen Paralell Jop im Hintergrund mitlaufen lassen kann .
-
1.- im JOB : WERKSTÜCK A BÜRSTEN
benutze ich ein Puls Signal über den "UA"
gibt es die möglichkeit einfach den PARALLEL Job zur Bearbeitung hin zu Starten mit einem Befehl .
Dieser Job soll dann alle 3 sek. diesen Puls ausführen.
Und auf einen Befehl hin Stopen ( nächste Bearbeitungsstation )
JEMAND EIN BEISPIEL BITTE FÜR MICH !!!
2.- im JOB : WERKSTÜCK A BÜRSTEN
fragen wir über ein Signal ab ,
ob das WERKSTÜCK A noch richtig in Position liegt oder nicht
wenn nicht fährt der Robi ( EI, funktion )
aus der jeweiligen position Paralell um einen Wert zurück....
FUNKTIONIERT das auch wenn er z.b auf den Fehler " Kollison AUFNAHME A " anspringt .
jemand eine Ahnung wie das funktionieren könnte das er sich selbstständig aus dem " STOP" Befehl um einen wert x verschiebt und damit frei fährt....
ICH DANKE EUCH SCHON EINMAL IM VORRAUS FÜR EURE IDDEN !!!!
NOCH EINS ZUM ABSCHLUSS::::::
HAB ES MIR LEICHTER VORGESTELL:::::
VIELEICHT SOL:LT ICH MICH MAL SCHULEN AUS EIGENER TASCHE
VIELEN GRÜß