Tally Counter

You have not uploaded your program! Please edit the page to upload your program.

Author:

Bio_Hazard1282

Download: Tally-Counter.docxNo Download Available
Version:
Compatibility: TI-83/84/+/SE
File Size: 950 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD
ClrHome
CLASSIC           //Ignore this if you do not have the TI-84+ Series, this is added to improve performance. Performance is high already with the normal TI-83+
SetUpEditor COUNT
If 0=dim(⸤COUNT
{0,1→COUNT          //Many users insert the "⸤" in front of the name, we remove it to save a byte
⸤COUNT(1
Lbl M
Menu("Tally Counter",sub("Start***Continue",1+8(Ans>0),8),1,"Reset",2,"Set",3,"Value",4,"Quit",5  //Replace asterisks with spaces
Lbl 1
⸤COUNT(1→C
Output(1,1,C
Pause
Repeat getKey
C+⸤COUNT(2→C
Output(1,1,C
rand(20
End
Pause
Goto M
Lbl 2
Menu("Reset?","No",M,"Yes",Y
Lbl Y
{0,1→COUNT
Goto M
Lbl 3
ClrHome
Menu("Set","Value",V,"Increment",I,"Cancel",M
Lbl V
Input "Value:",C          //It does not matter if we still use the C variable, since the main feature of this program changes it anyways
abs(iPart(C→⸤COUNT(1
Goto 3
Lbl I
Input "Increment:",C
abs(iPart(C→⸤COUNT(2
Goto 3
Lbl 4
Disp "You are on:",⸤COUNT(1
Pause 
Goto M
Lbl 5
Archive ⸤COUNT
  • 36 lines of code
  • Available to all graphing calculators TI-Basic friendly
  • Easy to read and understand
  • Fully programed in TI-Basic HbKuTtp.png

Alternative

The only difference between this version and the other one, it just counts. No menus, no "36 lines of code". It still has the list, with only the tally counter value.

ClrHome
SetUpEditor COUNT
⸤COUNT(1→C
Output(1,1,C
Pause
Repeat getKey
C+1→C
Output(1,1,C
rand(20
End
Pause
ClrHome
Archive ⸤COUNT

Well, that wraps up the tally counter program. Enjoy! If you have any questions or comments, please click the discuss button below.

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial-No Derivative Works 2.5 License.