Beiträge von Kotik

Kotik · 4. April 2011

Kotik · 30. März 2011

Hallo,

ich bin`s wieder mal. Ich möchte was neues machen und komm da nicht weiter. Kann mir einer helfen oder sogar das ganze vereinfachen?

Ich möchte nur eine Zeile schreiben, wo dann alles unbemerkt passiert :
rPosKontrolle GetTooldata("to_GrGeb_"+strProKurz{gi_ProduktNummer}),wo_Vorr,pUms3_BiegeVorr,"Vorr_HIN";

Damit ich keine Signale (um Position des Rob. zu erfragen muss) / rBoxDef nicht mehr benutze, wollte ich es auf dieser Weise lösen...

Die Func und Routine möchte ich in dem Logik.mod haben und der Aufruf der Routine passiert in dem Bearbeitungsmodul (wo auch die Tool (für jewieligen Produkt) dekl. sind).

Vielen Dank im Voraus!

P.S.: An den ProgrammierSklaven: Du hast bestimmt eine elegantere Lösung???

Fehler:

/RobZelle2/RAPID/T_ROB1/TEACH_R60_R4(241,23): Fehler 40123 : Argumentfehler : Argument für 'PERS'-Parameter tLocTool ist kein Verweis auf eine Persistenteoder ist schreibgeschützt. 30.03.2011 18:08:20 RAPID

Code

rPosKontrolle GetTooldata("to_GrGeb_"+strProKurz{gi_ProduktNummer}),wo_Vorr,pUms3_BiegeVorr,"Vorr_HIN";


FUNC tooldata GetToolData(string Name)
    VAR tooldata tool;


    !Read the type depending position
    GetDataVal Name,tool;
    RETURN tool;
    !
  ENDFUNC


  
  !---------------------------------------------------
  !----- Positionskontrolle der Roboter
  !---------------------------------------------------
  PROC rPosKontrolle(
    PERS tooldata tLocTool,
    PERS wobjdata wLocWobj,
    robtarget pLocPos,
    string strLoc)

    VAR robtarget pTemp;

    pTemp := CRobT(\Tool:=tLocTool \WObj:=wLocWobj); !-- Akt.Position mit der Soll-Position vergleichen
    !-- Wenn die CRobT-Pos. in vergleich der Teachpos-Hol/AblPos kleiner 3 ist, fährt der Rob. automatisch raus bis in die Home
    IF ((Abs(pTemp.trans.x-pLocPos.trans.x)+Abs(pTemp.trans.y-pLocPos.trans.y)+Abs(pTemp.trans.z-pLocPos.trans.z)+Abs(pTemp.rot.q1-pLocPos.rot.q1)+Abs(pTemp.rot.q2-pLocPos.rot.q2)+Abs(pTemp.rot.q3-pLocPos.rot.q3)+Abs(pTemp.rot.q4-pLocPos.rot.q4))) < 3 THEN
      rError "Report","Berechnete  Seite: "+ByteToStr(byEntBiege),"";
    ELSE 
      rError "Exit","R4=> Die Akt.Pos. ist nicht angefahren!","Bitte den Rob. (VORSICHTIG) manuel rausfahren!";
    ENDIF 


  ENDPROC

Alles anzeigen

Kotik · 7. März 2011

Danke für die schnelle Antwort.

Ich meinte die Flexpendant-SDK und die Option für den Rob. hab ich schon.

Mit der VS 2008 geht es auch, hatte extra nachgefragt.

Und über die Robot Aplication Builder klappt mein Vorhaben nicht. Ich möchte gerne Bilder, Diagramme verknüpfen. Dazu brauche ich C#/++

Kotik · 7. März 2011

Hallo,

ich bin neu in dieser Abteilung und suche Hilfe von den Experten hier.

Die IRC5 Steuerung kenne ich eigentlich gut, programiere schon seit 6 Jahren ABB. Jetzt wollte ich mich in Sachen Application Weiterbilden.

Mein Problem:

Ich kann leider keine C# + SDK programmieren.

Suche eine Anleitung, Schritt für Schritt (am besten auf Deutsch). Wie man ein Projekt von Anfang an bis zum Schluß erstellt.

Oder, weiss einer wo ich die Schulungen dafür kriege???

Vielen Dank im Voraus!

Kotik · 7. Februar 2011

Ist ein wenig verwierend meine Fragestellung/Beschreibung.

Wir sehen uns ja bald... :ylsuper:

Kotik · 4. Februar 2011

Hab`s mir gedacht. Ich habe immer zu spezielle Sachen...

Dein vorschlag ist nur für einen Waituntil, oder?

Ich weiß nicht, ob ich verständlich das ganze beschrieben habe...

z.B.:

Jetzt - WaitUntil (di_FRG_Be_=1 AND di_BeladeFRG=1 AND di_MatEin=1);

Jetzt - WaitUntil (di_FRG_Be_=1 AND (di_BeladeFRG=1 OR bLoc);

iwatch iTimer (nach 60sec. Trap)
möchte - WaitUntil (di_FRG_Be_=1 AND di_BeladeFRG=1 AND di_MatEin=1);
iSleep Itimer

iwatch iTimer (nach 60sec. Trap)
möcht- WaitUntil (di_FRG_Be_=1 AND (di_BeladeFRG=1 OR bLoc);
iSleep Itimer

ect...

trap

bTimerStop;

endtrap

Damit ich dies nicht bei jedem Waituntil mache, dachte ich mir , eine kleine Funkt. bauen. Was wie es aussihet gar nicht geht.

Wenn das mein Meister schon sagt, dann gib`s keine Möglichkeit mehr.

Itime

Kotik · 4. Februar 2011

Hallo Michael,

ich glaube, dass was ich möchte geht gar nicht

Dann muss ich doch mit ITimer arbeiten...

Mein Gedanke:

Code

PROC rWaitUntil(
    \bool bLoc1,
    \bool bAND,
    \bool bOR,
    \bool bLoc2,
    \bool bAND,
    \bool bOR,
    \bool bLoc3,
    \bool bAND,
    \bool bOR,
    \signaldi diLoc1,
    \bool bAND,
    \bool bOR,
    \signaldi diLoc2,
    \bool bAND,
    \bool bOR,
    \signaldi diLoc3,
    \bool bAND,
    \bool bOR,
    \signaldo doLoc1,
    \bool bAND,
    \bool bOR,
    \signaldo doLoc2,
    \bool bAND,
    \bool bOR,
    \signaldo doLoc3,
    \bool bAND,
    \bool bOR)

    VAR bool bStopHTTimer;
    VAR bool bTrue;

    ClkReset clTimer;
    ClkStart clTimer;

    WHILE bTrue DO
      !
      IF (bLoc1 bOR diLoc1) bAND DOutput(doLoc1)=1) THEN  
        !-- Warten bis die Signale ect.. kommen
        bTrue:=TRUE;
      ELSEIF (ClkRead(clSchicht)>60) AND (bTimerStart) THEN 
        ClkReset clTimer;
        bStopHTTimer:=TRUE;
      ENDIF 

    ENDWHILE 
    !
  ENDPROC

Alles anzeigen

Kotik · 4. Februar 2011

Hi Programmiersklave,

hast du keine Idee?

Kotik · 27. Januar 2011

Hallo,

ich möchte die Standzeit von dem Roboter mit aufzeichnen. d.h.: Ich kann nur die Zeit starten, wenn der PZ nicht mehr läuft oder eine Variable gesetzt ist (wie im meinem Beispiel).

Da ich aber, nicht mit Maxtime arbeiten (in gewiessen Positionen, muss warten bis etwas erfüllt wird) kann, wollte ich in einem Unterprog. die Variable nach gewiesser Zeit setzen.

Es gibt eine Möglichkeit mit Itimer, aber dazu muss ich ein Interruppt vor dem WaitUn. aufwäcken und danach wieder schlafen legen.

Das ist viel zu viel an Zeilen

Kotik · 24. Januar 2011

Hallo,

ich habe wieder mal was spezielles.

Da ich sehr viele Waituntils habe, möchte ich eine Routine bastelln wo ich die einzelene Signale/Variablen übergeben kann und dann in der Routine dementsprechend was mache.

z.B.:

rWaitUntil (di_FRG_Be_Entladung,1,AND,di_Streck_BeladeFRG,=1 AND di_Mat_Anf_Ein=1);

!-------------------------------------
!--Ablauf fürs ablegen auf die Biege--
!-------------------------------------
PROC rWaitUntil(
\signaldi di_Loc1,
\signaldi di_Loc2,
\signaldi di_Loc3,
\signaldo do_Loc1,
\signaldo do_Loc2,
\signaldo do_Loc3,
\bool bLoc1,
\bool bLoc2,
\bool bLoc3,
\and oder or mit dabei...)

VAR bool bWeiter;

ClkReset clZeit;
ClkStart clZeit;
WHILE (NOT bWeiter)
IF (Present(di_Loc1),Present(di_Loc2),Present(di_Loc3),Present(do_Loc1));
bWeiter:=TRUE;
ENDIF

IF ClkRead(clZeit)>60 StopTask:=TRUE;
ENDWHILE
ENDPROC

Kotik · 20. Januar 2011

Sehr gerne.

Her damit....

Bist du der Michael Bu..... von der Fa. Ca... :ylsuper:

Kotik · 19. Januar 2011

Hallo,

ich möchte gerne eine Zeitumstellung am BP ausgeben, wenn es soweit ist. Damit der Bediener die Zeit im TP manuel umstellen kann (da es automatisch nicht geht).

Ein Ex-Kollege hatte mal eine Funktion geschrieben.
Diese Funk. meldet auch 2 mal im Jahr die Umstellung, aber an den falschen Tagen/Monaten.

FUNC bool fSommerWinterTag ()

VAR bool bLocHilf;
VAR bool bLocZeitUmstellen;
VAR bool bLocWechselMerker;
VAR num nLocSommer;
VAR num nLocWinter;
VAR num nLocSommerZWB;
VAR num nLocWinterZWB;
VAR string strLocPart;
VAR num nLocZahl1;
VAR num nLocZahl2;
VAR num nLocZahl3;
VAR num strLocStdNeu;

!--Aktuelle Uhrzeit und Datum auslesen
strUhrNeu:=CTime();
strDatNeu:=CDate();
bLocHilf:=StrToVal(StrPart(strDatNeu,9,2),nTagNeu);
bLocHilf:=StrToVal(StrPart(strDatNeu,6,2),nMonNeu);
bLocHilf:=StrToVal(StrPart(strDatNeu,1,4),nJahNeu);
bLocHilf:=StrToVal(StrPart(strUhrNeu,1,2),strLocStdNeu);
!
nLocSommerZWB:=(nJahNeu-2002)+(Trunc((nJahNeu-2000)*0.25));
nLocSommer:=31-(Round(7*((nLocSommerZWB/7)-Trunc(nLocSommerZWB/7))));
nLocWinterZWB:=(nJahNeu-2004)+(Trunc((nJahNeu-2004)*0.25));
nLocWinter:=31-(Round(7*((nLocWinterZWB/7)-Trunc(nLocWinterZWB/7))));
!
nLocZahl1:=(nMonNeu)+(nTagNeu/100);
nLocZahl2:=(nMonNeu)+(nLocSommer/100);
nLocZahl3:=(nMonNeu)+(nLocWinter/100);
IF (nLocZahl1>=nLocZahl2) AND (nLocZahl1<nLocZahl3) THEN
nStdNeu:=strLocStdNeu;
strLocPart:=StrPart(strUhrNeu,3,6);
strUhrNeu:=NumToStr(nStdNeu,0)+strLocPart;
bLocZeitUmstellen:=TRUE;
ELSE
nStdNeu:=strLocStdNeu;
strLocPart:=StrPart(strUhrNeu,3,6);
strUhrNeu:=NumToStr(nStdNeu,0)+strLocPart;
!--Merker, dass man die Zeit beim Start von Main einstellen soll.
!--Die Zeit sollte (egal ob im Sommer oder Winter) nach Winterzeit (für Michael: nach Normalzeit)
!--eingestellt werden, sonnst wird das ganze verkehrt abgespeichert!
bLocZeitUmstellen:=FALSE;
ENDIF
bLocWechselMerker:=bZeitUmstellen<>bLocZeitUmstellen;
bZeitUmstellen:=bLocZeitUmstellen;
RETURN bLocWechselMerker;
!
ENDFUNC

Kann mir da einer Helfen?

Kotik · 17. Januar 2011

Das im Laufendem Prog. müßte ich noch ausprobieren. Mit dem Rest, ist halt so...

Kotik · 14. Januar 2011

Ich habe zumindest manchmal das Problem, wenn ich im Automatik über Wlan was reingespielt hatte und vergessen habe den Schreibzugrief raus zunehmen, dann starte ich die Anlage über SPS und es passiert nix. Man kommt aber nicht sofort auf den Gedanken, dass das SZ noch aktive ist.

d.h. Man mit SZ die Roboter nicht starten und (kaum was ausrichten am Rechner) wenn man während die Roboter sich bewegen SZ anfordert, dann stoppt sofort alles!!!

Kotik · 14. Januar 2011

Das stimmt so nicht!

Du kannst im Hand, den SZ anfordern und musst den auch über BP gewähren. Aber, du brauchst es nicht im Automatikbetrieb am BP gewähren!

Im Automatik geht es auch ohne der Zustimmung!

Und das ist eigentlich die größte Sorge, weil man es nicht direkt sieht und auch garnicht drauf guckt!

Kotik · 13. Januar 2011

Laut ABB ist es nicht möglich dies vom System abzugreifen. Es wird aber an die TA weiter geleitet.
Jetzt ist nur eine Frage der Zeit, ob es die Änderung beim nächsten Update gibt.

Kotik · 5. Januar 2011

Vielen Dank für Eure Hilfe!

Damit ich nicht noch eine Thema eröffne, möchte ich hier erfragen.

Ich suche ein FTP Programm, wo ich das kopieren der Backup`s aus den Roboter auf den Server und PC automatisch bewerkstellige.

Hat da einer schon Erfahrungen?

Kotik · 27. Dezember 2010

Oh ja...

Ich möchte kein neues Thema eröffnen und deshalb hier die Frage:

Ist es möglich eine bestimmte Routine so zu sperren, dass die Punkte in dieser Routine nicht mehr umteachen könne, für den Default User (mit wenig Rechten).

Ich weiß, dass man dem User das teachen untersagen kann, dies ist aber für alle Positionen.

Ich möchte, aber das nur eine Position für den Bediner sperren und wenn ich mich anmelde, dass es automatisch aktive (zum teachen frei) ist.

Vielen Dank im Voraus!

Kotik · 22. Dezember 2010

Zitat von Kotik

Jetzt weiß ich nicht wie ich es mit mehreren User mich verbinde.

Ich nehme alles zurück! Es klappt super!

Komischerweise klappt es bei allen Zellen. Hab mich mit dem Benutzernamen (Vollzugrief) und Passwort angemeldet und plötzlich geht. Ich verstehe nix mehr!

Vorher ging es nicht und jetzt plötzlich.

Großen Dank an alle!!!!

Kotik · 22. Dezember 2010

Hab mit dem Total Commander ausprobiert und es Klappt. Aber nur mit Default User (so zu sagen Standartrechte).

Jetzt weiß ich nicht wie ich es mit mehreren User mich verbinde.

Beiträge von Kotik

Robtarget Namen optimieren ;)

Robtarget Namen optimieren ;)

Anfängerhilfe: IRC5 SDK Application HMI programmieren

Anfängerhilfe: IRC5 SDK Application HMI programmieren

Waituntil modifizieren...?

Waituntil modifizieren...?

Waituntil modifizieren...?

Waituntil modifizieren...?

Waituntil modifizieren...?

Waituntil modifizieren...?

SommerWinterzeit berechnen

SommerWinterzeit berechnen

Ausgang auf "Fernschreibzugriff im Automatikbetrieb"?

Ausgang auf "Fernschreibzugriff im Automatikbetrieb"?

Ausgang auf "Fernschreibzugriff im Automatikbetrieb"?

Ausgang auf "Fernschreibzugriff im Automatikbetrieb"?

FTP Verbindung über WLAN

FTP Verbindung über WLAN

FTP Verbindung über WLAN

FTP Verbindung über WLAN

Wieviele Mitglieder waren heute eingeloggt?