nested loops not working

Forum Attachments

Summary:

When I run the code below, it works fine. (TI nspire CAS II calculator) However at the end of the program I give two options, "Enter" to repeat the program, "Esc" to quit. "Esc" works fine. However if I pick "Enter", the RequestStr box pops up again to receive the new input as intended. When I enter the input, the program displays "You entered nothing" and goes back to the RequestStr box again. I have to press "Cancel" on the RequestStr box to get out of the loop. "You entered nothing" is part of the error code I am using to intercept the case where the user may click OK without entering anything into the box. So basically the program works fine the first time I run it, it is when I choose to rerun it again is when the issue arises. Any help will be greatly appreciated. T Gahan

nested loops not working

tgahan 13 May 2021 15:33

Define LibPub funvarsolv()=
Prgm
:Local y1,res,i,ab,d,c
:
:Loop
:0→c
:1→d
:While d =1
:Try
:RequestStr "enter function",y1,0,ab
:0→d
:
:Else
:© user left input box empty
:Text "you entered nothing",0
:ClrErr
:
:EndTry
:If d=0
:Exit
:EndWhile

:© user pressed cancel 
:  If ab=0 Then
:      Disp "Press ENTER to  end"
:                subrtine\delay()
:                  DelVar y1,i,k,ab
:                           Return
:
:EndIf
:
:
:
: expr("Define y1(x) ="&y1)
: res:=exp▶list(solve(y1(x)=0,x),x)
:
:Disp "Solution set: "&var&" =",res
:
:subrtine\dlay()
:If k="esc" Then
:1→c
:ElseIf k="enter" Then
:0→c
:EndIf
:If c=1
:Exit
:EndLoop
:EndPrgm

Re: nested loops not working

Xeda Elnara 31 May 2021 11:34

It has been a while, but maybe it is this that is causing the issue:

:If d=0
:Exit

I think you are trying to use that to exit the While loop, but that code is unnecessary as the code will exit the while loop anyways (since d=0 and you are looping only when d=1).

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0