This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - Munchor
Pages: 1 ... 407 408 [409] 410 411 ... 424
6121
« on: October 31, 2010, 04:47:41 pm »
Oh my god, when I try to run it in a calculator, the result shows up fast and the program quits, instead of what happens in WabbitEmu...
No idea why?
Try adding a Pause if you want the results to stay on the screen.
Are you using a shell?
I am using a "Stop" to keep the results. When I use Pause it gives me an error, the same as when I use a ":Return". A Shell? Please explain :S
6122
« on: October 31, 2010, 04:31:50 pm »
so... any other ideas?
Made it working: :ClrHome
:Prompt A,B,C
:B^2-4AC→X
:If Ans<0:Then
:Disp "NO REAL ANSWER
:Else
:Output(6,2,"RESULTS:
:Output(7,2,-B+sqrt(X)/(2A)
:Output(8,2,{-}B-sqrt(X)/(2A)
:EndThanks
6123
« on: October 31, 2010, 04:26:27 pm »
Ok, sorry if this isn't the problem, but we can't over look this.
You are using the STO button to get the arrow right? Not minus greater than.
Edit:
Ninja'd
OF COURSE NOT...
6124
« on: October 31, 2010, 04:23:30 pm »
I tried that, B2 (two as an exponent)...
6125
« on: October 31, 2010, 04:20:59 pm »
Tried B^2 and BB, none works.
Syntax Error, it highlights in B, of B^2-(4AC)->X.
6126
« on: October 31, 2010, 04:16:08 pm »
Ok, I was programming a few little things in BASIC to learn I got this problem: :ClrHome
:Prompt A,B,C
:(BB-(4AC))->X
:If X<0
:Then
:Disp "NO REAL ANSWER"
:Else
:(-B+sqrt(X))/(2A)->Y
:(-B-sqrt(X))/(2A)->X
:Output(6,2,"RESULTS:
:Output(7,2,X
:Output(8,2,YIt gives me error in: (BB-(4AC))->XIt's probably a stupid and easy mistake. Any help? Thanks 
6127
« on: October 31, 2010, 03:04:19 pm »
Oh my god, when I try to run it in a calculator, the result shows up fast and the program quits, instead of what happens in WabbitEmu...
No idea why?
6128
« on: October 31, 2010, 02:55:45 pm »
Another version of Formulum for NSpire, Formulum v2.2. It is just like this one, but with a few more formulas AND the resolution had some updates too, better for tests, ooh yeah: 
6129
« on: October 31, 2010, 02:39:55 pm »
Hello Everyone, some of you have made games in Axe and Asm that use images, sprites, maps, etc.
However, I don't program those. I program TI Basic. Is there anyway to make a sprite in the computer and convert it to TI Basic code, so, make images in TI BASIC?
Thanks much, David
6130
« on: October 31, 2010, 02:22:00 pm »
OKAY, here it goes. I still have to add full formula resolution like there is in the Nspire: Also, I have to add ALL triangle formulas I have to make something like a title when the program asks for data, like "SPHERICAL SURFACE AREA" on top of the window. For now it is cool and already useful in tests. Here it goes! FORMULUM (69).8xp Tell me what you think
6131
« on: October 31, 2010, 12:43:19 pm »
Try this code:
:AxesOff
:ClrDraw
:1→W
:While W
:While W=1
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:ClrDraw
:2→W
:Else
:If K=92
:Disp "CIRCLE AREA
:If K=93
:Disp "SPHERE VOL.
:If K=94
:Disp "CYLINDER VOL.
:If K=82
:Disp "CONE VOLUME
:If K=83
:Disp "CONE SURFACE AREA
:If K=84
:Disp "QUADR. PYR. VOLUME
:If K=72
:Disp "CYLINDER SURFACE AREA
:Stop
:End
:End
:While W=2
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:1→W
:ClrDraw
:Else
:If K=92
:Disp "SPHERE SURFACE AREA
:If K=93
:Disp "CUBE VOLUME
:If K=94
:Disp "CUBE SURFACE AREA
:If K=82
:Disp "PARALLELEPIPED VOL.
:If K=83
:Disp "PARALLELEPIPED SURFACE AREA
:If K=84
:Disp "TRAPEZIUM AREA
:If K=72
:Disp "RECTANGLE AREA
:Stop
:End
:End
:End
To quit, press ON to break it. One of the main reasons the above code didn't work it because you had the wrong key-codes in your If statements. I didn't know if it was supposed to loop back or not, but you can change that or add in another While W= loop with more formulas. Another thing that went wrong was before the If that created the second menu you had your Stop statement, which would end program execution.
If you want your If statements to do more than one thing, you'll need to use and If Then structure.
:If (Condition)
:Then
:(Do Whatever)
:End
That works really good, I would never find out about that. Thanks so MUCH FinaleTI. I will use this one as a base now haha
6132
« on: October 31, 2010, 12:32:35 pm »
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",1,"CYLINDER SURFACE AREA",2,"CUBE VOL.",3,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",5,"PARALLELEPIED SURF. AREA",6
:Lbl 1
:Disp "CONE SURFACE AREA"
Then, I should use this one which is simpler.
Hahahah, I did it!!!
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",8,"CYLINDER SURFACE AREA",9,"CUBE VOL.",10,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",11,"PARALLELEPIED SURF. AREA",12
:Lbl 8
:Disp "TEST SUCCESS"
So happy:)
6133
« on: October 31, 2010, 12:19:00 pm »
I liked your post and I think NDless capabilities are just huge
6134
« on: October 31, 2010, 12:14:30 pm »
Okay, I'm kind of stuck now, I don't know if I should do a custom menu like this:
[code]:AxesOff
:ClrDraw
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:If Ans=92
:Disp "CIRCLE AREA
:If Ans=94
:Disp "SPHERE VOL.
:If Ans=82
:Disp "CYLINDER VOL.
:If Ans=83
:Disp "CONE VOLUME
:If Ans=84
:Disp "CONE SURFACE AREA
:If Ans=85
:Disp "QUADR. PYR. VOLUME
:If Ans=86
:Disp "CYLINDER SURFACE AREA
:Stop
:If Ans=87
::AxesOff
:ClrDraw
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:If Ans=92
:Disp "SPHERE SURFACE AREA
:If Ans=94
:Disp "CUBE VOLUME
:If Ans=82
:Disp "CUBE SURFACE AREA
:If Ans=83
:Disp "PARALLELEPIPED VOL.
:If Ans=84
:Disp "PARALLELEPIPED SURFACE AREA
:If Ans=85
:Disp "TRAPEZIUM AREA
:If Ans=86
:Disp "RECTANGLE AREA
:If Ans=87
:Disp "MORE FORMULAS"
This is not working very well, no, not working very good, please try it with SourceCoder I really need help.
So, with a Menu Function, I tried to do this:
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",1,"CYLINDER SURFACE AREA",2,"CUBE VOL.",3,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",5,"PARALLELEPIED SURF. AREA",6
:Lbl 1
:Disp "CONE SURFACE AREA"
On this one, the labels for the second menu are used as the ones in the first menu.
Ideas? Thanks much[/code]
6135
« on: October 31, 2010, 12:03:08 pm »
BTW, is there a chess game?
Pages: 1 ... 407 408 [409] 410 411 ... 424
|
Show Posts