Eingang setzen

Servus,

Interrupt Programmieren

Grüße

Martl

Hallo Divanis,
hast du eine Doku?
Ganz sooo einfach ist das nicht mit den Interrupts.
Da ist schon ein wenig Lektüre der Doku nötig.
Ausserdem wie willst du denn "wegfahren" in Y Richtung?
Offset oder RelTool?
Gruß
Högi

Keine Panik,
Offset oder RelTool bedeutet einfach nur in welchem Koordinatensystem du dich bewegst.
Poste mal den Progammschnipsel wo der Interrupt greifen soll.
Ausserdem macht ein Interrupt immer da weiter wo er aufgerufen wird.
Nach einem neuen Start fährt der Robbi sofort dahin zurück wo er herkommt.
Das heisst.. du musst auch noch etwas für den Interrupt Fall programmieren.
Was soll dein Robbi denn machen wenn der Eingang felhlt?
Gruß

Ist ja kein Problem, ein Interrupt gilt ja solange, wie Du magst, notfalls während des gesamten Programmes.

VAR intnum Bandriss1;
  VAR intnum Bandriss2;


....usw.


PROC haupt()




    CONNECT Bandriss1 WITH T_Fehler_SM;
    CONNECT Bandriss2 WITH T_Fehler_SM;
    ISignalDI eSM1_Bandriss,1,Bandriss1;
    ISignalDI eSM2_Bandriss,1,Bandriss2;
....
....
....


fahr1;
fahr2;
sonstwas;




endproc




!Irgendwo steht die Interruptroutine:
!Hier springt er rein, wenn der Fehler ist (bei mir wars Bandriss)


  TRAP T_Fehler_SM
    VAR robtarget ptmp;


!Zusatzbedingung testen (bei mir waren es Arbeitsräume, er soll die Zuckung ja nicht überall machen)
    IF (((DOutput(aZone1)=1) OR (DOutput(aZone2)=1) OR (DOutput(aZone3)=1) OR (DOutput(aZone4)=1))) THEN
!Bewegung stoppen
      StopMove;
!Hiermit interessiert ihn der Rest der Bahn nicht mehr
      StorePath;
!Hier liest er die Istposition ein - Tool und Wobj muss es natürlich geben mit Deinen Namen
      ptmp:=CRobT(\Tool:=ToTmp\WObj:=WoTmp);
!Hier bewegt er sich relativ zum Tool, bei mir 15 in Z, das Tool ist feststehend in der Scheibe, das Werkobjekt hängt am Roboter
      MoveL RelTool(ptmp,0,0,15),v1000,fine,ToTmp\WObj:=WoTmp;
!Und gibt die bewegung wieder frei
      StartMove;
!Hier kann man noch was texten oder so....
      TPwrite "Programm tot";
!Und Ende für alles. Will man die Situation retten, wird es natürlich komplizierter.
      EXIT;
    ELSE
      !Programm vielleicht nachstartbar?
      TPwrite "Was?"
      Stop;
    ENDIF
  ENDTRAP

Oder so. Bissl probieren.

Edit: Achso, natürlich kann man die Interrupts auch zwischendurch beliebig schlafenlegen. Normalerweise mache ich das auch innerhalb der Interruptroutine, das ist immer dann nötig, wenn man verhindern will, dass sich die Interrupts "aufstauen", wenn das Ereignis mehrfach eintritt. In meinem Beispiel fehlt das, weil sowieso ein EXIT folgt. Aber sauber ist das nicht....

Grüße,
Michael

Hallo,
lösen kannst Du es auch wie schon angesprochen mit einer TRAP (Interruptroutine), wichtig dabei ist, das Du die Trapverbindung erstmal löscht (ISleep intAbbruch), bevor Du diese neu verbindest (IWatch).

Ablauf:
IDelete intAbbrechen;
CONNECT intAbbrechen WITH irAbbrechen;
ISignalDI diZurueck,high oder 1,intAbbrechen;
!deaktivieren
ISleep intAbbrechen;

TRAP irAbbrechen
! Stopp alle Bewegungen
StopMove;
! Löscht den Pfad und Robbewegung
ClearPath;
! Liest die neue Position (Bezug auf Tool und Werkobjekt)
! pPos ist der Robtarget dazu (sollte Global definiet sein)
pPos:=CRobT(\Tool:=tscheibe\WObj:=wtisch);
! Starten
StartMove;
! Bewegung z.B. mit RelTool
MoveL RelTool(pAktPos,0,-50,0),v100,fine,tscheibe\WObj:=wtisch;
! Bewegung zur Grundstellung und ExitCycle (Wichtig, da er sonst versuchen würde,
! an der Stelle weiter zu machen, wo er aufgehört hat)
MoveL pHome,v100,fine,tscheibe\WObj:=wtisch;
TPErase;
TPWrite "Programm abgebrochen,";
TPWrite "Werkstücklage kontrollieren!";
TPReadFk nFk "Bestätigen","","","","","OK";
TPErase;
ExitCycle;
! Neu start von Main
ENDTRAP

Gutes gelingen!

Hallo divanis,
gib bitte mal Info welche Variante Du erfolgreich umgesetzt hast!

Gruß