Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Bad Token ]]>

If you look at the tokens page, it talks about how commands are stored as tokens. A bad token simply means that the calculator cannot determine what you are trying to refer to (I think, I haven't encountered this error much).

Code that worked for me (I simply used the replace function, so everything should be the way you programmed it):

` ``0→Z Lbl B ClrHome If Z=0 Then Disp "Area 1 Disp "------ Disp " Output(4,2,"1. Triangle Output(5,2,"2. Equilateral Triangle Output(6,2,"3. Trapezoid Output(7,2,"4. Rhombus / Kite Output(8,2,"5. Circle End If Z=1 Then Disp "Surface Area 2 Disp "------ Output(4,2,"6. Prism Output(5,2,"7. Cylinder Output(6,2,"8. Pyramid Output(7,2,"9. Cone Output(8,2,"10. Sphere End If Z=2 Then Disp "Lateral Area 3 Disp "------ Output(4,2,"11. Prism Output(5,2,"12. Cylinder Output(6,2,"13. Pyramid Output(7,2,"14. Cone End If Z=3 Then Disp "Volume 4 Disp "------ Output(4,2,"15. Prism Output(5,2,"16. Cylinder Output(6,2,"17. Pyramid Output(7,2,"18. Cone Output(8,2,"19. Sphere End If Z=4 Then Disp "Miscellaneous 5 Disp "------ Output(5,2,"20. Regular Polygon Area Output(6,2,"21. Distance Formula Output(7,2,"22. Interior Angle Sum End Lbl A 0→X 0→Y " →Str0 Repeat Y≠0 getKey→X If X≠105 and X≠24 and X≠26 and X≠0 Then If X=102 Then Str0+"0→Str0 End If X=92 Then Str0+"1→Str0 End If X=93 Then Str0+"2→Str0 End If X=94 Then Str0+"3→Str0 End If X=82 Then Str0+"4→Str0 End If X=83 Then Str0+"5→Str0 End If X=84 Then Str0+"6→Str0 End If X=72 Then Str0+"7→Str0 End If X=73 Then Str0+"8→Str0 End If X=74 Then Str0+"9→Str0 End If X=45 Then " →Str0 Output(10,1," End Output(10,1,Str0 End If X=24 or X=26 or X=105 Then If X=26 Then " +→Str0 End If X=24 Then " -→Str0 End 1→Y End End If Str0=" + Then If Z<5 Then Z+1→Z Goto B Else Goto A End End If Str0=" - Then If Z>0 Then Z-1→Z Goto B Else Goto A End End If Str0=" 1 Then ClrHome Disp "A: Triangle Disp "------ Disp "Formula: A=1/2bh Disp " Input "Base: ",B Input "Height: ",C .5BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 2 Then ClrHome Disp "A: Equilateral Triangle Disp "------ Disp "Formula: A=(1/2s)²√(3 Disp " Input "Side Length: ",B (.5B)²→C {0,1→L₁ {0,C→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(7,1,"Answer: "+Str1+"√(3 End If Str0=" 3 Then ClrHome Disp "A: Trapezoid Disp "------ Disp "Formula: A=1/2(b1+b2)h Disp " Input "Base 1: ",B Input "Base 2: ",C Input "Height: ",D .5(B+C)D→E {0,1→L₁ {0,E→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(9,1,"Answer: "+Str1 End If Str0=" 4 Then ClrHome Disp "A: Rhombus / Kite Disp "------ Disp "Formula: A=1/2(d1d2) Disp " Input "Diagonal 1: ",B Input "Diagonal 2: ",C .5BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 5 Then ClrHome Disp "A: Circle Disp "------ Disp "Formula: A=πr² Disp " Input "Radius: ",B B²→C {0,1→L₁ {0,C→L₂ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(7,1,"Answer: "+Str1+"π End If Str0=" 6 Then ClrHome Disp "SA: Prism Disp "------ Disp "Formula: S=2B+Ph Disp " Input "Base: ",B Input "Perimeter: ",C Input "Height: ",D 2B+CD→E {0,1→L₁ {0,E→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 7 Then ClrHome Disp "SA: Cylinder Disp "------ Disp "Formula: S=2πr²+2πrh Disp " Input "Radius: ",B Input "Height: ",C 2B²+2BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 8 Then ClrHome Disp "SA: Pyramid Disp "------ Disp "Formula: B+1/2Pl Disp " Input "Base: ",B Input "Perimeter: ",C Input "Slant Height: ",D B+.5(CD)→E {0,1→L₁ {0,E→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 9 Then ClrHome Disp "SA: Cone Disp "------ Disp "Formula: πr²+πrl Disp " Input "Radius: ",B Input "Slant Height: ",C B²+BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 10 Then ClrHome Disp "SA: Sphere Disp "------ Disp "Formula: 4πr² Disp " Input "Radius: ",B 4B²→C {0,1→L₁ {0,C→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 11 Then ClrHome Disp "LA: Prism Disp "------ Disp "Formula: L=Ph Disp " Input "Perimeter: ",B Input "Height: ",C BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 12 Then ClrHome Disp "LA: Cylinder Disp "------ Disp "Formula: 2πrh Disp " Input "Radius: ",B Input "Height: ",C 2(BC)→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 13 Then ClrHome Disp "LA: Pyramid Disp "------ Disp "Formula: L=1/2Pl Disp " Input "Perimeter: ",B Input "Slant Height: ",C .5(BC)→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 14 Then ClrHome Disp "LA: Cone Disp "------ Disp "Formula: L=πrl Disp " Input "Radius: ",B Input "Slant Height: ",C BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 15 Then ClrHome Disp "V: Prism Disp "------ Disp "Formula: V=Bh Disp " Input "Base: ",B Input "Height: ",C BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 16 Then ClrHome Disp "V: Cylinder Disp "------ Disp "Formula: V=πr²h Disp " Input "Radius: ",B Input "Height: ",C B²C→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 17 Then ClrHome Disp "V: Pyramid Disp "------ Disp "Formula: V=1/3Bh Disp " Input "Base: ",B Input "Height: ",C (1/3)BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 18 Then ClrHome Disp "V: Cone Disp "------ Disp "Formula: 1/3πr²h Disp " Input "Radius: ",B Input "Height: ",C (1/3)B²C→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 19 Then ClrHome Disp "V: Sphere Disp "------ Disp "Formula: 4/3πr² Disp " Input "Radius: ",B (4/3)B²→C {0,1→L₁ {0,C→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1+"π End If Str0=" 20 Then ClrHome Disp "A: Regular Polygon Disp "------ Disp "Formula: 1/2aP Disp " Input "Apothem: ",B Input "Perimeter: ",C .5BC→D {0,1→L₁ {0,D→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(8,1,"Answer: "+Str1 End If Str0=" 21 Then ClrHome Disp "Distance Formula Disp "------ Disp "√((x2-x1)²+(y2-y1)² Disp " Input "x1: ",B Input "y1: ",C Input "x2: ",D Input "y2: ",E (D-B)²+(E-C)²→F {0,1→L₁ {0,F→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(10,1,"Answer: √("+Str1 End If Str0=" 22 Then Disp "Interior Angle Sum Disp "------ Disp "Formula: 180(n-2) Disp " Input "Number of sides: ",B 180(B-2)→C {0,1→L₁ {0,C→L₂ LinReg(ax+b) Y₁ Equ►String(Y₁,Str1 sub(Str1,1,length(Str1)-3→Str1 Output(7,1,"Answer: "+Str1 End Pause ClrHome DelVar A DelVar B DelVar C DelVar D DelVar E DelVar X DelVar Y DelVar Z DelVar Str0 DelVar Str1 DelVar L₁ DelVar L₂ DelVar Y₁`

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Bad Token ]]>

Here is my code (it can probably be optimized quit a bit):

0→Z

Lbl B

ClrHome

If Z=0

Then

Disp "Area 1

Disp "------

Disp "

Output(4,2,"1. Triangle

Output(5,2,"2. Equilateral Triangle

Output(6,2,"3. Trapezoid

Output(7,2,"4. Rhombus / Kite

Output(8,2,"5. Circle

End

If Z=1

Then

Disp "Surface Area 2

Disp "------

Output(4,2,"6. Prism

Output(5,2,"7. Cylinder

Output(6,2,"8. Pyramid

Output(7,2,"9. Cone

Output(8,2,"10. Sphere

End

If Z=2

Then

Disp "Lateral Area 3

Disp "------

Output(4,2,"11. Prism

Output(5,2,"12. Cylinder

Output(6,2,"13. Pyramid

Output(7,2,"14. Cone

End

If Z=3

Then

Disp "Volume 4

Disp "------

Output(4,2,"15. Prism

Output(5,2,"16. Cylinder

Output(6,2,"17. Pyramid

Output(7,2,"18. Cone

Output(8,2,"19. Sphere

End

If Z=4

Then

Disp "Miscellaneous 5

Disp "------

Output(5,2,"20. Regular Polygon Area

Output(6,2,"21. Distance Formula

Output(7,2,"22. Interior Angle Sum

End

Lbl A

0→X

0→Y

" →Str0

Repeat Y≠0

getKey→X

If X≠105 and X≠24 and X≠26 and X≠0

Then

If X=102

Then

Str0+"0→Str0

End

If X=92

Then

Str0+"1→Str0

End

If X=93

Then

Str0+"2→Str0

End

If X=94

Then

Str0+"3→Str0

End

If X=82

Then

Str0+"4→Str0

End

If X=83

Then

Str0+"5→Str0

End

If X=84

Then

Str0+"6→Str0

End

If X=72

Then

Str0+"7→Str0

End

If X=73

Then

Str0+"8→Str0

End

If X=74

Then

Str0+"9→Str0

End

If X=45

Then

" →Str0

Output(10,1,"

End

Output(10,1,Str0

End

If X=24 or X=26 or X=105

Then

If X=26

Then

" +→Str0

End

If X=24

Then

" -→Str0

End

1→Y

End

End

If Str0=" +

Then

If Z<5

Then

Z+1→Z

Goto B

Else

Goto A

End

End

If Str0=" -

Then

If Z>0

Then

Z-1→Z

Goto B

Else

Goto A

End

End

If Str0=" 1

Then

ClrHome

Disp "A: Triangle

Disp "------

Disp "Formula: A=12bh

Disp "

Input "Base: ",B

Input "Height: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 2

Then

ClrHome

Disp "A: Equilateral Triangle

Disp "------

Disp "Formula: A=(12s)²√(3

Disp "

Input "Side Length: ",B

(.5B)²→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1+"√(3

End

If Str0=" 3

Then

ClrHome

Disp "A: Trapezoid

Disp "------

Disp "Formula: A=12(b1+b2)h

Disp "

Input "Base 1: ",B

Input "Base 2: ",C

Input "Height: ",D

.5(B+C)D→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(9,1,"Answer: "+Str1

End

If Str0=" 4

Then

ClrHome

Disp "A: Rhombus / Kite

Disp "------

Disp "Formula: A=12(d1d2)

Disp "

Input "Diagonal 1: ",B

Input "Diagonal 2: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 5

Then

ClrHome

Disp "A: Circle

Disp "------

Disp "Formula: A=πr²

Disp "

Input "Radius: ",B

B²→C

{0,1→L₁

{0,C→L₂

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1+"π

End

If Str0=" 6

Then

ClrHome

Disp "SA: Prism

Disp "------

Disp "Formula: S=2B+Ph

Disp "

Input "Base: ",B

Input "Perimeter: ",C

Input "Height: ",D

2B+CD→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 7

Then

ClrHome

Disp "SA: Cylinder

Disp "------

Disp "Formula: S=2πr²+2πrh

Disp "

Input "Radius: ",B

Input "Height: ",C

2B²+2BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 8

Then

ClrHome

Disp "SA: Pyramid

Disp "------

Disp "Formula: B+12Pl

Disp "

Input "Base: ",B

Input "Perimeter: ",C

Input "Slant Height: ",D

B+.5(CD)→E

{0,1→L₁

{0,E→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 9

Then

ClrHome

Disp "SA: Cone

Disp "------

Disp "Formula: πr²+πrl

Disp "

Input "Radius: ",B

Input "Slant Height: ",C

B²+BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 10

Then

ClrHome

Disp "SA: Sphere

Disp "------

Disp "Formula: 4πr²

Disp "

Input "Radius: ",B

4B²→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 11

Then

ClrHome

Disp "LA: Prism

Disp "------

Disp "Formula: L=Ph

Disp "

Input "Perimeter: ",B

Input "Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 12

Then

ClrHome

Disp "LA: Cylinder

Disp "------

Disp "Formula: 2πrh

Disp "

Input "Radius: ",B

Input "Height: ",C

2(BC)→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 13

Then

ClrHome

Disp "LA: Pyramid

Disp "------

Disp "Formula: L=12Pl

Disp "

Input "Perimeter: ",B

Input "Slant Height: ",C

.5(BC)→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 14

Then

ClrHome

Disp "LA: Cone

Disp "------

Disp "Formula: L=πrl

Disp "

Input "Radius: ",B

Input "Slant Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 15

Then

ClrHome

Disp "V: Prism

Disp "------

Disp "Formula: V=Bh

Disp "

Input "Base: ",B

Input "Height: ",C

BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 16

Then

ClrHome

Disp "V: Cylinder

Disp "------

Disp "Formula: V=πr²h

Disp "

Input "Radius: ",B

Input "Height: ",C

B²C→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 17

Then

ClrHome

Disp "V: Pyramid

Disp "------

Disp "Formula: V=13Bh

Disp "

Input "Base: ",B

Input "Height: ",C

(1/3)BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 18

Then

ClrHome

Disp "V: Cone

Disp "------

Disp "Formula: 13πr²h

Disp "

Input "Radius: ",B

Input "Height: ",C

(1/3)B²C→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 19

Then

ClrHome

Disp "V: Sphere

Disp "------

Disp "Formula: 43πr

Disp "

Input "Radius: ",B

(4/3)B→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1+"π

End

If Str0=" 20

Then

ClrHome

Disp "A: Regular Polygon

Disp "------

Disp "Formula: 12aP

Disp "

Input "Apothem: ",B

Input "Perimeter: ",C

.5BC→D

{0,1→L₁

{0,D→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(8,1,"Answer: "+Str1

End

If Str0=" 21

Then

ClrHome

Disp "Distance Formula

Disp "------

Disp "√((x2−x1)²+(y2−y1)²

Disp "

Input "x1: ",B

Input "y1: ",C

Input "x2: ",D

Input "y2: ",E

(D−B)²+(E−C)²→F

{0,1→L₁

{0,F→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(10,1,"Answer: √("+Str1

End

If Str0=" 22

Then

Disp "Interior Angle Sum

Disp "------

Disp "Formula: 180(n-2)

Disp "

Input "Number of sides: ",B

180(B-2)→C

{0,1→L₁

{0,C→L₂

LinReg(ax+b) Y₁

EquString(Y₁,Str1

sub(Str1,1,length(Str1)-3→Str1

Output(7,1,"Answer: "+Str1

End

Pause

ClrHome

DelVar A

DelVar B

DelVar C

DelVar D

DelVar E

DelVar X

DelVar Y

DelVar Z

DelVar Str0

DelVar Str1

DelVar L₁

DelVar L₂

DelVar Y₁

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Bad Token ]]>

And if this did work, why are you still at 0 karma?

Forum category: Forum 101 / Community Introductions

Forum thread: Your Karma... :0 ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: Your Karma... :0 ]]>

Just right click it!!!

Forum category: Forum 101 / Community Introductions

Forum thread: Your Karma... :0 ]]>

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Shading ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: BMI Program ]]>

` ``For(A,Ymin,Ymax,ΔY Horizontal A End`

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Shading ]]>

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Shading ]]>

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Shading ]]>

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Shading ]]>

` ``Repeat Ans getKey End Ans→K`

If you need to use the key value later.

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: While(Ans) and getKey ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: BMI Program ]]>

` ``Repeat getKey End`

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: While(Ans) and getKey ]]>

I wish to create a loop that repeats when no button is pressed. I have tried

` ``<code> While not(Ans) <code> getKey End <code>`

However, the loop here is just being skipped.

I have learned that

` ``<code> 0→K While not(K) <code> getKey→K End <code>`

resolves the issue.

My question: Why is the loop skipped in the first code? Isn't the condition of a While( loop checked when its end is reached?

Thanks in advance

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: While(Ans) and getKey ]]>

` ``:ClrHome :Repeat W>0 and W<400 :Input "Your Weight:",W :End :Repeat H>20 and H<200 :Input "Height:",H :End :Disp "Your BMI:",(W*703)/H^2`

Forum category: Forum 101 / Community Introductions

Forum thread: BMI Program ]]>

` ``PROGRAM:BMI :Clear Entries :Repeat W>0 and W<400 :ClrHome :Disp "Your Weight? :Input ">",W :End :ClrHome :W*703→W :Repeat H>20 and H<200 :ClrHome :Disp "Your Height?","Inches Only!" :Input ">",H :End :H*H→H :W/H→W :Disp "Your BMI:",W`

Forum category: Forum 101 / Community Introductions

Forum thread: BMI Program ]]>

Forum category: Programming & Design / TI-Nspire Programming

Forum thread: is the nspire cx cas good for programming? ]]>

Overall, the Nspire is a powerful calculator in some regards but a weak calculator in others. It all depends on how you want to use your calculator.

Forum category: Programming & Design / TI-Nspire Programming

Forum thread: is the nspire cx cas good for programming? ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

I've never ventured outside of BASIC for the nspire, but I believe you can program in LUA and maybe C. The BASIC language is much like that if the TI-89. However, it lacks graphical functions so its BASIC language is not at all good for games.

Forum category: Programming & Design / TI-Nspire Programming

Forum thread: is the nspire cx cas good for programming? ]]>

Forum category: Programming & Design / TI-Nspire Programming

Forum thread: is the nspire cx cas good for programming? ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

` ``If K=25 B-1->B If K=34 B+1->B`

could be

` ``B-(K=25)+(K=34->B`

` ``Output(B,1," "`

This doesn't need the closing parenthesis since there is nothing after it (e.g. a semicolon). So it would be:

` ``Output(B,1,"`

(You still put the one space in there)

And then maybe this is just me, but it is easier if you combine If commands with their actions using a semicolon. What I mean by this:

` ``If B=7 3->B`

could be

` ``If B=7:3->B`

You also want to leave your homescreen setup out of the Repeat loop. This is because the program keeps on redrawing your homescreen, but by initializing the homescreen before the loop, you dramatically increase your program speed.

This is the end result:

` ``3->B ClrHome Output(1,7,"MENU Output(2,1,"---------------- Output(3,4,"OPTION ONE Output(4,4,"OPTION TWO Output(5,4,"OPTION THREE Output(6,4,"QUIT Repeat K=105 getKey->K If Ans:Output(B,1," " B-(K=25)+(K=34->B If B=2:6->B If B=7:3->B Output(B,1,">" End B-2->B If B=4:Stop If B=1:Goto 1 If B=2:Goto 2 If B=3:Goto 3`

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Flappy Bird ]]>

Forum category: General Discussion / Open Topic

Forum thread: Archiving and Unarchiving ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Flappy Bird ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Flappy Bird ]]>

As well, it requires a subprogram anyways so you could achieve the effect using the "Toggle Program Mode" code n the hexcodes page.

Unfortunately I don't have a link for the BASIC method.

Forum category: General Discussion / Open Topic

Forum thread: Archiving and Unarchiving ]]>

` ``3->B ClrHome Repeat K=105 Getkey->K Output(1,7,"MENU Output(2,1,"---------------- Output(3,4,"OPTION ONE Output(4,4,"OPTION TWO Output(5,4,"OPTION THREE Output(6,4,"QUIT If Ans Output(B,1," " If K=25 B-1->B If K=34 B+1->B If B=2 6->B If B=7 3->B Output(B,1,">" End B-2>B If B=4 Stop If B=1 Goto 1 If B=2 Goto 2 If B=3 Goto 3`

I tried to make a menu. It's OK-ish

I didn't spend very long on it. Any criticism or tips related to this?

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Thanks,

HG

Forum category: General Discussion / Open Topic

Forum thread: Archiving and Unarchiving ]]>

` ``Repeat max(K={25,34,105`

BUT using "If K" is truly better. Nice!

:)

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

[1] If you did :

` ``Repeat K=105 //It will only accept [ENTER], and will not except up or down keys. So it will not scroll through the menu.`

[2] And, I see you are new to TI-Basic Developer! Welcome! You can ask anyone to help with the programming!

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Quartic Equation Solver ]]>

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Prompt Variable within a matrix and solve ]]>

For example:

1) prompt:

- theta 1
- theta 2
- theta 3
- phi 1
- phi 2
- phi 3

2) plug all of them into the matrix below:

[cos(phi1) -cos(thetha1) 1] {k1} [cos(theta1-phi1)]

[cos(phi2) -cos(theta2) 1] * {k2} = [cos(theta2-phi2)]

[cos(phi3) -cos(theta3) 1] {k3} [cos(theta3-phi3)]

3) solve k1, k2, k3 by using [A]-1 * [B] = [C]

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Prompt Variable within a matrix and solve ]]>

2) I think you need to provide more detail on what you're trying to calculate, and how you would normally calculate those values. The more I know, the better I can help you.

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Prompt Variable within a matrix and solve ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Quartic Equation Solver ]]>

Cube Root is [2nd] then 0 then 3 then scroll to the bottom. When the arrow points to Cube Root, press enter.

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Quartic Equation Solver ]]>

Here is a picture of what I'd like to accomplish.. please describe in detail how I should go about writing this program. Basically I want to prompt for all the angle values and have them be plugged into the matrix to the right to yield an answer. I appreciate your time, thank you!

*couldn't upload photo…*

Forum category: Programming & Design / TI-83/84 Programming

Forum thread: Prompt Variable within a matrix and solve ]]>

Forum category: Forum 101 / Wiki Page Discussions

Forum thread: Quartic Equation Solver ]]>

Repeat k=105

Stuff…

End

If…

If…

If…

You would have to move stuff around and it might be a pain to do that. But space would be saved because you could get rid of the K=105 and… Part.

I don't know if my calculator has enough space left on it to put this in to it to try it.

It may be time for the dreaded memory purge….

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Site Feedback

Forum thread: Uhh... ]]>

` ``PROGRAM:MENU {1,1→dim([H] Clear Entries ClrHome ClrDraw 2→O Lbl M Repeat K getKey→K Output(7,1,getTmStr(getTmFmt Output(1,1," //Program Title Output(2,2,"Option 1 Output(3,2,"Option 2 Output(4,2,"Option 3 Output(5,2,"Quit Output(6,1,"---------------- //There should be 16 of the "-". Output(8,1,"m:" Output(8,3,[H](1,1 Output(O,1,"> If K=25:Then [H](1,1)+1→[H](1,1) O-1→O If O<2:Then 5→O End Output(O,1,"> End If K=34:Then [H](1,1)+1→[H](1,1) O+1→O If O>5:Then 2→O End Output(O,1,"> End If O=2:Then Output(3,1," " Output(4,1," " Output(5,1," " End If O=3:Then Output(2,1," " Output(4,1," " Output(5,1," " End If O=4:Then Output(2,1," " Output(5,1," " Output(3,1," " End If O=5:Then Output(2,1," " Output(3,1," " Output(4,1," " End If K=105 and O=2:Then ClrHome Goto 1 End If K=105 and O=3:Then ClrHome Goto 2 End If K=105 and O=4:Then ClrHome Goto 3 End If K=105 and O=5:Then ClrHome Stop End End Goto M`

*Info:*

535 bytes of RAM/Archive

Optimizations are needed (If possible)

There is a Goto M and Lbl M in order for the prgm to work better.

Available for any BASIC model

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Mon=

12:00-12:30

Tue-Thu=

11:55-12:25

Wed-Fri

11:55-12:25

**NOT AVAILABLE ON WEEKENDS!**

Also availible 7:50 A.M.-8:10 A.M.

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Community Introductions

Forum thread: New Fun Addicting Program ]]>

Forum category: Forum 101 / Site Feedback

Forum thread: Help! ]]>

Forum category: Forum 101 / Site Feedback

Forum thread: Help! ]]>

Forum category: Forum 101 / Site Feedback

Forum thread: Help! ]]>

Download the program. I believe it comes with the source.

Open the source in a text editor. Copy the contents.

Go to [www.clrhome.org/asm ORG]

Paste the source code.

Select Build as assembly hex.

It'll pop up with a code starting with BB6D. The actual hex code is everything after that.

Forum category: General Discussion / Tech Support

Forum thread: Asm Hex Code List ]]>

Forum category: General Discussion / Tech Support

Forum thread: Asm Hex Code List ]]>

Forum category: General Discussion / Open Topic

Forum thread: Calculator program website ]]>

Forum category: Forum 101 / Site Feedback

Forum thread: Help! ]]>

Forum category: General Discussion / Open Topic

Forum thread: Would you please suggest me Free Online Graphic Calculator ? ]]>