Program not working

Forum Attachments

Program not working

HerpDerp 17 Jun 2011 03:20

I just bought a Ti Nspire Calc for school purposes. As I have no experience at coding on the Nspire somewhere I stuffed up I just Input the old program I used. But its not working record 2 different numbers at a time but it appears to not be working can anyone shed some light on the situation? we pretty much just use it to tally 2 different peoples scores in a game at one time.

Re: Program not working

HerpDerp 17 Jun 2011 03:21

0->A
0->B
ClrHome
Lbl H
Disp "Me:",A
Disp "Friend",B
Input "Command:",Str1
Sub(Str1,1,1)->Str2
If Str2="A"
then
expr(str1)->A
else
expr(str1)->B

Last edited on 17 Jun 2011 03:22 by HerpDerp Show more

Re: Program not working

BlakPilar 17 Jun 2011 17:24

You'll need to put an "End" after your "expr(str1)->B". See if that works.

If/Then/Else blocks work like this:

:If (cond)
:Then
://Stuff to do
:Else
://Other stuff to do
://Can be multiple lines
:End

The "End" tells the calculator where to stop interpreting the If/Then/Else block.

---

Projects: BexIDE (hold), Hadean.NET, Legend of Zelda: Link to the Future

Last edited on 17 Jun 2011 17:24 by BlakPilar Show more

Re: Program not working

RobiBue 03 Oct 2011 01:01

I know this has been a few months ago, but I have a solution for you:
1. the program seems to be from a TI-83/84, and the commands for the TI-nspire are a wee bit different, so it needs some (not much) rewriting:

input ==> request (or requeststr)
sub( ==> mid(
expr( has a problem with string handling (it thinks "a1" is a variable)
so if you enter "a1" (which btw is not equal to "A1") you need to get what is after the "a" with
mid(str1,2)
and I just added an extra else for the upper/lower case
and a stop if you enter a q (for quit)

the Try Else EndTry is for the other player, if you omit b or have any other character in front of the friend's number.

Local str1,str2,a,b
0→a
0→b
Lbl h
Disp "Me:",a
Disp "Friend",b
RequestStr "Command:",str1
mid(str1,1,1)→str2

If str2="A" Then

expr(mid(str1,2))→a

ElseIf str2="a" Then

expr(mid(str1,2))→a

ElseIf str2="q" Then

Stop

Else

Try

expr(str1)→b

Else

expr(mid(str1,2))→b

EndTry
EndIf
Goto h

Last edited on 03 Oct 2011 09:23 by RobiBue Show more