Posts by mshivasharan

    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)

Advertising from our partners