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.
Topics - Munchor
Pages: 1 ... 17 18 [19] 20
271
« on: November 09, 2010, 04:55:15 pm »
Hey there,
I'm doing Cartesian graphics at school and both my calcs (84 and NSpire) can't do the following:
x>4
x=3y
They can only do:
f1(x)=4
(which is the same than:)
y=4
y=7x^2
So, is there a way to change it or any other graphics program that can deal with x as an independent variable?
272
« on: November 07, 2010, 03:21:25 pm »
Here I'll be posting all sprites I make, here are a few 8x8 sprites I made to start creating sprites for fun.
Okay, they're simple, I know, they suck, BUT THEY were made ON CALC, and they took me about 7hours to make (including the file with all of them).
Code:
.SPRTWRK
ClrHome
[0018183C5A182424]->PIC1
[007E7E7E50704040]->PIC2
[427E427E427E427E]->PIC3
[FEAAAAAAAAAAAAFE]->PIC4
[55AA55AA55AA55AA]->PIC5
[00E0E0FF3E3E2222]->PIC6
[181818FFFF181818]->PIC7
[8142241818244281]->PIC8
[FFFFFFD0F0C0C0C0]->PIC9
[00E724A5A524E700]->PIC0
Pt-Change(0,0,PIC1
Pt-Change(0,10,PIC2
Pt-Change(0,20,PIC6
Pt-Change(10,0,PIC3
Pt-Change(10,8,PIC3
Pt-Change(10,16,PIC3
Pt-Change(10,24,PIC3
Pt-Change(0,34,PIC4
Pt-Change(7,34,PIC4
Pt-Change(14,34,PIC4
Pt-Change(21,34,PIC4
Pt-Change(28,34,PIC4
Pt-Change(30,0,PIC5
Pt-Change(38,0,PIC5
Pt-Change(46,0,PIC5
Pt-Change(54,0,PIC5
Pt-Change(30,8,PIC5
Pt-Change(38,8,PIC5
Pt-Change(46,8,PIC5
Pt-Change(54,8,PIC5
Pt-Change(30,16,PIC5
Pt-Change(38,16,PIC5
Pt-Change(46,16,PIC5
Pt-Change(54,16,PIC5
Pt-Change(30,24,PIC5
Pt-Change(38,24,PIC5
Pt-Change(46,24,PIC5
Pt-Change(54,24,PIC5
Pt-Change(64,0,PIC7
Pt-Change(72,0,PIC7
Pt-Change(80,0,PIC7
Pt-Change(88,0,PIC7
Pt-Change(64,8,PIC7
Pt-Change(72,8,PIC7
Pt-Change(80,8,PIC7
Pt-Change(88,8,PIC7
Pt-Change(64,16,PIC7
Pt-Change(72,16,PIC7
Pt-Change(80,16,PIC7
Pt-Change(88,16,PIC7
Pt-Change(64,24,PIC7
Pt-Change(72,24,PIC7
Pt-Change(80,24,PIC7
Pt-Change(88,24,PIC7
Pt-Change(36,34,PIC8
Pt-Change(44,34,PIC8
Pt-Change(52,34,PIC8
Pt-Change(60,34,PIC8
Pt-Change(36,42,PIC8
Pt-Change(44,42,PIC8
Pt-Change(52,42,PIC8
Pt-Change(60,42,PIC8
Pt-Change(36,50,PIC8
Pt-Change(44,50,PIC8
Pt-Change(52,50,PIC8
Pt-Change(60,50,PIC8
Pt-Change(75,50,PIC9
Pt-Change(0,50,PIC0
Pt-Change(8,50,PIC0
Pt-Change(16,50,PIC0
Pt-Change(24,50,PIC0
DispGraph
Pause 9999
Pause 9999
Pause 9999
Pause 9999
273
« on: November 07, 2010, 02:57:32 pm »
Since Omnimaga is a game-based community I decided to try my first on gaming, so editing games to make them better is the best idea, so this thread is to discuss Racer3D: Replay. Okay, so probably everybody knows the example that came with Axe 0.4.5, Racer3D, a great game, lemme show it to you:  So, I'm working on my own version at the moment, it will use the default game as a base but add MANY more functionalities, but I'm having trouble with the Title Screen as some of you probably already know:  Now, I mad the Title Screen Work, but I have a problem with the game, so here are BOTH of the codes: ORIGINAL CODE: .RACER3D
[3C7E427EFF99FF42]->PIC1
"SCORE:"->STR1
"GAME OVER"->STR2
»Sci
Return!If Full
Fix 5
128->B
40->L
For(A,0,40)
rand^3-1+B->B->{L1+A}
End
ClrDraw
For(A,0,95)
Line(A,rand^4+21,A,24)
End
StorePic
3->Y->R
[neg]100->X
0->T
Repeat getKey(15)
.MOVE
If getKey(2)
X+2->X
Horizontal +
Line(0,24,0,rand^4+21)
StorePic
End
If getKey(3)
X-2->X
Horizontal -
Line(95,24,95,rand^4+21)
StorePic
End
.SCORE
!If T+1->T^32
L-1->L
End
Text(0,0,STR1)
Text(22,0,T->DEC)
.SHIFT
conj(L1+39,L1+40,40)[radians]
If {L1}<5
{L1}+5->{L1}
End
If {L1}>250
{L1}-5->{L1}
End
rand^3-1+Y+{L1}->{L1}
DS<(R,14)
rand^5-2->Y
End
.DRAW
If Z=0->Z
For(A,0,39)
A+24->B
A/2+{[root]^2A*10*4)+L1}+X->C
If C-A->E>1000
0->E
End
If C+L->F>1000
0->F
End
For(D,E,96)+1,F,96))
Pxl-On(D-1,B)
End
End
Pt-Change(42,55,PIC1)
DispGraph
.DEATH
If E>42 or (F<50)
For(A,1,7)
Pt-Change(42,55,PIC1)
DispGraph
Pause 1500
End
Fix 4
Text(32,13,STR2)
Repeat getKey(0)
End
ClrHome
Return
End
RecallPic
End:End
Label Q
Fix 4MY CODE: .RACER3D
[00007E4242FFFF42]->PIC1
"SCORE:"->STR1
"GAME OVER"->STR2
"DAVID GOMES"->STR3
Label 1
ClrDraw
ClrHome
Text(0,0,"RACER 3D
Text(0,10,"1:PLAY
Text(0,20,"2:ABOUT
Text(0,30,"3:HELP
Text(0,40,"4:QUIT
Repeat getKey->Z
End
If Z=26
ClrHome
Disp "DAVID
Repeat getKey
End
Goto 1
End
If Z=18
ClrHome
ClrDraw
Repeat getKey->Z
End
Goto 1
End
If Z=35
ClrHome
Disp "STOP...
Repeat getKey
End
Goto 1
End
If Z=34
Return!If Full
Fix 5
128->B
40->L
For(A,0,40)
rand^3-3-1+B->B->{L1+A}
End
For(A,0,95)
Line(A,rand^4+21,A,24)
End
StorePic
3->Y->R
[neg]100->X
0->T
Repeat getKey(15)
.MOVE
If getKey(2)
X+2->X
Horizontal +
Line(0,24,0,rand^4+21)
StorePic
End
If getKey(3)
X-2->X
Horizontal -
Line(95,24,95,rand^4+21)
StorePic
End
.SCORE
!If T+1->T^32
L-1->L
End
Text(0,0,STR1)
Text(22,0,T->DEC)
.SHIFT
conj(L1+39,L1+40,40)[radians]
If {L1}<5
{L1}+5->{L1}
End
If {L1}>250
{L1}-5->{L1}
End
rand^3-1+Y+{L1}->{L1}
DS<(R,14)
rand^5-2->Y
End
.DRAW
If Z=0->Z
For(A,0,39)
A+24->B
A/2+{[root]^2A*10*4)+L1}+X->C
If C-A->E>1000
0->E
End
If C+L->F>1000
0->F
End
For(D,E,96)+1,F,96))
Pxl-On(D-1,B)
End
End
Pt-Change(42,55,PIC1)
DispGraph
.DEATH
If E>42 or (F<50)
For(A,1,7)
Pt-Change(42,55,PIC1)
DispGraph
Pause 250
End
Fix 4
ClrHome
Text(0,0,STR2
Text(0,20,STR1
Text(0,30,T->DEC
Text(50,55,STR3
Pause 9999
Pause 9999
Repeat getKey(0)
End
ClrHome
Return
End
RecallPic
End:End
Label Q
Fix 4
EndI would like to know who made the original Racer3D, was it Quigibo? I HAVE to post that person in the credits, since they did the original game and I'm using it as a base, even though changing most of the things.by Scout David P.S: I've made most of the things in separate files (extra sprites and options to change the speed of the car, but won't post them here for security of the code)
274
« on: November 06, 2010, 12:00:13 pm »
Hey everyone, I have small knwoledge on axe and would like to know how to make a VERY SIMPLE title screen.
Can I use the same menus as in TI BASIC:
Menu("Choose","Play",1,"About",2,"Quit",3)
or
:ClrHome
: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
:Then
:ClrHome
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,RRp
:End
:If K=93
:Then
(...)
Thanks
275
« on: November 02, 2010, 08:51:38 am »
A way of hacking nspire without ndless, still under tests, though. I think that if ndless takes too long until is released, we should start using NSpirHack: http://goo.gl/r9POhttp://goo.gl/kY849I'm not going to install it right away, waiting for other people's opinion :S
276
« on: October 31, 2010, 06:56:09 pm »
I downloaded tokens, it looks great.
Now, can you help me with a sample small program to write in it, to test it?
I'm not into Asm programming but I would like to test it, by writing a simple program, maybe a Hello World, possibly more complex.
So...
I start with a header:
.FSTPROG
Disp "Hello World"
Then, it converted to this:
3A46535450524F47
DE2A48BBB4BBBCBBBCBBBF2957BBBFBBC2BBBCBBB32A
Now, I do compile and save HWLD.8xp
When I put it in my calculator and use Doors to run it, it opens the source code instead.
Any ideas, a simple way to use Token and make a simple program Hello World?
Thanks
277
« 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 
278
« 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
279
« on: October 29, 2010, 02:45:50 pm »
I've been playing around with animations and I've done a few interesting things, for now, I'll post a simple animation.
I've made a few more complex and fun, but can't upload them at the moment.
The GIF made in WabbitEmu doesn't look very fast, but it is fast and optimized, is there any trick to save faster GIFs?
Close all problems? Change settings?
Thanks, please tell me what you think. I think these could be used somewhere in a program, but anyways it's for practice mostly.
280
« on: October 28, 2010, 04:12:27 pm »
Here is a small virus I did to help me learn TI Basic. It's not a virus because it does NOTHING, just scares the user, try it, it won't hurt, or you may try in WabbitEmu too Now, how do I set a program to be in autorun? A TI Basic program? Thanks a lot.
281
« on: October 26, 2010, 08:17:17 am »
Howdy everyone, I have ti nspire with 84+ keypad on it.
I connected PC and Calculator using the USB Cable. Installed TI Connect and then went to DeviceExplorer, and the program managed to find my calculator and open the device explorer correctly.
However, when I try to transfer programs (by dragiing them to the TI Connect Interface), I get this error message:
Usb communication error: unexpected packet ( 8C080008)
I have no idea of what it means and google is not helping me.
The USB Port is fine I tested it with a Pen drive. However, I can't transfer files.
Help me please,
David
282
« on: October 20, 2010, 11:46:35 am »
Hello everyone, a friend of mine in my class (obviously a girl as you will find out if you keep reading) bougth TI Nspire, the regular one, and she has two keyboards:
TI 84+ Keypad;
TI Nspire Clickpad.
She told me she would GIVE me one, since she doesn't need 'both'. She says, she can only use at the same time so she only wants one (yes, she is blonde). So, I just have to tell her which one is better for her and I get to have the other one.
So, I would like Clickpad because I think that with ClickPad I can jailbreak my calculator and install ndless, but I don't know if that is really that good (is it?, btw is it possible with the Clickpad, it may be just rumors).
On the other hand, the 84 Keypad will allow me to program TI Basic just like in TI 84+ and develop programmes for 84+ and Nspire, which would be aweesoome. In addition, I could have 84+ games and programmes.
Which one do you recommend? I have so many doubtsssss, what to do?
283
« on: October 19, 2010, 06:01:49 pm »
Hey, I'm a Python programmer, and I've made quite a good program in Python: http://code.google.com/p/formulum/It's really hard to do something like this in Python :S: import wx
import math
class MainFrame(wx.Frame):
def __init__(self, parent,id):
wx.Frame.__init__(self, parent,id, 'Formulum', size=(415,135))
panel=wx.Panel(self)
ChooseFormulaButtonImage=wx.Image("chooseformulabutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
self.ChooseFormulaButton=wx.BitmapButton(panel, -1, ChooseFormulaButtonImage, pos=(10,10))
self.Bind(wx.EVT_BUTTON, self.ChooseFormula, self.ChooseFormulaButton)
AboutButtonImage=wx.Image("aboutbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
self.AboutButton=wx.BitmapButton(panel, -1, AboutButtonImage, pos=(200,10))
self.Bind(wx.EVT_BUTTON, self.About, self.AboutButton)
ExitButtonImage=wx.Image("exitbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
self.ExitButton=wx.BitmapButton(panel, -1, ExitButtonImage, pos=(200,50))
self.Bind(wx.EVT_BUTTON, self.Close, self.ExitButton)
HelpButtonImage=wx.Image("helpbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
self.HelpButton=wx.BitmapButton(panel, -1, HelpButtonImage, pos=(10,50))
self.Bind(wx.EVT_BUTTON, self.Help, self.HelpButton)
def ChooseFormula(self, event):
ChoiceBox=wx.SingleChoiceDialog(None, "Which formula do you want to use?", "Formulum", ['Circle Area', 'Square Area', 'Rectangle Area', 'Parallelogram Area', 'Trapezium Area', 'Cube Surface Area', 'Spherical Surface Area', 'Sphere Volume', 'Cylinder Volume', 'Quadrangular Prism Volume','Cone Volume', 'Cube Surface Area', 'Parallelepiped Volume', 'Parallelepiped Surface Area','Quadrangular Pyramid Volume', 'Quadrangular Pyramid Surface Area'])
if ChoiceBox.ShowModal()==wx.ID_OK:
Answer=ChoiceBox.GetStringSelection()
if Answer == "Circle Area":
RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Circle Area', 'Enter radium...')
if RadiumInput.ShowModal()==wx.ID_OK:
Radium=float(RadiumInput.GetValue())
circlearea=(Radium**2)*math.pi
box = wx.MessageDialog(None, "The area of the circle which radium is " + str(Radium)+ " is:\n\n " + str(circlearea), 'Circle Area', wx.OK)
varanswer1 = box.ShowModal()
box.Destroy()
if Answer == "Square Area":
SideInput=wx.TextEntryDialog(None, "Enter the side:", 'Square Area', 'Enter side...')
if SideInput.ShowModal()==wx.ID_OK:
Side=float(SideInput.GetValue())
squarearea=Side*Side
box = wx.MessageDialog(None, "The area of the square which side is " + str(Side)+ " is:\n\n " + str(squarearea), 'Square Area', wx.OK)
varanswer2 = box.ShowModal()
box.Destroy()
if Answer == "Rectangle Area":
LengthInput=wx.TextEntryDialog(None, "Enter the length: ", 'Rectangle Area', 'Enter lenth...')
WidthInput=wx.TextEntryDialog(None, "Enter the width: ", 'Rectangle Area', 'Enter width...')
if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK:
Length=float(LengthInput.GetValue())
Width=float(WidthInput.GetValue())
rectanglearea= Length * Width
box = wx.MessageDialog(None, "The area of the rectangle is:\n\n " + str(rectanglearea), 'Rectangle Area', wx.OK)
varanswer3 = box.ShowModal()
box.Destroy()
if Answer == "Parallelogram Area":
BaseInput=wx.TextEntryDialog(None, "Enter the length of the base: ", 'Parallelogram Area', 'Enter base lenght...')
HeightInput=wx.TextEntryDialog(None, "Enter the height: ", 'Parallelogram Area', 'Enter height...')
if BaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
Base = float(BaseInput.GetValue())
Height=float(HeightInput.GetValue())
parallelogramarea = Base * Height
box = wx.MessageDialog(None, "The area of the parallelogram is:\n\n " + str(parallelogramarea), 'Parallelogram Area', wx.OK)
varanswer4 = box.ShowModal()
box.Destroy()
if Answer=="Trapezium Area":
LargerBaseInput=wx.TextEntryDialog(None, "Enter the length of the larger base:", 'Trapezium Area', 'Enter length...')
SmallerBaseInput=wx.TextEntryDialog(None, "Enter the length of the smaller base:", 'Trapezium Area', 'Enter length...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Trapezium Area', 'Enter heigth...')
if LargerBaseInput.ShowModal()==wx.ID_OK and SmallerBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
LargerBase=float(LargerBaseInput.GetValue())
SmallerBase=float(SmallerBaseInput.GetValue())
Height=float(HeightInput.GetValue())
trapeziumarea = ((LargerBase + SmallerBase) / 2) * Height
box = wx.MessageDialog(None, "The area of the trapezium is:\n\n " + str(trapeziumarea), 'Trapezium Area', wx.OK)
varanswer5 = box.ShowModal()
box.Destroy()
if Answer == "Spherical Surface Area":
RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Spherical Surface Area', 'Enter radium...')
if RadiumInput.ShowModal()==wx.ID_OK:
Radium=float(RadiumInput.GetValue())
sphericalsurfacearea = (4 * math.pi * (Radium ** 2))
box = wx.MessageDialog(None, "The spherical surface area is:\n\n " + str(sphericalsurfacearea), 'Spherical Surface Area', wx.OK)
varanswer6 = box.ShowModal()
box.Destroy()
if Answer == "Sphere Volume":
RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Sphere Volume', 'Enter radium...')
if RadiumInput.ShowModal()==wx.ID_OK:
Radium=float(RadiumInput.GetValue())
spherevolume= 4 * math.pi * (Radium) ** 3/3
box = wx.MessageDialog(None, "The volume of the sphere is:\n\n " + str(spherevolume), 'Sphere Volume', wx.OK)
varanswer7 = box.ShowModal()
box.Destroy()
if Answer=="Cylinder Volume":
RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Cylinder Volume', 'Enter radium...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cylinder Volume', 'Enter height...')
if RadiumInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
Radium=float(RadiumInput.GetValue())
Height=float(HeightInput.GetValue())
cylindervolume = ((math.pi * (Radium ** 2)) * Height)
box = wx.MessageDialog(None, "The cylinder volume is:\n\n " + str(cylindervolume), 'Cylinder Volume', wx.OK)
varanswer7 = box.ShowModal()
box.Destroy()
if Answer=="Quadrangular Prism Volume":
SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base: ", 'Quadrangular Prism Volume', 'Enter side of base...')
HeightInput=wx.TextEntryDialog(None, "Enter the height: ", 'Quandrangular Prism Volume', 'Enter height...')
if HeightInput.ShowModal()==wx.ID_OK and SideOfBaseInput.ShowModal()==wx.ID_OK:
SideOfBase=float(SideOfBaseInput.GetValue())
Height=float(HeightInput.GetValue())
quadrangularprismvolume = (SideOfBase**2)*Height
box = wx.MessageDialog(None, "The quadrangular prism volume is:\n\n " + str(quadrangularprismvolume), 'Quadrangular Prism Volume', wx.OK)
varanswer8 = box.ShowModal()
box.Destroy()
if Answer=="Cone Volume":
RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Cylinder Volume', 'Enter radium...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cylinder Volume', 'Enter height...')
if RadiumInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
Radium=float(RadiumInput.GetValue())
Height=float(HeightInput.GetValue())
conevolume = (((math.pi * (Radium ** 2)) * Height) / 3)
box = wx.MessageDialog(None, "The cone volume is:\n\n " + str(conevolume), 'Cone Volume', wx.OK)
varanswer9 = box.ShowModal()
box.Destroy()
if Answer=="Cube Volume":
EdgeInput=wx.TextEntryDialog(None, "Enter the edge:", 'Cube Volume', 'Enter edge...')
if EdgeInput.ShowModal()==wx.ID_OK:
Edge=float(EdgeInput.GetValue())
cubevolume = Edge**3
box = wx.MessageDialog(None, "The cube volume is:\n\n " + str(cubevolume), 'Cube Volume', wx.OK)
varanswer10 = box.ShowModal()
box.Destroy()
if Answer=="Cube Surface Area":
EdgeInput=wx.TextEntryDialog(None, "Enter the edge:", 'Cube Surface Area', 'Enter edge...')
if EdgeInput.ShowModal()==wx.ID_OK:
Edge=float(EdgeInput.GetValue())
cubesurfacearea = 6 * (Edge**2)
box = wx.MessageDialog(None, "The cube surface area is:\n\n " + str(cubesurfacearea), 'Cube Surface Area', wx.OK)
varanswer11 = box.ShowModal()
box.Destroy()
if Answer=="Parallelepiped Volume":
LengthInput=wx.TextEntryDialog(None, "Enter the length:", 'Cube Volume', 'Enter length...')
WidthInput=wx.TextEntryDialog(None, "Enter the width:", 'Cube Volume', 'Enter width...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cube Volume', 'Enter heigth...')
if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
Length=float(LengthInput.GetValue())
Width=float(WidthInput.GetValue())
Height=float(HeightInput.GetValue())
parallelepipedvolume = Length*Width*Height
box = wx.MessageDialog(None, "The Parallelepiped Volume is:\n\n " + str(parallelepipedvolume), 'Parallelepiped Volume', wx.OK)
varanswer12 = box.ShowModal()
box.Destroy()
if Answer=="Parallelepiped Surface Area":
LengthInput=wx.TextEntryDialog(None, "Enter the length:", 'Parallelepiped Surface Area', 'Enter length...')
WidthInput=wx.TextEntryDialog(None, "Enter the width:", 'Parallelepiped Surface Area', 'Enter width...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Parallelepiped Surface Area', 'Enter heigth...')
if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
Length=float(LengthInput.GetValue())
Width=float(WidthInput.GetValue())
Height=float(HeightInput.GetValue())
parallelepipedsurfacearea = ((Length + Width + Length + Width)*Height) + ((Length*Width)*2)
box = wx.MessageDialog(None, "The parallelepiped surface area is:\n\n " + str(parallelepipedsurfacearea), 'Parallelepiped Surface Area', wx.OK)
varanswer13 = box.ShowModal()
box.Destroy()
if Answer=="Quadrangular Pyramid Volume":
SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base:", 'Quadrangular Pyramid Volume', 'Enter side of base...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Quadrangular Pyramid Volume', 'Enter height...')
if SideOfBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
SideOfBase=float(SideOfBaseInput.GetValue())
Height=float(HeightInput.GetValue())
quadrangularpyramidvolume = ((SideOfBase ** 2) * Height) / 3
box = wx.MessageDialog(None, "The Quadrangular Pyramid Volume is:\n\n " + str(quadrangularpyramidvolume), 'Quadrangular Pyramid Volume', wx.OK)
varanswer14 = box.ShowModal()
box.Destroy()
if Answer=="Quadrangular Pyramid Surface Area":
SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base:", 'Quadrangular Pyramid Surface Area', 'Enter side of base...')
HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Quadrangular Pyramid Surface Area', 'Enter height...')
if SideOfBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
SideOfBase=float(SideOfBaseInput.GetValue())
Height=float(HeightInput.GetValue())
quadrangularpyramidsurfacearea = (SideOfBase*4*Height) * (2 *(SideOfBase**2))
box = wx.MessageDialog(None, "The Quadrangular Pyramid Surface Area is:\n\n " + str(quadrangularpyramidvolume), 'Quadrangular Pyramid Surface Area', wx.OK)
varanswer15 = box.ShowModal()
box.Destroy()
def About(self, event):
aboutbox = wx.MessageDialog(None, 'Formulum v2.0 - by David Gomes', 'About Formulum', wx.OK)
aboutanswer = aboutbox.ShowModal()
aboutbox.Destroy()
def Close(self, event):
exitbox = wx.MessageDialog(None, 'Do you really want to leave?', 'Exit', wx.YES_NO)
if exitbox.ShowModal()==wx.ID_YES:
exitbox.Destroy()
self.Destroy();
else:
exitbox.Destroy()
def Help(self, event):
helpbox = wx.MessageDialog(None, 'Press Choose Formula to calculate areas and volumes\n\nPress About to see Info\n\nScoutDavid', 'Help', wx.OK)
helpanswer = helpbox.ShowModal()
helpbox.Destroy()
if __name__=='__main__':
app=wx.PySimpleApp()
frame=MainFrame(parent=None, id= -1)
frame.Show()
app.MainLoop()So, check the program: http://code.google.com/p/formulum/downloads/detail?name=Formulum2.1.zip&can=2&q=#makechangesI'll make something that looks alike it to TI Nspire. I'll be posting some progresses here tomorrow if I can:) For now, just try Formulum David
284
« on: October 18, 2010, 08:54:10 am »
Hey everyone, to get MirageOS in my Ti Nspire Touchpad, I need ndless?
THanks
285
« on: October 17, 2010, 05:41:50 pm »
Hey,
As some of yo might already know I have a TI Nspire. I would like to program TI-8x since I can do way more stuff with it.
I don't have a TI-8x, what is the software and how do I find it to program TI-84 and 83?
I only want it if there is an emulator :S
Thanks much,
David!
Pages: 1 ... 17 18 [19] 20
|
Show Posts