Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
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
United-TI Archives -> TI-Basic
 
    » Goto page Previous  1, 2, 3, 4, 5, 6, 7
» View previous topic :: View next topic  
Author Message
Bhaliar


Member


Joined: 16 Nov 2009
Posts: 221

Posted: 06 Feb 2010 08:57:31 pm    Post subject:

Sorry for double posting, but no one took notice of my edit. I copied the program, but it wouldn't run for long. it gets domain on the outputs or the track. I did use the one guys different code line.
Back to top
nitacku


Advanced Member


Joined: 23 Aug 2005
Posts: 408

Posted: 14 Feb 2010 04:56:52 pm    Post subject:

What was the one guy's different code line?

Was it this:
Repeat X≤int(Ans) or X≥int(Ans)+70fPart(Ans

Because that code is wrong.
It needs to be just the way it is posted originally:

Repeat X≤int(Ans) or X≥int(Ans)+10fPart(Ans

It's a 10, not 70 for a reason.
The program is using numbers in base 10, not 70.


Last edited by Guest on 01 Jul 2010 09:51:21 am; edited 1 time in total
Back to top
Bhaliar


Member


Joined: 16 Nov 2009
Posts: 221

Posted: 16 Feb 2010 12:29:12 pm    Post subject:

Yeah I replaced your original and it worked fine. Only one thing though. I notice somtimes that the left side wall can be ridden on without getting a crash and end of game. Might just be I messed up.
Back to top
kinkoa


Member


Joined: 28 Jul 2009
Posts: 103

Posted: 20 Feb 2010 11:18:47 pm    Post subject:

nitacku wrote:
ClrHome
For(θ,0,13
Disp " //no space
Output(8,5,"*░░░░░░* //6 spaces
End
SetUpEditor L1 //this is the list
7→dim(L1
Fill(5.7,L1
8→X
5→Y
7→θ
DelVar Z
Repeat X≤int(Ans) or X≥int(Ans)+10fPart(Ans
Z+1→Z
θ-not(fPart(.03Ans→θ
getKey
X+(Ans=26)-(Ans=24→X
Y+int(2-3rand
Ans-(Ans+θ>16)+not(Ans→Y
Disp " //no space
Output(1,X,8
Output(8,Ans,"*
Output(8,Ans+θ,"*
∆List(cumSum(augment(L1,{Ans+.1θ→L1
Ans(1
End
Output(4,1,"Crash! Score:
Output(4,14,Z


i had to make changes to get this to work properly as it didnt work the way that it is also ur code runs off screen and you get a domain error because the ans varible contained decimals

ClrHome
For(θ,0,13
Disp " //no space
Output(8,5,"*░░░░░░* //6 spaces
End
SetUpEditor L1 //this is the list
7→dim(L1
Fill(5.7,L1
8→X
5→Y
7→θ
DelVar Z
While(X≥int(Ans) or X≤int(Ans)+θ
Z+1→Z
θ-not(fPart(.03Ans→θ
getKey
X+(Ans=26)-(Ans=24→X
Y+int(2-3rand
iPart(ans
Ans-(Ans+θ>16)+not(Ans→Y
Disp " //no space
Output(1,X,8
Output(8,Ans,"*
Output(8,Ans+θ,"*
∆List(cumSum(augment(L1,{Ans+.1θ→L1
Ans(1
End
Output(4,1,"Crash! Score:
Output(4,14,Z


the ones in red are the changes it took to get it to work properly i know its not much but it works now


Last edited by Guest on 01 Jul 2010 09:50:44 am; edited 1 time in total
Back to top
meishe91


Newbie


Joined: 06 Dec 2009
Posts: 49

Posted: 28 Mar 2010 03:56:18 am    Post subject:

So I got bored today and came up with a kind of interesting/pointless program that I thought I would share.

There quite literally isn't a point to this, I just thought someone might enjoy the concept, or something, for it. I don't know.

Anywho, what this does is it asks for you to input something (a name, number, anything really) and it stores it to Str1. It then will take this and convert it all into ASCII (I think that is what you would call it) to look like those characters you entered using those characters, then you can scroll through the whole message.

Example:

Code:
Input of "J" becomes:
_JJJ_
__J__
__J__
__J__
__J__
J_J__
_J___

Hope that makes sense.

Anyways, to the code:

Code:
"_→Str2
Input Str1
For(A,1,length(Str1
Text(-1,0,0,sub(Str1,A,1
For(B,0,6
For(C,0,4
Str2+sub("_"+sub(Str1,A,1),1+pxl-Test(B,C),1→Str2
End
End
End
sub(Str2,2,length(Str2)-1→Str2
ClrHome
DelVar DRepeat K=45
For(A,1,7
Output(A,6,sub(Str2,A5-4+B,5
End
Repeat Ans
getKey→K
End
B+35((Ans=26)-(Ans=24
Ans-35((Ans>length(Str2)-35)-(Ans<0→B
End

Didn't spend any time optimizing so there probably could be some needed. Oh well, it works. Hope some of you enjoy Smile


Last edited by Guest on 21 Jun 2010 08:53:53 pm; edited 1 time in total
Back to top
Bhaliar


Member


Joined: 16 Nov 2009
Posts: 221

Posted: 31 Mar 2010 04:12:13 pm    Post subject:

That's actually really neat. I had an idea, though I don't feel up to it. The premise would be to make a program where a character can enter lines of words that will be speech, or single commands that can represent things or people. It turns em into assembley then. So you could type like A1(Human Guy) BHelloB(Speech) Etc. Not neccesarily like that but you get the idea.
Back to top
meishe91


Newbie


Joined: 06 Dec 2009
Posts: 49

Posted: 01 Apr 2010 04:15:03 am    Post subject:

Bhaliar wrote:
That's actually really neat. I had an idea, though I don't feel up to it. The premise would be to make a program where a character can enter lines of words that will be speech, or single commands that can represent things or people. It turns em into assembley then. So you could type like A1(Human Guy) BHelloB(Speech) Etc. Not neccesarily like that but you get the idea.

Could you possibly explain that again? I don't know if it's 'cause it's three in the morning or what but I couldn't follow all that :/ Sorry.
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 01 Apr 2010 05:03:57 am    Post subject:

I'm posting this here just so that I can get it off my calc:

FnOff
PlotsOff
ClrDraw
Input Str1
Text(-1,0,0,Str1
ClrHome
For(A,0,6
For(B,0,4
If pxl-Test(A,B
Output(A+2,B+1,Str1
End
End


Last edited by Guest on 21 Jun 2010 08:41:49 pm; edited 1 time in total
Back to top
Sven.Thomas0


Active Member


Joined: 19 May 2009
Posts: 520

Posted: 01 Apr 2010 10:02:09 am    Post subject:

I tried the program, but it didn't want to work for me after the first char. I got the idea, however, so here is my rendition (note that the " after For(C... has a space following it):

ClrHome
Input Str1
length(Str1→D
For(A,1,D
sub(Str1,A,1→Str2
Text(-1,0,0,Ans
For(B,0,6
For(C,0,4
"
If pxl-Test(B,C
Str2
Str1+Ans→Str1
End
End
End
DelVar Bsub(Str1,D+1,length(Str1)-D→Str1
Repeat A=105
ClrHome
For(A,1,7
Output(A,1,sub(Str1,35B+5A-4,5
End
Repeat Ans
getKey→A
End
B+(A=26)-(A=24→B
If B=D
DelVar B
If B<0
D-1→B
End


Just press enter to exit and use left/right to cycle through the letters. By the way, ASCII refers to the actual hex code for a character, not the pixels it uses. 41h would be A, not:

01110
10001
10001
11111
10001
10001
Back to top
meishe91


Newbie


Joined: 06 Dec 2009
Posts: 49

Posted: 01 Apr 2010 09:08:18 pm    Post subject:

ThunderBolt wrote:
I tried the program, but it didn't want to work for me after the first char. I got the idea, however, so here is my rendition (note that the " after For(C... has a space following it):

ClrHome
Input Str1
length(Str1→D
For(A,1,D
sub(Str1,A,1→Str2
Text(-1,0,0,Ans
For(B,0,6
For(C,0,4
"
If pxl-Test(B,C
Str2
Str1+Ans→Str1
End
End
End
DelVar Bsub(Str1,D+1,length(Str1)-D→Str1
Repeat A=105
ClrHome
For(A,1,7
Output(A,1,sub(Str1,35B+5A-4,5
End
Repeat Ans
getKey→A
End
B+(A=26)-(A=24→B
If B=D
DelVar B
If B<0
D-1→B
End


Just press enter to exit and use left/right to cycle through the letters. By the way, ASCII refers to the actual hex code for a character, not the pixels it uses. 41h would be A, not:

01110
10001
10001
11111
10001
10001

Who's code are you referring to? If mine then ya, I caught what I typed in wrong. It should work now. Sorry about that. And nice code Goose Smile
Back to top
Omega364


Newbie


Joined: 10 Mar 2009
Posts: 19

Posted: 06 Mar 2011 05:47:47 pm    Post subject:

Hi there mate i love your programs and the programs posted by other people Smile so i would like to post my own 5 minute program

GuessMe

Code:

6→G
randInt(1,100)→Y
randInt(Y,100)→Y
randInt(1,Y)→Y
ClrHome
Disp "6 GUESSES"
Pause
ClrHome

Lbl A
While G≤0
Disp "LOSER...",Y
prgmGUESSME
End
Input "1->100",X
If X>Y
Goto B
If X<Y
Goto C
If X=Y
Goto D

Lbl B
G-1→G
Disp "LOWER"
Goto A

Lbl C
G-1→G
Disp "HIGHER"
Goto A

Lbl D
Disp "GRATZ"
Pause
prgmGUESSME


Obviously if it's to easy just change what get stored for G or change the limits from -100 to 100 in the randInt part

Code:

randInt(-100,100)→Y
randInt(-100,Y)→Y
randInt(Y,100)→Y
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
    » Goto page Previous  1, 2, 3, 4, 5, 6, 7
» View previous topic :: View next topic  
Page 7 of 7 » All times are GMT - 5 Hours

 

Advertisement