Hi everyone.
When I run the code below, it works fine.
However I have an option at the end of the code to repeat the program ["Press Enter"]
or to end the program ["press "esc"].
The "esc" option works fine.
However if "Enter is chosen, which should bring me back to the start of the program so that
I can enter a new function to solve, when I enter the new function and press "OK"
It tells me I "Entered nothing" in the RequestStr box.
Any help would be greatly appreciated.
Thank you
T Gahan
Code:
When I run the code below, it works fine.
However I have an option at the end of the code to repeat the program ["Press Enter"]
or to end the program ["press "esc"].
The "esc" option works fine.
However if "Enter is chosen, which should bring me back to the start of the program so that
I can enter a new function to solve, when I enter the new function and press "OK"
It tells me I "Entered nothing" in the RequestStr box.
Any help would be greatly appreciated.
Thank you
T Gahan
Code:
Define LibPub funvarsolv()=
Prgm
:Local y1,res,var,i,ab,d,c
:
:Loop
:0→c
:Loop
:1→d
:Try
:RequestStr "enter function",y1,0,ab
:0→d
:
:Else
:© user left input box empty
:[color=blue][b]Text "you entered nothing",0[/b][/color] [color=blue]"This comes up everytime the loop is repeated"[/color]
:ClrErr
:
:EndTry
:If d=0
:Exit
:EndLoop
:© user pressed cancel
: If ab=0 Then
: Disp "Press ENTER to end"
: subrtine\delay()
: DelVar y1,res,var,i,k,ab
: Return
:
:EndIf
:
:For i,1,dim(y1),1
:If ord(mid(y1,i,1))≥97 and ord(mid(y1,i,1))≤122 Then
:var:=char(ord(mid(y1,i,1)))
:Exit
:
:ElseIf ord(mid(y1,i,1))≥65 and ord(mid(y1,i,1))≤90 Then
:var:=char(ord(mid(y1,i,1)))
:Exit
:
:ElseIf ord(mid(y1,i,1))≥945 and ord(mid(y1,i,1))≤969 Then
:var:=char(ord(mid(y1,i,1)))
:Exit
:
:ElseIf ord(mid(y1,i,1))≥913 and ord(mid(y1,i,1))≤937 Then
:var:=char(ord(mid(y1,i,1)))
:Exit
:Else
:Disp "not a function"
:EndIf
:EndFor
: expr("Define y1(var) ="&y1)
: res:=exp▶list(solve(y1(#var)=0,#var),#var)
:
:Disp "function: y1("&var&") = ",y1(#var)
:
:Disp "Solution set: "&var&" =",res
:
:subrtine\dlay()
:If k="esc" Then
:1→c
:[color=blue][b]ElseIf k="enter" Then[/b] [b]"problem here[/b]"[/color]
:0→c
:EndIf
:If c=1
:Exit
:EndLoop
:EndPrgm