Hallo,
ich habe zum ersten mal ein Inlineformular geschrieben, aber der Kuka mag es nicht und sagt interner Fehler. Wenn ich die Technologie einsetzen möchte. Weiß irgendwer was für ein Fehler in dem Code ist ?
mfg elias
DEFTP SET_Greiferpos
Decl PARAM GrpposSET= _
{Shortname[]"Greiferpos:", VALUE {number: DEFAULT 1, MIN 1, MAX 6, Step 1}, UNIT[]" ", Shortcut[]"POS"}
Decl PARAM DistanceWay= _
{ SHORTNAME[]"Distance=", VALUE {number: DEFAULT 1, MIN 0, MAX 1}, UNIT[]" ", SHORTCUT[] "DST"}
Decl PARAM DELAYTIME= _
{Shortname[]"Delay:", VALUE {REAL: DEFAULT 0, MIN -60, MAX 60, Step 0.1}, UNIT []"sec", Shortcut[]"DLY"}
DECL FOLD SETZUU[3]
SETZUU[1]="SET(%GrpposSET,#CONT ,%DistenceWay,%DELAYTIME )"
SETZUU[2]="TRIGGER WHEN DISTANCE=%DistanceWay DELAY=%DELAYTIME DO Greiferpos_SOLL=%GrpposSET"
SETZUU[3]="TRIGGER WHEN DISTANCE=%DistanceWay DELAY=%DELAYTIME DO _Start=TRUE"
DECL FOLD SETPG[8]
SETPG[1]="SET(%GrpposSET)"
SETPG[2]="REPEAT"
SETPG[3]="Greiferpos_SOLL=%GrpposSET"
SETPG[4]="_Start=TRUE"
SETPG[5]="UNTIL (Greiferpos_ref==%GrpposSET)"
SETPG[6]="REPEAT"
SETPG[7]="_Start=FALSE"
SETPG[8]="UNTIL (_Start==FALSE)"
DECL InlineForm Ueberschleifen={PARAM[1] GrpposSET ,PARAM[2] _
DistanceWay, PARAM[3] DELAYTIME, FOLD[1] SETZUU}
DECL InlineForm Punktgenau={PARAM[1] GrpposSET, FOLD[1] SETPG}
ENDTP
DEFTP CHK_Greiferpos
Decl PARAM GrpposCHK= _
{Shortname[]"Greiferpos:", VALUE {number: MIN 1, MAX 6, Step 1}, UNIT[]" ", Shortcut[]"POS"}
DECL FOLD CHKUU[2]
CHKUU[1]="CHECK(%GrpposCHK)"
CHKUU[2]="CONTINUE _
WAIT FOR (Greiferpos_ref==%GrpposCHK)"
Decl InlineForm CHECK={PARAM[1] GrpposCHK, FOLD[1] CHKUU}
ENDTP
Inlineformular
- elias
- Erledigt
-
Zitat
Der Compiler ist eine Heulsuse und gibt noch nicht einmal eine anstaendige fehlermeldung raus.
so is es. -
Ich habe genau dasgleiche Problem am Anfang gehabt.
Hab mir mal erlaubt den Code etwas zu bearbeiten.
Musst nur noch im Menü.ini die entsprechenden Buttons erstellen,dann sollte es funktionieren.
Decl PARAM G_Set={VALUE {NUMBER: min 1, max 6,DEFAULT 1, AUTOLIMIT FALSE},Shortname[] "Greiferpos:" , Shortcut[] "POS" , USERMODE 0}
Decl PARAM D_Way={VALUE {NUMBER: min -1, max 1,DEFAULT 1, AUTOLIMIT FALSE},SHORTNAME[] "Distance:" , SHORTCUT[] "DST" , USERMODE 0}
Decl PARAM D_Time={VALUE {REAL:MIN -60,MAX 60, Step 0.1,Default 0.0},Shortname[] "Delay:" , UNIT [] "sec" , Shortcut[] "DLY"}
DECL FOLD SETZUU[3]
SETZUU[1]="SET (%G_Set ,#CONT ,%D_Way ,%D_Time )"
SETZUU[2]="TRIGGER WHEN DISTANCE=%D_Way DELAY=%D_Time DO Greiferpos_SOLL=%G_Set PRIO=-1 "
SETZUU[3]="TRIGGER WHEN DISTANCE=%D_Way DELAY=%D_Time DO _Start=TRUE PRIO=-1 "
DECL FOLD SETPG[8]
SETPG[1]="SET(%G_Set )"
SETPG[2]="REPEAT"
SETPG[3]="Greiferpos_SOLL=%G_Set "
SETPG[4]="_Start=TRUE"
SETPG[5]="UNTIL (Greiferpos_ref==%G_Set )"
SETPG[6]="REPEAT"
SETPG[7]="_Start=FALSE"
SETPG[8]="UNTIL (_Start==FALSE)"
DECL FOLD CHKUU[3]
CHKUU[1]="CHECK (%GrpposCHK )"
CHKUU[2]="CONTINUE "
CHKUU[3]="WAIT FOR Greiferpos_ref==%GrpposCHK "
DEFTP Set_Grp ={SOC FALSE , SOT FALSE}
DECL InlineForm _Cont = {FOCUS 1,PARAM[1] G_Set , PARAM[2] D_Way , PARAM[3] D_Time , FOLD[1] SETZUU }
DECL InlineForm _Fine = {FOCUS 1,PARAM[1] G_Set , FOLD[1] SETPG }
ENDTP
DEFTP Chk_Grp = {SOC FALSE , SOT FALSE}
DECL InlineForm _State = {FOCUS 1,PARAM[1] G_Set , FOLD[1] CHKUU }
ENDTP -
Sieht gut aus. mal schaun, was Elias dazu sagt.
Besten Dank jedenfalls. -
Hallo,
Ich arbeite mich gerade in die Inlinformulare ein
Folgende Fragen habe ich:
Ich möchte einen Inlieneformular in der Form erstellen; Roboter IN/OUT = PLC /IN
allerding weiß ich nicht wi ich die Zeile als Komentar einfüge:
DEFTP IOs_Coments
DECL PARAM Robot_IO_Coments={SHORTNAME[] "$OUT ", VALUE {NUMBER: DEFAULT[] "0"},SHORTCUT[] ""}
DECL PARAM SPS_IO_Coments={SHORTNAME[] "=PLC E", VALUE {NUMBER: DEFAULT[] "0"},SHORTCUT[] ""}DECL FOLD Roboter_Input[0]
DECL FOLD Roboter_Output[0]
;testing testDECL FOLD SPS_Input[0]
DECL FOLD SPS_Output[0]
DECL InlineForm Robot_Input={PARAM[1] Robot_IO_Coments, PARAM[2] SPS_IO_Coments,FOLD[0] Roboter_Input, FOLD[0] SPS_Input}
DECL InlineForm Robot_Output={PARAM[1] Robot_IO_Coments, PARAM[2] SPS_IO_Coments, FOLD[0] Roboter_Output, FOLD[0] SPS_Output}
;DECL InlineForm SPS_Input={PARAM[1] SPS_IO_Coments, FOLD[0] SPS_Input, PARAM[1] SPS_IO_Coments,FOLD[0] SPS_Output}
;DECL InlineForm SPS_Output={PARAM[1] SPS_IO_Coments, FOLD[0] SPS_Output}ENDTP IOs_Coments
Das sieht dann so aus:
IO Coments Robot_Input/ Output $OUT __ =PLC E ___Ich will das aber in der Form haben
; Roboter "IN/OUT"__ = PLC "OUT/IN"__Out/In muss auswählbar sein
komme nicht weiter.
Erstelle ein Benutzerkonto oder melde dich an um zu kommentieren
Du musst ein Benutzerkonto haben um einen Kommentar hinterlassen zu können
