Random Pieces of Code
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Random Pieces of Code
United-TI Archives -> TI-Basic
 
    » Goto page 1, 2, 3  Next
» View previous topic :: View next topic  
Author Message
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 28 May 2009 05:21:49 pm    Post subject:
I've made a few 5-10 line programs that do nothing but are cool. If you have any, post them here.

I'll start:

Code:
"12345
For(A,1,8
Output(A,1+int(A[sup]2[/sup]/5.5),Ans
End
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 28 May 2009 06:56:44 pm    Post subject:
Here's a little code


Code:
1->C
0->K
0->G
5->M
10->U
Repeat K[s]=[/s]0(Does not equal)
getkey->K
randInt(1,16)->A
randInt(1,8)->A
If C=1:Then
For(P,1,M
Output(A,B,"HELLO"
End
End
If C=2:Then
For(P,1,M
Output(A,B,"AND"
End
End
If C=3:Then
For(P,1,M
Output(A,B,"GOODBYE"
End
End
G+1->G
If G=U:Then
C+1->C
0->G
End
If C=4:1->C
End


If you change the varibles at the top of the code it will cahnge how long each word
will stay on the screen
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 29 May 2009 04:36:28 am    Post subject:
20-line code

Code:
:Delvar C
:Output(1,1,"+--------------+!(  ) (  ) (  )!! )(   )(   )( !!(  ) (  ) (  )!! )(   )(   )( !!(  ) (  ) (  )!+--------------+!Score:      !
:Starttimer->D
:Lbl 0
:Output(8,8,C
:int(9rand->X
:int(1+X/3->A
:X-3A+3->B
:Output(2A,3+5B,"{}
:Repeat A-1=iPart(Ans) and B=10fPart(Ans
:.1(getkey-72
:If 30=Checktimer(D
:Goto 1
:End
:Output(2A,3+5B," 
:C+1->C
:Goto 0
:Lbl 1
:Output(8,13,"WIN
:Pause


Everybody knows this game...

EDIT: 5-10 line codes are rare, I try to make something that follows that rule Wink

Last edited by Guest on 29 May 2009 04:38:40 am; edited 1 time in total
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 29 May 2009 04:50:57 am    Post subject:
Surprised Forgot I still had this one!


Code:
:Axesoff
:FnOff
:ClrDraw
:For(A,1,94,2
:Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY
:Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY
:Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY
:Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY
:End

Xvirus Razz

Last edited by Guest on 29 May 2009 04:51:24 am; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 29 May 2009 05:24:29 pm    Post subject:
woodswolf wrote:
EDIT: 5-10 line codes are rare, I try to make something that follows that rule Wink

It's ok if they don't, but don't make them too long Smile
Here's another:
Code:
ZStandard
ZSquare
For(A,10,1,-1
Circle(0,0,A,{i
End
(The i is from [2nd] [.])

Edit: I like Xvirus!

Last edited by Guest on 29 May 2009 05:42:14 pm; edited 1 time in total
Back to top
IAmACalculator
In a state of quasi-hiatus


Know-It-All


Joined: 21 Oct 2005
Posts: 1571
Posted: 29 May 2009 06:00:17 pm    Post subject:
I must have a billion of these useless little animations lying around, but they're mostly for the 89. This one's one of my favorites.

scrltxt(s,n)
Prgm
Local x
0 -> x
While getKey() = 0
Disp rotate(s,x)
mod(x+n,dim(s)) -> x
EndWhile
Pause
ClrIO
DispHome
EndPrgm

Last edited by Guest on 11 Jul 2010 03:15:55 pm; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 29 May 2009 07:06:42 pm    Post subject:
I don't have a 89. Can you explain what it does?

By the way, games might go better in 5 minute programs.
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 29 May 2009 07:31:33 pm    Post subject:
Quote:
Forgot I still had this one!



Code:
:Axesoff
:FnOff
:ClrDraw
:For(A,1,94,2
:Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY
:Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY
:Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY
:Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY
:End

Xvirus


How do you get the ΔY and ΔX on your calc or does
the triangle mean times
Back to top
dxfan101010


Member


Joined: 31 Mar 2008
Posts: 194
Posted: 29 May 2009 11:38:42 pm    Post subject:
its under the vars menu i think its here.
Vars
Window
8 is ΔX
and 9 is ΔY
Back to top
IAmACalculator
In a state of quasi-hiatus


Know-It-All


Joined: 21 Oct 2005
Posts: 1571
Posted: 30 May 2009 06:31:14 am    Post subject:
ztrumpet wrote:
I don't have a 89. Can you explain what it does?
It's easier to show you:
scrltxt("ABCDEFG",1) would return

ABCDEFG
BCDEFGA
CDEFGAB
DEFGABC

etc...

Last edited by Guest on 11 Jul 2010 03:15:38 pm; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 04 Jun 2009 09:41:39 am    Post subject:
Here's another cool one:
Code:
For(A,Ymin,Ymax,ΔY
Horizontal A
End
Repeat getKey
{randInt(0,62),randInt(0,94),randInt(0,94
For(A,Ans(2),Ans(3),1-2(Ans(2)>Ans(3
Pxl-Change(Ans(1),A
End
End
Back to top
geekboy1011


Advanced Newbie


Joined: 13 May 2009
Posts: 99
Posted: 04 Jun 2009 03:47:50 pm    Post subject:
What is x virus supposed to look like
cool though i like all the ones i tried
i ll try to make one
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 04 Jun 2009 04:01:14 pm    Post subject:
I'll have an xvirus screenshot in 5 minutes...

Here:

Last edited by Guest on 04 Jun 2009 04:03:49 pm; edited 1 time in total
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 04 Jun 2009 04:35:34 pm    Post subject:
ztrumpet, I like the randomness of your last little piece of code.

and yup, thats my Xvirus Wink.
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 04 Jun 2009 05:21:59 pm    Post subject:
Thanks!
My favorite one here is Xvirus. Smile
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 18 Jun 2009 04:58:49 pm    Post subject:
Don't know if you guys are gonna like this one:


Code:
:2→Xmin:1→ΔX
:2→Ymin:1→ΔY
:ClrDraw:Axesoff:CoordOn
:For(A,2,96
:For(X,A,96,A
:For(Y,A,64,A
:Pt-On(X,Y
:End
:End
:End
interactive divide checker


Run the program to see cool points who start covering the screen. You can check if a number is prime when you go down/left from that line that starts of in the left-corner and the number is prime when there are no points under or left of it
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 21 Jun 2009 12:22:50 pm    Post subject:
Cool, but it takes a while. I like xvirus better.
Back to top
dxfan101010


Member


Joined: 31 Mar 2008
Posts: 194
Posted: 21 Jun 2009 03:11:23 pm    Post subject:
Xvirus is pretty cool
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 21 Jun 2009 07:10:54 pm    Post subject:
Yeah but, I can't seem to think of any program that can compete with Xvirus other then that prime checker Razz
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 07:28:44 am    Post subject:
Here's something else i came up with


Code:
:ZStandard
:AxesOff
:For(X,1,10
:Line(X,9,-X,-9
:End
:For(X,-10,1
:Line(X,9,-X,-9
:End


Last edited by Guest on 22 Jun 2009 09:55:34 am; edited 1 time in total
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Random Pieces of Code
    » Goto page 1, 2, 3  Next
» View previous topic :: View next topic  
Page 1 of 3 » All times are UTC - 5 Hours

 

Advertisement