nested loops not working

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

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