The (un)Official Calculator Thread

Favorite calculator brand?

Texas Instruments	69.2%	[ 9 ]
Hewlett Packard	7.7%	[ 1 ]
Other	23.1%	[ 3 ]
Total Votes:			[ 13 ]

[booisnotcurrentlyhere]

Finally, a thread created for all interested in calculators and programming!

This thread was originally created because there were no calculator programming threads in the C&T--An outrage! This is a place where all can talk about their calculators or anything calculator related. Feel free to post programs, link sites, or just talk (please keep everything related to the topic, though. I don't want this to get Chatterboxed)!

If you're new and don't know anything about calculators, then feel free to stick around and ask questions. I'm sure that everyone here will be helpful and friendly.


A few topic starters...
-How'd you find out about calculator programming?
-How long have you been programming?
-Any programming experience (besides with calculators)?
-Any great sites that helped you out?
-Favorite brand? TI? HP? Something else? Favorite model?

-Post your favorite programs here!


[Will probably be updated later. I want this thread to become somewhat successful ^^; Oh, and if anyone would like to write a different introduction, then feel free to send it to me. I'm not very eloquent ^^;]

[booisnotcurrentlyhere]

Here's a program that I wrote the other day:

:Goto 0
:Lbl CK
:Prompt C
:C+273->K
:Disp K
:Pause
:Goto 0
:Lbl FC
:Prompt F
:(5/9)(F-32)->C
:Disp C
:Pause
:Goto 0
:Lbl FK
:Prompt F
:((5/9)(F-32))+273->K
:Disp K
:Pause
:Goto 0
:Lbl KC
:Prompt K
:If K<=0
:Then
:Goto ER
:Else :K-273->C
:Disp C
:Pause
:Goto 0
:Lbl KF
:Prompt K
:If K<=0
:Then
:Goto ER
:Else
:(9/5)(K-273)+32->F
:Disp F
:Pause
:Goto 0
:Lbl ER
:ClrHome
:Disp ""
:Disp "ERROR:"
:Disp "Kelvin"
:Disp "temperature"
:Disp "must be greater"
:Disp "than 0."
:Pause
:Goto RN
:Lbl 0
:Menu("DO ANOTHER?","YES",GO,"NO",XT)
:Lbl GO
:prgmTEMP
:Lbl XT
:Stop

I wrote this program yesterday. I was doing my math homework and came across a problem that required functions to translate X degrees Fahrenheit into X Kelvin. Of course, instead of actually doing the problem, I thought, "Why not write a program to do it for me?"

This program not only translates Kelvin to Fahrenheit though, it can do Celcius to Fahrenheit, Celcius to Kelvin, Fahrenheit to Celcius, Fahrenheit to Kelvin, Kelvin to Celcius, and Kelvin to Fahrenheit. If you enter a negative or zero value for Kelvin, then it will give you an error message.

It didn't take to long to write, but it's pretty useful! With Kelvin and SI measurements, it will definately make science class easier!
~*

[Kiretsu]

http://www.technoplaza.net/programming/

Though thats a little more advanced.

http://www.ticalc.org/programming/columns/

This is probobly what you want.

[booisnotcurrentlyhere]

Kiretsu

http://www.technoplaza.net/programming/

Though thats a little more advanced.

http://www.ticalc.org/programming/columns/

This is probobly what you want.

I haven't been to the first site before, but since I don't have a TI-89 or 92+, I can't really use it (I have a friend who has a TI-92+ who I've been trying to geekify, so maybe I can give that site to her ^^). I've been to ticalc.org before though, they have a lot of great stuff for all types of calculators.
~*

[-=[Lord.Necros]=-]

My very first TI program prompted for a number 1-3, and then generated a random number 1-3. The user would then take that number, compare it to the list, where
1) Rock
2) Paper
3) Scissors
and determine if they won. I found it on the Internet, and felt that it was rather bare bones. So, I built a menu system, incorporated animation, and set it up so the game could run 2-player on two linked calcs. After that, I built a horse racing game, which do to a graphical error I was unaware of how to fix at the time, I changed it to Slug Racing, because of the trail of pixels the sprites left behind. It was a betting game, so at lunch time, we'd bet quarters on the races. Of course, to play, you had to give me a quarter, so my lunch was always covered. From there I branched out into Monopoly, Bowling, and Pong. A multitude of math programs have also come out, along with several binary math programs for my C++ classes. Most notable of those was BASEMATH which would do the four basic math functions in any base 2-36. It was my pride and joy. smile I've been programming TI's for 5 years now, and the best site by far for anyone interested in programming is ticalc.org.

[Deathtoallwhowalk]

BLUE SCREEN OF DEATH

Does anyone know how to program their Texas Instrument calculators?

For those of you who do:

-How'd you find out about calculator programming?
-Any great sites that helped you out?
-How long have you been programming?
-Any other programming experience?
-Favorite model TI?

-Post your favorite/most useful programs here!
~*

lol just the instruction manual,
fool around, im the proud creater of many games,
and its so simple it takes a little to pick up but its sooo simple

[Mizufusion]

Well.. I haven't done any calculator programming of my own (seeing as I don't own a TI-anything), but one of my friends in high school loved it.


The best program he ever made was a random haiku generator.

[itz halogod]

I made a menu programlet, (warning: kinda long)

ClrHome
ClrDraw
Full
0->Xmin
0->Ymin
94->Xmax
62->Ymax
AxesOff
GridOff
2->C
49->D
Line(0,62,0,0)
Line(0,0,94,0)
Line(94,0,94,62)
Line(94,62,0,62)
Line(0,54,26,54)
Line(26,54,94,54)
Text(10,7,"Option 1")
Text(17,7,"Option 2")
Text(24,7,"Option 3")
Text(31,7,"Option 4")
Text(38,7,"Option 5")
Text(45,7,"Option 6")
Text(52,7,"Option 7")
Text(10,54,"Option 8")
Text(17,54,"Option 9")
Text(24,54,"Option 10")
Text(31,54,"Option 11")
Text(38,54,"Option 12")
Text(45,54,"Option 13")
Text(52,54,"Option 14")
While 1
Line(C,D,C+3,D)
Line(C+3,D,C+1,D-2)
Line(C+3,D,C+1,D+2)
getKey->S
If S=34:Then
Line(C,D,C+3,D,0)
Line(C+3,D,C+1,D-2,0)
Line(C+3,D,C+1,D+2,0)
D-7->D
If D=0 and C=2:Then:49->D:49->C:End
If D=0 and C=49:Then:49->D:2->C:End
End
If S=25:Then
Line(C,D,C+3,D,0)
Line(C+3,D,C+1,D-2,0)
Line(C+3,D,C+1,D+2,0)
D+7->D
If D=56 and C=2:Then:7->D:49->C:End
If D=56 and C=49:Then:7->D:2->C:End
End
If S=105:Goto E
If C=2:Then
If D=49:Text(1,2,"Test Option 1")
If D=42:Text(1,2,"Test Option 2")
If D=35:Text(1,2,"Test Option 3")
If D=28:Text(1,2,"Test Option 4")
If D=21:Text(1,2,"Test Option 5")
If D=14:Text(1,2,"Test Option 6")
If D=7:Text(1,2,"Test Option 7")
End
If C=49:Then
If D=49:Text(1,2,"Test Option 8")
If D=42:Text(1,2,"Test Option 9")
If D=35:Text(1,2,"Test Option 10")
If D=28:Text(1,2,"Test Option 11")
If D=21:Text(1,2,"Test Option 12")
If D=14:Text(1,2,"Test Option 13")
If D=7:Text(1,2,"Test Option 14")
End
End
Lbl E
ClrDraw
If C=2:Then
If D=49:Text(1,1,"Option 1 selected")
If D=42:Text(1,1,"Option 2 selected")
If D=35:Text(1,1,"Option 3 selected")
If D=28:Text(1,1,"Option 4 selected")
If D=21:Text(1,1,"Option 5 selected")
If D=14:Text(1,1,"Option 6 selected")
If D=7:Text(1,1,"Option 7 selected")
Pause
ClrDraw
Output(1,1,"")
Stop
End
If C=49:Then
If D=49:Text(1,1,"Option 8 selected")
If D=42:Text(1,1,"Option 9 selected")
If D=35:Text(1,1,"Option 10 selected")
If D=28:Text(1,1,"Option 11 selected")
If D=21:Text(1,1,"Option 12 selected")
If D=14:Text(1,1,"Option 13 selected")
If D=7:Text(1,1,"Option 14 selected")
Pause
ClrDraw
Output(1,1,"")
Stop
End

[MalikTous]

Meh... When I was doing this sort of thing I used an HP 41CX...

[booisnotcurrentlyhere]

Here's a magic 8 ball program I made. You ask it a question, and it will return an answer. And if you input "WHAT IS THE MEANING OF LIFE THE UNIVERSE AND EVERYTHING?" it will return 42. xd

PROGRAM:M8BALL
:ClrHome
:Disp "ASK ME A "
:Disp "QUESTION."
:Input "",Str9
:"YES"->Str1
:"NO"->Str2
:"POSSIBLY"->Str3
:"MOST LIKELY"->Str4
:"ABSOLUTELY"->Str5
:"PROBABLY NOT"->Str6
:"DEFINITE NO"->Str7
:"IT IS UNCLEAR"->Str8
:randInt(1,8)->X
:If Str9="WHAT IS THE MEANING OF LIFE THE UNIVERSE AND EVERYTHING?"
:Then
:ClrHome
:Disp "42"
:Pause
:Goto 0
:End
:If X=1
:Then
:ClrHome
:Disp Str1
:Pause
:Goto 0
:End
:If X=2
:Then
:ClrHome
:Disp Str2
:Pause Goto 0
:End
:If X=3
:Then
:ClrHome
:Disp Str3
:Pause
:ClrHome
:End
:If X=4
:Then
:ClrHome
:Disp Str4
:Pause
:ClrHome
:End
:If X=5
:Then
:ClrHome
:Disp Str5
:Pause
:Goto 0
:End
:If X=6
:Then
:ClrHome
:Disp Str6
:Pause
:Goto 0
:End
:If X=7
:Then
:ClrHome
:Disp Str7
:Pause
:Goto 0
:End
:If X=8
:Then
:ClrHome
:Disp Str8
:Pause
:Goto 0
:End
:Lbl 0
:ClrHome
:Disp "Ask another?"
:Disp "1 = YES 0 = NO"
:Input "",A
:If A=1
:Then
:prgmM8BALL
:End
:If A=0
:Then
:Stop
:End

I wrote this code when I first figured out how to use strings in BASIC. Using strings, you only can only have as many possible answers as there are strings(unless you create your own, something that I'm not sure how to do yet), but you could have hundreds of answers by doing something like this:

:If X=1
:Then
:ClrHome
:Disp "/*Whatever you want to put here*/"
:Pause
:Goto 0
:End

~*

[booisnotcurrentlyhere]

Just a fun little program. Pointless, but it makes a nice screensaver. Leave your calculator laying around with this thing running and watch people be liek "WOAHKEWL." At least that's the reaction I usually got in my somewhat tech-deprived school ^_^

What it does: outputs ones and zeroes randomly on the screen. The screen clears after outputting 50 numbers, to keep the screen from getting crowded. If you press enter then the program will quit.

PROGRAM:ONEZEROR
:ClrHome
:50->F
:Repeat getKey=105
:F-1->F
:If F=0
:Then
:50->F
:ClrHome
:End
:randInt(0,1)->I
:randInt(1,16)->X
:randInt(1,8)->Y
:Output(Y,X,I)
:End

Another program, basically the same thing, but it doesn't clear the screen after 50 outputs. Whenever you press "Clear" the screen will clear and pressing "Enter" will end the program.

PROGRAM:ONEZERO
:ClrHome
:Repeat getKey=105
:randInt(0,1)->I
:randInt(1,16)->X
:randInt(1,8)->Y
:Output(Y,X,I)
:While getKey=45
:ClrHome
:End
:End

~*

[Mar_Sara]

BLUE SCREEN OF DEATH

Does anyone know how to program their Texas Instrument calculators?

For those of you who do:

-How'd you find out about calculator programming?
-Any great sites that helped you out?
-How long have you been programming?
-Any other programming experience?
-Favorite model TI?

-Post your favorite/most useful programs here!
~*

- Opened my TI-83+ booklet and actually read it. biggrin
- Why would I use the internet to learn to program? jk.
- 7-8 years
- C,C++,Java,VisualBasic,QBasic,Perl... (Think thats all)
- TI-83+

Junior year of HighSchool I actually began writing a program to do all my Math equations. (I made a program that knew all the equations from Trig, Algebra5, and Calc1) I'm actually still adding to it, and it now takes up 1/2 of my calcuators current memory!

[booisnotcurrentlyhere]

Here's a program that I just finished last period! It will convert decimal to binary (but only a number up to 255). It took a long time and lots of debugging, but here it is. I'm proud of it because it's my first time using fPart and iPart, and I've finally come to a full understanding of for loops. ^^ I originally tried using a for loop when putting the numbers in the list (L, 8, 1, -1), but gave up and just used a while and two ifs. ^^; That's why 9->L in that one statement; because as soon as the loop starts 1 is subracted from L, so it really starts out at 8 by the time you get through everything ^^

PROGRAM:BINARY

:Lbl 0
:PrgmVARIABLE
:8->dim(L1)
:
:ClrHome
:Disp "Input integer"
:Disp "less than or"
:Disp "equal to 255"
:Input "",X
:
:If X>255 or fPart(x)!=0
:Then
:Goto 0
:Else
:
:9->L
:While L>1 or X>.5
:L-1->L
:iPart(X)/2->X
:
:If (fPart(X)=0)
:Then
:0->L1(L)
:End
:
:If (fPart(X)!=0)
:Then
:1->L1(L)
:End
:End
:
:ClrHome
:For(L,1,8)
:Output (1,L,L1(L))
:End
:Pause
:ClrHome
:Disp "Do another?"
:Input "1 = YES 0 = NO",W
:If W=1
:Then
:Goto 0
:Else
:Stop

If anyone would like to use any of these or add on to them, feel free! It would be wonderful if anyone could expand on this and make it so you could do a number bigger than 255. You would need to make it so that when you filled up one 8 block array, you would start in a new one...
~*

[Hyratel Dragon]

i wrote a couple that make clocks onscreen, and made them Mirage compatible, and it wows other ppl to no end
will post the code to both when i get the chance

[Hyratel Dragon]

MalikTous

Meh... When I was doing this sort of thing I used an HP 41CX...

TIs ONLY! (Bump)