TI 83/84
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
User Name:
Password:
Remember me
Go Back   Dev Hardware Forums > SOFTWARE > TI 83/84
Reload this Page

Ti-83 programs

ASP Free and Iron Speed Designer are giving away $5,500+ in FREE licenses. Iron Speed's RAD CASE toolset can save up to 80% of your coding time. One free license per week, one perpetual license per month!

Download and Activate to enter!
Open source technologies have proven to be extremely advantageous to businesses.
This adaptive and highly efficient kind of software is central to the infrastructure of most companies. Since the world of open source technology is constantly changing,
IT professionals need a resource to give them up-to-the-minute information about these enterprise level and open source technologies. Dev Shed is that resource .
The ASP Free website provides in-depth information on the latest developer tools available from Microsoft. Our cadre of writers, highly experienced industry experts, reveals the best ways to use established technologies as well as new and emerging technologies. Our coverage of Microsoft's development and administration technologies is among the most respected in the IT industry today. .

Download to Enter | Contest Rules
Tutorials | Forums
Tutorials | Forums

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
« Previous Thread | Next Thread »  
Thread Tools Search this Thread Display Modes
 
Unread Dev Hardware Forums Sponsor:
  Trader Rating: 0 · #1  
Old March 31st, 2009, 04:45 AM
vulcanxodarap vulcanxodarap is offline
n00b DevH'er
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Mar 2009
Posts: 1 vulcanxodarap User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 22 m 25 sec
Reputation Power: 0
Ti-83 programs
Have Some fun with a clock!

:Lbl1
:ClrHome
:If A=0 and B=0 and C=0
:Then
:Input "HOUR:", A
:Input "MINUTE:", B
:Input "SECOND:", C
:Input "AM/PM:", Str1
:Goto 2
:Else
:Goto 2
:Lbl 2
:If C=60
:B+1->B
:If C=60
:0->C
:If B=60
:A+1->A
:If B=60
:0->B
:If A=12 and Str1="AM"
:"PM"->Str1
:If A=12 and Str1="PM"
:"AM"->Str1
:If A=13
:1->A
:For(D,0,120
:Text(25,25,A,":",B,":",C,Str1)
:End
:Goto 1
Reply With Quote
  Trader Rating: 0 · #2  
Old April 3rd, 2009, 06:54 PM
jonyboy280 jonyboy280 is offline
n00b DevH'er
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Apr 2009
Posts: 25 jonyboy280 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 4 h 8 m 51 sec
Reputation Power: 0
nice program, but there is an unidentified err. it goes to the line,

:If A=12 and Str1="AM"

and points to the 2nd = sighn
Reply With Quote
  Trader Rating: 0 · #3  
Old April 3rd, 2009, 07:24 PM
jonyboy280 jonyboy280 is offline
n00b DevH'er
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Apr 2009
Posts: 25 jonyboy280 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 4 h 8 m 51 sec
Reputation Power: 0
any more??
nice, but do you have any more? i was looking for games and it looks like you know ur stuff. i got 2 programs, a guessing game and a bounging line.here they are...
Reply With Quote
  Trader Rating: 0 · #4  
Old April 3rd, 2009, 07:31 PM
jonyboy280 jonyboy280 is offline
n00b DevH'er
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Apr 2009
Posts: 25 jonyboy280 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 4 h 8 m 51 sec
Reputation Power: 0
bouncing line:

ClrDraw
AxesOff
1->A:1->B:1->C
1->D
While 1
A+C->A:B+D->B
pxl-Change(A,B
if A=9:1->C
if A=62:-1->C
if A=9:1->D
if A=94:-1->D
End
Reply With Quote
  Trader Rating: 0 · #5  
Old April 13th, 2009, 08:24 AM
calcfreak calcfreak is offline
Contributing User
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Feb 2009
Posts: 33 calcfreak User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 5 h 4 m 41 sec
Reputation Power: 3
Have some real fun with a clock : )
http://www.devhardware.com/forums/ti-83-84-102/clock-program-176531.html
Reply With Quote
  Trader Rating: 0 · #6  
Old May 2nd, 2009, 12:29 PM
MufinMcFlufin's Avatar
MufinMcFlufin MufinMcFlufin is offline
The Mufinator
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Aug 2008
Location: South Eastern USA
Posts: 330 MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 3 Days 3 h 29 m 28 sec
Reputation Power: 113
How about a bouncing ball program?
Just replace anything in the asterisks (* *) with it's appropriate symbol, and "->" with the sto-> symbol. Tell me if there are any errors.
Code:
:ClrDraw
:57->Z
:For(W,0,z
:Pxl-On(W,0
:Pxl-On(W,94
:End
:For(W,0,94
:Pxl-On(0,W
:Pxl-On(Z,W
:End
:randInt(1,93->X
:1->Y
:0->A
:1->I
:1->J
:1->N
:1->O
:1->F
:1->G
:randInt(-5,5->S
:If (S^2)^.5=3 or (S^2)^.5=4 or (S^2)^.5=5:randInt(-5,5->S
:While S=0
:randInt(-5,5->S
:If (S^2)^.5=3 or (S^2)^.5=4 or (S^2)^.5=5:randInt(-5,5->S
:End
:Pxl-Off(2,X+(X+1*doesn't equal*94
:Pxl-On(Y,X
:While 1
:F->K
:G->L
:N->F
:O->G
:I->N
:J->O
:X->I
:Y->J
:A+1->A
:Y+A->Y
:X+S->X
:If Y+A*greater than or equal to*Z-1:-A->A
:If X+S*greater than or equal to*94 or X+S*less than or equal to*0:-S->S
:If Y*greater than or equal to*Z:Then
:1->Y
:0->A
:randInt(-5,5)->S
:If (S^2)^.5=3 or (S^2)^.5=4 or (S^2)^.5=5:randInt(-5,5->S
:While S=0
:randInt(-5,5->S
:If (S^2)^.5=3 or (S^2)^.5=4 or (S^2)^.5=5:randInt(-5,5->S
:End
:End
:If X*is not equal to*(X^2)^.5:X+(S^2)^.5->X
:If X*greater than or equal to*94:1->X
:Pxl-On(Y,X
:Pxl-Off(L,K
:End
Reply With Quote
  Trader Rating: 0 · #7  
Old May 2nd, 2009, 08:34 PM
MufinMcFlufin's Avatar
MufinMcFlufin MufinMcFlufin is offline
The Mufinator
Dev Hardware Newbie (0 - 499 posts)
  
Join Date: Aug 2008
Location: South Eastern USA
Posts: 330 MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level)MufinMcFlufin User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 3 Days 3 h 29 m 28 sec
Reputation Power: 113
How about a bouncing ball program where you can shot the ball up, down, left, or right?
Just replace anything in the asterisks (* *) with it's appropriate symbol, and "->" with the sto-> symbol. Hold up, down, left, or right to shoot it farther. It will continue normally for about 4 frames until it will react to how you shoot it. I'm currently trying to fix that. Anyways, press VARS to reset the speed, acceleration, and directions, press CLEAR to reset everything VARS does but also reset the position, and press DEL or ON to quit. DEL won't automatically bring you to a "ERR:BREAK" screen, but will keep showing you the current frame. Again, tell me if there are any errors.
Code:
:ClrDraw
:62->Z------------------You can change the height of the screen by changing this value. It has to stay above 2, and below 63. If you change it to 2, then there is almost no area for the ball to bounce, and it will just "roll" around after getting rid of a part of the border, and if it's 63 or higher, then you'll get an error with the domain
:For(W,0,z
:Pxl-On(W,0
:Pxl-On(W,94
:End
:For(W,0,94
:Pxl-On(0,W
:Pxl-On(Z,W
:End
:randInt(1,93->X
:5(Z=62)+1->Y:0->A:1->I:1->J:1->N:1->O:1->F:1->G:0->H
:randInt(-5,5->S
:While S=0
:randInt(-5,5->S
:End
:Pxl-Off(2,X+(X+1*doesn't equal*94
:Pxl-On(Y,X
:While 1
:getKey->G
:If G=23:Stop
:N->K:O->L:I->N:J->O:X->I:Y->J:A+1->A:Y+A->Y:X+S->X
:If G=45 or G=44:Then
:If G=45:Then
:ranInt(1,93->X
:6->Y
:End
:0->A:randInt(-5,5->S
:While S=0
:randInt(-5,5->S
:End
:End
:If H=1:Then
:P+(G=26)-(G=24)->P:Q-(G=25)+(G=34)->Q
:If P*is not equal to*0:5(P/abs(P))(P>5 or P<-5)+P(P*greater than or equal to*-5 and P*less than or equal to*5)->P
:If Q*is not equal to*0:7(Q/abs(Q))(Q>7 or Q<-7)+Q(Q*greater than or equal to*-7 and Q*less than or equal to*7)->Q
:End
:S+Pnot(H)->S:A+Qnot(H)->A
:If H*is not equal to*:Then
:0->P:0->Q
:End
:(G*is not equal to*0)->H:(1-2(Y+A*greater than or equal to*Z-1 or Y+A*less than or equal to*0))A->A:(1-2(X+S*greater than or equal to*94 or X+S*less than or equal to*0))S->S:Y-(Y=Z)->Y:X+(X*is not equal to*abs(X))abs(S)->X:X(X<94 and X>0)+93(X*greater than or equal to*94)+(X*less than or equal to*0)->X:Y(Y>0 and Y<Z)+(Y*less than or equal to*0)+(Z-1)(Y*greater than or equal to*Z)->Y
:Pxl-On(Y,X
:If (L*is not equal to*Y or K*is not equal to*X) and (L*is not equal to*J or K*is not equal to*I) and (L*is not equal to*O or K*is not equal to*N):Pxl-Off(L,K--------------this part is optional. If you want to slightly increase the speed of the program, I suggest this be the first code you take out. It just checks to see if the current position of the final link of the trail is at the current position of any of the other parts. This is useful for when/if the ball finally loses all vertical speed and just "rolls" on the ground, or when/if you change the horizontal speed and neutralize it. Without this code, it just looks bad when it reaches the summit of each bounce and points overlap. But it doesn't speed the program up much so I'd keep it in just in case.
:End

Remember, you have to hold down the arrow you want to move the ball for a little while. It may help to count the frames you've held it down, and remember that it takes the input before it shows the frame every time it goes through the loop.
Last edited by MufinMcFlufin : May 2nd, 2009 at 09:11 PM. Reason: Accidentally used wrong variable in one of two force restricting codes
Reply With Quote
Reply

Viewing: Dev Hardware Forums > SOFTWARE > TI 83/84 > Ti-83 programs

« Previous Thread | Next Thread »

Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Linear Mode Linear Mode
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
     
 


Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

© 2003-2012 by Developer Shed. All rights reserved. DS Cluster 4 - Follow our Sitemap
LOADING INFUSIONSOFTLOADING INFUSIONSOFT 1debug:overlay status: OFF
overlay not displayed overlay cookie defined: TI_CAMPAIGN_1012_D OVERLAY COOKIE set: status off