Please look at this program I am not able to recieve entered numbers on my teach pendent. I am receiving nVal correctly but I am not able to receive other parameters nVal1, nVal2 ... It would be great any one could help me out in solving this problem.
Thank you in advance.
sl_nZyklenzahl=sioASCII
sioASCII=sl_nZyklenzahl
do
sl_nZyklenzahl=toNum(sl_nZyklenzahl,nVal,bOk)
gotoxy(21,7)
if (nVal>9999)
nVal=9999
elseIf (nVal<1)
nVal=1
endIf
gotoxy(21,7)
put(toString("3.0",nVal))
until (sl_nZyklenzahl=="") or (bOk!=true)
sioASCII=" q: "+toString("",nVal)+" #Command recieved "
delay(0.1)
//Rotationalspeed
sioASCII=" i: 301 #Rotational speed "
sioASCII=" "
//sioASCII=" q: "
gotoxy(21,8)
put(" ")
//\sioLink(sioASCII,StaubliTCP)
Sl_nRotation=sioASCII
sioASCII=Sl_nRotation
do
Sl_nRotation=toNum(Sl_nRotation,nVal1,bOk)
until ((bOk!=true) or (Sl_nRotation==""))
gotoxy(21,8)
if (nVal1>700)
nVal1=700
elseIf (nVal1<1)
nVal1=1
endIf
gotoxy(21,8)
put(toString("3.0",nVal1))
sioASCII=" q: "+toString("",nVal1)+" #Command recieved "
delay(0.1)
bOk=false
//Translational1
sioASCII=" i: 302 #Translational speed 1"
sioASCII=" "
//sioASCII=" q: "
gotoxy(21,9)
put(" ")
//sioLink(sioASCII,StaubliTCP)
Sl_nGeschw=sioASCII
sioASCII=Sl_nGeschw
do
Sl_nGeschw=toNum(Sl_nGeschw,nVal2,bOk)
gotoxy(21,9)
if (nVal2>8000)
nVal2=8000
elseIf (nVal2<1)
nVal2=1
endIf
gotoxy(21,9)
put(toString("4.0",nVal2))
until (Sl_nGeschw=="") or (bOk!=true)
sioASCII=" q: "+toString("",nVal2)+" #Command recieved "
delay(0.1)
//translation 2
sioASCII=" i: 303 #Translational speed 2 "
sioASCII=" "
// sioASCII=" q: "
//sioASCII=" "
gotoxy(21,10)
put(" ")
//sioLink(sioASCII,StaubliTCP)
Sl_nGeschw1=sioASCII
sioASCII=Sl_nGeschw1
do
Sl_nGeschw1=toNum(Sl_nGeschw1,nVal3,bOk)
gotoxy(21,10)
if (nVal3>8000)
nVal3=8000
elseIf (nVal3<1)
nVal3=1
endIf
gotoxy(21,10)
put(toString("4.0",nVal3))
until (Sl_nGeschw1=="") or (bOk!=true)
sioASCII=" q: "+toString("",nVal3)+" #Command recieved "
delay(0.1)