Useful Programs and Functions I Made

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

Summary:

=P I would wish to have these programs in assembly and released for public use. Feel free to post enhanced programs and functions.

Useful Programs and Functions I Made

boybyou 14 Feb 2010 05:14

=/
I don't have any programs to post yet, though i do have many functions.

Function #1: get_char()
Purpose: Finds the numeric value of a keystroke (or whatever)
Notes: I would keep this program archived in my calculator's main folder.

:get_char()
:Func
:© instructions--right after this program starts running,
:© press the key that you want to find the value of
:
:Local KeyPrssd
:0→KeyPrssd
:
:While KeyPrssd=0
:getKey()→KeyPrssd
:EndWhile
:
:Return KeyPrssd
:EndFunc

More Functions to come soon…
(i'm writing them in notepad so i can paste 'em later on new posts exceptionally quick)
=P

Last edited on 19 Feb 2010 04:19 by boybyou Show more

Re: Useful Programs and Functions I Made

builderboy 14 Feb 2010 07:24

Nice getkey loop, could be the foundation for many games/programs

(although I think asking people to give you credit for this function is a bit silly :P it's going to be in almost every single basic game in one shape or another)

can't wait to see what other fnctions you are coming up with!

Re: Useful Programs and Functions I Made

boybyou 17 Feb 2010 04:42

soz, don't give credit =P
except that i don't use this EXACT function for games, nor would i think anyone would…
it's the middle part that's commonly used, though

Last edited on 17 Feb 2010 04:45 by boybyou Show more

Re: Useful Programs and Functions I Made

boybyou 17 Feb 2010 05:02

The following program finds the length of the given string.

Function #2: string_l(any string)
Purpose: See the first line of this post.
Folder: The s folder. (s stands for string)
Note: I find this program useful. Please simplify any algorithms with replying posts.

:string_l(s)
:Func
:© finds the string length
:Local i,ii © loop variables
:Local new_s © the string that will be constantly modified
:Local spacenum © number of spaces
:s→new_s
:0→spacenum
:
:1→ii
:For i,1,ii,1
: inString(s," ",i)»i
: If i≠0 Then
:  spacenum+1»spacenum
:  i+1→ii
: Else
:  Exit
: EndIf
:EndFor
:
:1→ii
:For i,1,ii,1
: If right(new_s,1)≠" " Then
:  shift(s,-i)→new_s
: Else
:  If spacenum≥1 Then
:   spacenum-1→spacenum
:   shift(s,-i)→new_s
:  Else
:   Exit
:  Endif
: Endif
: ii+1→ii
:EndFor
:
:Return i-1
:EndFunc

Example of function call: s\string_l("roflmaololcopters meh.")
Edit—added info: Output: 22

I should document this, but you guys can ask about why I did stuff the way I did it by replying to this post.
XD hope u pplz find it usefull!
Edit—added info: Please give credit to me for this program.

Last edited on 19 Feb 2010 04:24 by boybyou Show more

Re: Useful Programs and Functions I Made

boybyou 19 Feb 2010 04:26

P.S. Do you pplz think i write nice, neat, easy-to-read code? =P

Re: Useful Programs and Functions I Made

Rigel314 19 Feb 2010 12:14

You can use the dim() function for this.
http://tibasicdev.wikidot.com/68k:dim

Re: Useful Programs and Functions I Made

boybyou 22 Feb 2010 23:14

gosh… lol… i'm ashamed to post anymore… (this is my last post.) bye pplz— i'll just come on here to look at stuff…

Re: Useful Programs and Functions I Made

ztrumpet 22 Feb 2010 23:45

There's no reason to quit- If you are too ashamed, then you will get better. =) Good luck with your code!
(It took me over 1.5 years before I used dim() for the first time.)

---

Find more info about my projects on Omnimaga:
http://www.omnimaga.org/index.php

Last edited on 22 Feb 2010 23:46 by ztrumpet Show more

Re: Useful Programs and Functions I Made

builderboy 23 Feb 2010 00:07

Yeah don't be ashamed! Thats what we're here for! Would you believe that to extract elements from a list, I used the prod() function? At some point or another we all write our own functions that the TiOS has already done for us :)

Re: Useful Programs and Functions I Made

theUnnamed 21 Apr 2010 01:15

As the calculator gets more and more functions the more likely we are to accidentally rewrite functionality I've done it a number of times. of course I mainly am coding on the n-spire and that thing has like 2000 functions or something crazy like that with operators to do all manor of crazy things and whats worse most take all type often having different behaviors for each. trust me and the people here you will rewrite functionality and you will feel stupid when someone tells you the OS already does it for you.

Re: Useful Programs and Functions I Made

rhombus p 21 Apr 2010 01:47

dont feel ashamed and dont quit! ive done this many time before on the 83/84 calcs. all this does is it helps you learn. please, post some more of you functions :D

oh and btw, the fact that you can code something that does the same thing as a built in operation is pretty amazing none the less.

---

Last edited on 21 Apr 2010 01:49 by rhombus p Show more

Re: Useful Programs and Functions I Made

theUnnamed 21 Apr 2010 14:30

Although you can use dim()
here's, my way of doing it without dim()

:string_l(s)
:Func
:local c
:1→c
:while mid(s,c,1)≠""
:c+1→c
:EndWhile
:Return c-1