Enter Input from right to left

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:

for the mental arithmetic trainer

Enter Input from right to left

Benarius 14 Dec 2018 01:15

To simplify entering answers into my game. e.g. multiply 3-digit numbers, it would be helpful if the input would move from right to left. For each calculation in your head you have to memorise the right most and carry over. So it would be simpler and helpful if the program allows for a result of 564,386 to enter it like this: 6….86….386….4386….64386….564386. Each time you enter a number the cursor moves one to the left instead of right. Would be nice if there is a way. Just to explain it different, entering 683,465 is actually mirrored 564, 386. This would prevent the user to have to press insert before every digit, or use a cheat sheet like a piece of paper. Thanks in advance. Benarius.

---

…indistinctness is my forte…
J.M.W. Turner

Last edited on 14 Dec 2018 01:19 by Benarius Show more

Re: Enter Input from right to left

Trenly 14 Dec 2018 01:40

"?->Str1
Repeat (K=105 and sub(Str1,1,1)≠"?") or K=45
    getKey→K
    If max(K={102,92,93,94,82,83,84,72,73,74
    Then
        K={102,92,93,94,82,83,84,72,73,74
        1+sum(not(cumSum(Ans=1
        sub("0123456789",Ans,1)+Str1→Str1
        If sub(Str1,1,1)="?":sub(Str1,2,1→Str1
        Output(3,8,Str1
    End
    If K=23:Then
      Output(3,8,"       "
      If 1<length(Str1:Then
       sub(Str1,2,length(Str1)-1→Str1
      Else
       "?"→Str1
      End
      Output(3,8,Str1
    End
  End
  If K≠45:expr(Str1→J

Haven't tested it, but this should work

Re: Enter Input from right to left

Benarius 14 Dec 2018 01:44

I will have to consider you in my will…Thanks heaps.

I will try to implement it. It would make that part of the game tremendously simpler. Maybe I will let the user chose between easy or normal input.

---

…indistinctness is my forte…
J.M.W. Turner

Re: Enter Input from right to left

Benarius 14 Dec 2018 02:05

Can you tell me how to combine this with your code below?

Lbl PF
Repeat not(K)
ClrHome
randInt(101,999→A
randInt(101,999→B
Output(3,1,"Multiply
Output(3,10,A
Output(4,9,"x
Output(4,10,B
Input "Answer:",J
ClrHome
Output(4,7,"Booo…
If J=(AB):Output(4,7,"Bravo
Pause
Disp "Play Again?
Input "Yes(1) No(0)",K
End
Goto TP

********//////////////////////////**************

"?->Str1
Repeat (K=105 and sub(Str1,1,1)≠"?") or K=45
getKey→K
If max(K={102,92,93,94,82,83,84,72,73,74
Then
K={102,92,93,94,82,83,84,72,73,74
1+sum(not(cumSum(Ans=1
sub("0123456789",Ans,1)+Str1→Str1
If sub(Str1,1,1)="?":sub(Str1,2,1→Str1
Output(3,8,Str1
End
If K=23:Then
Output(3,8," "
If 1<length(Str1:Then
sub(Str1,2,length(Str1)-1→Str1
Else
"?"→Str1
End
Output(3,8,Str1
End
End
If K≠45:expr(Str1→J

---

…indistinctness is my forte…
J.M.W. Turner

Last edited on 14 Dec 2018 02:21 by Benarius Show more

Re: Enter Input from right to left

Trenly 14 Dec 2018 02:13

Lbl PF
Repeat not(K)
ClrHome
randInt(101,999→A
randInt(101,999→B
Output(3,1,"Multiply
Output(3,10,A
Output(4,9,"x
Output(4,10,B
Output(5,1 "Answer:"
"?->Str1
Repeat (K=105 and sub(Str1,1,1)≠"?") or K=45
getKey→K
If max(K={102,92,93,94,82,83,84,72,73,74
Then
K={102,92,93,94,82,83,84,72,73,74
1+sum(not(cumSum(Ans=1
sub("0123456789",Ans,1)+Str1→Str1
If sub(Str1,1,1)="?":sub(Str1,2,1→Str1
Output(3,8,Str1
End
If K=23:Then
Output(3,8," "
If 1<length(Str1:Then
sub(Str1,2,length(Str1)-1→Str1
Else
"?"→Str1
End
Output(3,8,Str1
End
End
If K≠45:expr(Str1→J
ClrHome
Output(4,7,"Booo…
If J=(AB):Output(4,7,"Bravo
Pause
Disp "Play Again?
Input "Yes(1) No(0)",K
End
Goto TP

Also, please use [[code]] blocks when typing in code. It keeps the forum cleaner, and if there is particularly long code, it makes it scrollable

Re: Enter Input from right to left

Benarius 14 Dec 2018 03:02

It's almost perfect. A few syntax errors which I fixed in line 10,11, etc. It works exactly as expected (wonderful) up to pressing enter when it crashes. If I use goto, it doesn't goto anywhere, strangly displays just the program name.Here is the version with the fix and changed position of Outputs.

Lbl PF
Repeat not(K)
ClrHome
randInt(101,999→A
randInt(101,999→B
Output(1,1,"Multiply
Output(1,10,A
Output(2,9,"x
Output(2,10,B
Output(3,1,"Answer:"
"?"→Str1
Repeat (K=105 and sub(Str1,1,1)≠"?") or K=45
getKey→K
If max(K={102,92,93,94,82,83,84,72,73,74
Then
K={102,92,93,94,82,83,84,72,73,74
1+sum(not(cumSum(Ans=1
sub("0123456789",Ans,1)+Str1→Str1
If sub(Str1,1,1)="?":sub(Str1,2,1→Str1
Output(3,8,Str1
End
If K=23:Then
Output(3,8," "
If 1<length(Str1:Then
sub(Str1,2,length(Str1)-1→Str1
Else
"?"→Str1
End
Output(3,8,Str1
End
End
If K≠45:expr(Str1→J
ClrHome
Output(4,7,"Booo…
If J=(AB):Output(4,7,"Bravo
Pause
Disp "Play Again?
Input "Yes(1) No(0)",K
End
Goto TP

---

…indistinctness is my forte…
J.M.W. Turner

Last edited on 14 Dec 2018 03:03 by Benarius Show more