Hallo,
Ich arbeite derzeit an einer UserTech mit der man mit den 4 Softkeys eine Zangenvariable auswählen können soll. Um mit dem Start-Softkey ein Programm ausführen zu können.
Das Problem derzeit ist jedoch, dass keine Variablendefinition klappt.
Habe in $config.dat die INT zange angelegt, kann sie aber nicht im KFD aufrufen.
Was ist an diesem Code falsch?
################# KRC2 V4.1.4 SP1 ####################
Code
DEFTP ProgrammHOME
DECL STATKEY ZPLUS={TOPTEXT[] "ZANGE", CENTERTEXT[] "+", NEED_MODEOP 3, NEED_PROSTATE 30, NEED_SAFETYSWITCH FALSE}
DECL STATKEY ZMINUS={TOPTEXT[] "ZANGE", CENTERTEXT[] "-", NEED_MODEOP 3, NEED_PROSTATE 30, NEED_SAFETYSWITCH FALSE}
DECL STATKEY ZSTART={TOPTEXT[] "START", PICTURE[] "C:\KRC\ROBOTER\TEMPLATE\start.ico", NEED_MODEOP 3, NEED_PROSTATE 30, NEED_SAFETYSWITCH TRUE}
DECL STATKEY ZHOME={TOPTEXT[] "HOME", PICTURE[] "C:\KRC\ROBOTER\TEMPLATE\home.ico", NEED_MODEOP 3, NEED_PROSTATE 30, NEED_SAFETYSWITCH TRUE}
DEFSCRIPT t_plus
SET ZPLUS={PICTURE[] "C:\KRC\ROBOTER\TEMPLATE\plus.ico", ENABLE TRUE}
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
SETVAR(FULLPATH[] "ZANGE", VALUE[] "%zange +1")
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
SET ZSTART={BOTTONTEXT %zange}
ENDSCRIPT
DEFSCRIPT t_minus
SET ZMINUS={PICTURE[] "C:\KRC\ROBOTER\TEMPLATE\minus.ico", ENABLE TRUE}
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
SETVAR(FULLPATH[] "ZANGE", VALUE[] "%zange -1")
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
SET ZSTART={CENTERTEXT %zange}
ENDSCRIPT
DEFSCRIPT z_startja
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
MESSAGE "ZANGE %ZANGE WIRD ANGEDOCKT!"
SETVAR(FULLPATH[] "START", VALUE[] TRUE)
SHOWVAR(FULLPATH[] "START", PARAM START)
ENDSCRIPT
DEFSCRIPT z_startnein
MESSAGE "VORGANG ABGEBROCHEN!"
ENDSCRIPT
DEFSCRIPT z_startkeyup
SETVAR(FULLPATH[] "START", VALUE[] "FALSE")
SHOWVAR(FULLPATH[] "START", PARAM START)
ENDSCRIPT
DEFSCRIPT z_start
SHOWVAR(FULLPATH[] "ZANGE", PARAM zange)
SWITCH DIALOG "Wollen Sie die Zange %zange wirklich andocken?"
CASE "Ja" DO z_startja
CASE "Nein" DO z_startnein
ENDSWITCH
ENDSCRIPT
DEFSCRIPT z_homekeyup
SETVAR(FULLPATH[] "HOME", VALUE[] "FALSE")
SHOWVAR(FULLPATH[] "HOME", PARAM HOME)
SET ZHOME= {ENABLE TRUE}
ENDSCRIPT
DEFSCRIPT z_home
MESSAGE "DER ROBOTER WIRD IN HOME-POSITION GEFAHREN"
SET ZHOME= {ENABLE FALSE}
SETVAR(FULLPATH[] "HOME", VALUE[] "TRUE")
ENDSCRIPT
DECL STATKEYBAR LEISTE
SET ZPLUS={OnKeyDown t_plus}
SET ZMINUS={OnKeyDown t_minus}
SET ZSTART={OnKeyDown z_start, OnKeyUp z_startkeyup}
SET ZHOME={OnKeyDown z_home, OnKeyUp z_homekeyup}
SET leiste={STATKEY[1] ZPLUS, STATKEY[3] ZSTART, STATKEY[4] ZHOME}
ENDTP
Alles anzeigen
Wäre sehr dankbar um Hilfe.