Beiträge von PorscheRobAdmin

oder gleich das Problem:

der Roboter soll gestoppt bleiben bis der Dialog beantwortet wurde:

GLOBAL DEF Start_Dialog ( )
INT HANDLE,ANSWER
DECL KrlMsg_T MSG
DECL KrlMsgPar_T PAR[3]
DECL KrlMsgDlgSK_T SK[7]
DECL KrlMsgOpt_T OPT

MSG.NR=1
MSG.MODUL[]="Porsche"
MSG.MSG_TXT[]=Porsche_Dialog1"
SK[6]={SK_TYPE #VALUE,SK_TXT[] "- Brown -"}
SK[7]={SK_TYPE #VALUE,SK_TXT[] "- Red -"}
OPT={VL_STOP TRUE, CLEAR_P_RESET TRUE, LOG_TO_DB TRUE}
HANDLE=Set_KrlDlg(MSG,PAR[],SK[],OPT)
WAIT FOR HANDLE >0
WHILE Exists_KrlDlg(HANDLE,ANSWER)
WAIT SEC 0.1
ENDWHILE
SWITCH ANSWER
CASE 6
CASE 7
DEFAULT
ENDSWITCH

END

Gruss Rainer

Hallo,

hat von euch jemand eine Doku der neuen Meldungsausgabe rumliegen
ich habe folegende KUKA Software: V5.5.8

Gruss aus Zuffenhausen

Rainer

Hallo,
geht dann sowas auch? $IN[cVar[]]??

Rainer

Hallo,

wird dann bei "vor Raumgrenzen anhalten" wirklich die aktuelle Bewegungsrichtung eingerechnet, bzw. auch die Lasdaten komplett mit berücksichtigt??

Gruß Rainer

Hallo,

mein Programm sieht etwa so aus:

USER_PARAM(PAR1 :IN,PAR2 :IN,PAR3 :IN,PAR4 :IN,PAR5 :IN,PAR6 :IN,PAR7 :IN,PAR8 :IN,PAR9 :IN,PAR10 :IN)

aber jetzt 10xVarState abzufragen oder wie ich's jetzt gemacht habe:

ON_ERROR_PROCEED
intb1 = PAR1
IF $ERR.NUMBER == 0 THEN
ON_ERROR_PROCEED
intb2 = PAR2
IF $ERR.NUMBER == 0 THEN
ON_ERROR_PROCEED
intb3 = PAR3

usw.

ist natürlich ein riesen Ding!!!! könnt ihr mir bitte helfen meinen Code stark zu dezimieren!!

Rainer

Hallo,

wie kann ich in einem aufgerufenen Unterprogramm set_Var am einfachsten überprüfen ob ein Parameter übergeben wurde oder nicht?

set_Var(Par1,Par2)

oder ob

set_Var() so aufgerufen wurde?

Rainer

Hallo,

hatte heute eine Schulung bei der ein Teilnehmer auf einen CIRC getriggert hat
und der entsprechende Ausgang wurde nicht gesetzt, erst als ich das CONT entfernt
habe.Hattet ihr auch schon Problem beim Triggern auf CIRC?

Gruß Rainer

wäre es möglich die Anzahl der maximale Tools auf 128 zu erweitern?
wir verwenden bis zu ca. 90 rauf

Rainer

würde mir gerne eine kleine Kollisionserkennung basteln, hat jemand eine
Beschreibung der ganzen Torq.... Variablen?? habt ihr Vorschläge wie man das
möglichst effektiv aufbauen könnte??

Rainer

Hallo,

OHuuck kannst Du dein Programm mal posten?

Rainer

Hallo,

gibt es eine Anleitung zum Image wiederherstellen
über Netzwerk mit dem neuen KUKA Boot USB Stick
bzw. wie muss ich vorgehen???

Rainer

Glück gehabt! :ylsuper: :ylsuper: gibts für die anderen bald ein Update??

Rainer

meine gute 5.2.9 auch!!??

Rainer

eigentlich nicht! Hast eine SCA Klebesteuerung?

$CYCFLAG

Vielleicht wird`s ja ein Weihnachtsgeschenk für uns alle??

Rainer

Hallo,

wie kann man die Singularität am besten erklären,damit es (fast) Jeder versteht

Gruss Rainer

Genau,

welche Kommandokanal Befehle wie zb. CANCEL,RESET,STOP....
gibt es noch?

Rainer

so schauts aus!

IF ($T1 OR $T2) THEN
		IF ($SAFETY_SW == #RELEASED) THEN
			IF (IS_KEY_PRESSED(57) AND (IS_KEY_PRESSED(13) OR IS_KEY_PRESSED(11))) AND NOT SYMandShortkeyPressed THEN ;"SYM" & "-" oder "Stop" Taste
				IF (IS_KEY_PRESSED(13)) THEN ;"-" Taste
					CWRITE($CMD,STATE,MODE,"RESET")
				ELSE ;"Stop" Taste
					IF ($PRO_STATE1 == #P_FREE) THEN
						CWRITE($CMD,STATE,MODE,"RUN/R1/CELL()")
					ELSE
						IF $ROB_STOPPED THEN
							CWRITE($CMD,STATE,MODE,"CANCEL 1")
						ENDIF
					ENDIF
					SYMandShortkeyPressed=TRUE
				ENDIF
			ENDIF
			IF SYMandShortkeyPressed AND NOT (IS_KEY_PRESSED(57) AND (IS_KEY_PRESSED(13) OR IS_KEY_PRESSED(11))) THEN
				SYMandShortkeyPressed=FALSE
			ENDIF
		ENDIF
	ENDIF

Hallo,

habs jetzt noch um "RESET" des Programms erweitert! SYM + Start "-" Taste

Rainer

Hallo,

Danke! mit was öffne ich diese Anhänge?????

Rainer