My Programs
(account deleted) 10 Mar 2017 21:16
Thank you!
This thread is dead... :( Try again in a new forum.
|
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
» Projects & Contests / Your Projects
» This thread is dead... :( Try again in a new forum.
Summary:
Feel free to post any of your programs if you like. And yes, I may copy programs from wikidot, but I update them and show them. And now, there is a daily challenge for people in my forum. Good luck!
1. Create a program that asks for a username and password when you turn on the calculator.
(Hint: The username and password NEED to be stored into a string in order for it to work.)
You can create your coding of your choice. DO NOT USE ANY DOWNLOAD APPS!!!! You must be creative and think and understand your codes while you program your program.
(account deleted) 10 Mar 2017 21:16
Visit my challenges forum.
Here is the link:
[ http://tibasicdev.wikidot.com/forum/t-2188744/challenges-ty-dahl]
I don't suggest copy/paste from someone. It was their work, not yours :/
It is also a whole page found on this site: hexcodes. And as Battlesquid said, this should not be on a page of "Your" programs. You did not make any of these hexcodes. and This is clearly copy/paste since you didn't even take the time to put them in code boxes.
Hey, Try out my daily challenge. Look in my discription for it. Oh and by the way, there was a really wierd error on my calculator, and it looks like an unatural error. Ill tell you what it is:
ERR:^^-1^^c#cwc>c↓c10c
1:QuitYou guys know what this means? Please RESPOND!!!
How did you arrive at this error? And…where's the daily challenge? I need a challenge :D
Here is the challenge:
Part 1 Works with any family, as long is has Inputs and Str1-Str0.
Create a security program with the following expectations for the challenge:
**1. Ask the user for the username and password.
2. store your password/ username into separate strings.
3. Do not, I repeat, DO NOT use any downloads or apps. You may IF there is no other way to complete objective 4.
4. Execute the program when the calculator turns on. (after by pressing the [ON] key.
5. If the password or username is incorrect, shut off the calculator.
6. If there is too many failed attempts, reset ALL RAM. **
Part 2
7 a. Show a "Invalid password or user name" for the security program.
7 b. BE CREATIVE!!!
7 c. Use a "Clear Entries" command to prevent the user for discovering the secret username and/or password.
7 d. Prevent the ERR:BREAK when the user tries to press the [ON] key and tries to drain any/all power from the calc.
8. Any other can be your choices.
9. Back up the program if necessary.
Use these codes for ideas.
PROGRAM:SECURITY
:Clear Entries
:For(I,1,1E99)
:Disp "Input Username."
:Input ":",Str1
:If Str1="hal":Then //if the user is new to TI, he/she may not know about the lower case letters; lowercase letters makes it more secure.
:ClrHome
:Disp "Welcome User 1!!"
:Stop
:Else
:If Str1≠"hal":Then
:ClrHome
:Disp "Invalid!"
:End
:EndUse this hexadecimal code for shutting down the calc.
PROGRAM:ZTESTNOW //I usually name this "Test program" ZTESTNOW because if I found a program online that looks cool, and if it fails, I just delete the code instead of the whole program itself
:AsmPrgm3E01D303FB76FDCB09A6C9P.S.,
Copy the hexadecimal code exactly as it states, or your calculator may crash.
Hexcode, not working…ERR:INVALID
EDIT: Typed it in wrong, it's good. :D
And…cite your sources please.
No way to do this without Start Up Customization :P I'm going to use that and assume that the user has set it up.
Also, WHY DIDN'T YOU MAKE A NEW THREAD FOR YOUR CHALLENGE? It would make it easier for people to find. I also dont see a "repost" button, do you?
I agree. It is impossible to find anything on this thread anymore.
For The Challenge, Please visit my challenges forum!
Created a new forum
DoneHA HA HA!!!
Here is Wolfgang47 new updated program:
84
PROGRAM:CLOCK
:Clear Entries
:Lbl M
:ClrDraw
:ClrHome
:Menu("Main Menu","Analog",3,"Digital",2,"Set",1,"About",0,"Close",Q
:Lbl 0
:Repeat getKey
:For(A,94,1,-1)
:Text(1,A,"Clock Interface"
:End
:For(A,94,1,-1)
:Text(8,A,"Wolfgang47"
:End
:For(A,94,1,-1)
:Text(15,A,"Updated by Ty Dahl"
:End
:For(A,94,1,-1)
:Text(56,A,"Version 4.0.1"
:End
:Pause
:Goto M
:Lbl 1
:Menu(Settings","Time",4,"Date",5,"Reset Default",RD,"Back",6
:Lbl 6:Goto M
:Lbl RD
:setDate(2001,01,01)
:setTime(12,00,00)
:setDtFmt(1
:setTmFmt(12
:Goto 1
:Lbl 5
:Disp "Date?"
:Input "Year ",Y
:Input "Date ",D
:Input "Month ",M
:ClrHome
:setDate(Y,M,D)
:Goto M
:Lbl 4
:Disp "Time?"
:Input "Hour ",H
:Input "Minute ",M
:0→S
:setTime(H,M,S)
:ClrHome
:Disp "Time Format?","12 or 24 Hour"
:Input "Format ",F
:setTmFmt(F
:ClrHome
:Disp "Date Format?","1(MMDDYY","2(DDMMYY","3(YYMMDD"
:Input "Format ",F
:setDtFmt(F
:Goto M
:Lbl 2
:Menu("Digital Clocks","12-Hour",12,"24-Hour",24,"Back",BB
:Lbl BB:Goto M
:Lbl 24
:Repeat getKey
:getTmStr(12
:Text(1,1,Ans
:getTime
:getDtStr(1
:Text(1,1,Ans
:getDate
:End
:Goto M
:Lbl 12
:Repeat getKey
:getTmStr(12
:Text(1,1,Ans
:getTime
:getDtStr(1
:Text(1,1,Ans
:getDate
:End
:Goto M
:Lbl 3
:AxesOff
:GridOff
:FnOff
:PlotsOff
:ZStandard
:ZInteger
:Degree
:SetUpEditor
:ClrList L1
:3 -> dim(L1
:L1→L2
:Ans→L3
:Ans-1→L1
:Circle(0,0,30,{i
:Circle(0,0,30.25,{i
:Circle(0,0,30.5,{i
:Circle(0,0,30.75,{i
:Circle(0,0,31,{i
:For(A,1,12)
:90-30A→B
:44+round(24cos(Ans),0→C
:28-round(24sin(B),0→D
:Text(D,C,A
:If A≤9
:Text(D,C,0,A
:End
:Repeat getkey
:getTime→L4
:Ans(1
:L4(2)/12+5Ans-60(Ans>12→L4(1
:For(A,3,1,-1
:If not(L1(A)=L4(A
:Then
:Line(0,0,L2(A),L3(A),0
:L4(A→L1(A
:11A-2A^2+4→B
:90-6L1(A→C
:Bcos(Ans→L2(A
:Bsin(C→L3(A
:End
:End
:Pt-On(0,0,2
:Line(0,0,L2(3),L3(3
:Line(0,0,L2(2),L3(2
:Line(0,0,L2(1),L3(1
:End
:Goto M
:Lbl Q
:DelVar ADelVar BDelVar CDelVar DDelVar KZStandard
:AxesOn
:ClrHome
:LblQ
:For(A,94,1,-1)
:Text(1,A,"Thank you!"
:ClrList L1,L2,L3,L4
:End
:Pause
:ClrDraw
:ClrHome
Unfold
1. Clock Program, compatible with the TI-84 Plus Family by (account deleted), 10 Mar 2017 21:27
(account deleted), 10 Mar 2017 21:27
why'd you put LBL Q in the code twice?
im going through and looking for errors i might've made because on digital clock mode, the date and time try to appear on the same line. just thought id say in case it is actually an error in the code you posted
also, im using a TI-84 Plus with the OS version 2.55 (the latest)
i fixed it, under labels 24 and 12 theres 2 text commands trying to show at 1,1 so set the 2nd one to 8,1
You should upload your programs to the Archives. Also, if anyone needs to contact you, they can send you a direct message through Wikidot.
So, I tried an assembly program on my TI-84 Plus, and when I did, I was foolish not t Archive my programs, and turns out, when I used the Asm( command, (This assembly program I used to activate lower case letters.) my programs were wiped clean. I had the connect 4 program (made by SiCºde), and 19 other programs, my calculator crashed. Can you guys help? Any I ideas of what I should do to prevent this from happening again? I'm trying so hard to remember my codes I programmed.
-Thel 'Vadamee
P.S., What does an assembly program do? What are the pros and cons? Benefits? Disadvantages?
Thanks!
P.S.S., Here is the Assembly program coding:
WARNING!!! DO NOT DO THIS UNLESS YOU KNOW WHAT YOU ARE DOING!!! OR, IF YOU EXECUTE THE ASSEMBLY PROGRAM WITH THE WRONG CODE, YOUR CALCULATOR **WILL** CRASH!!!!!!!
PROGRAM:TXTCONVT
:AsmPrgm
:FDCB24DEC9After you input the code, use the Asm( command and do this on the main screen.
Asm(prgmTXTCNVT
DoneOr, you can visit the Asm( command page:Wikidot-TI-BASIC developer page
If your calculator shows the "Asm(prgmTXTCNVT" on the screen, and shows a frozen running indicator on the top right, that means your calculator crashed. Hope this helps!
How to prevent this from happening again: don't try to use assembly programs unless you are 100% sure your program will work. I've never used an assembly program on my TI-84+ CE before, but I have had my calculator crash before. If you don't want to lose your programs, you need to back up them. Also, instead of using the same page for all of your posts, you really should just create a new page each time your posts change topic. That way pages don't look like hodgepodge questions, programs, and comments.
ALL
PROGRAM:DBDAGE
:ClrHome
:ClrDraw
:Clear Entries
:Input "Date 1? ",A //1 space; birth
:Input "Date 2? ",B
:dbd(A,B)
:ClrHome
:Ans/365 //divides the answer by 365, to determine how many years from the days
:Text(1,1,"You are ",Ans," years old!" //results; use text( than Output( or Disp for better results.
:Pause
:ClrDraw
:ClrHome
:0→A
:0→B
**Keep in mind this may interfere with any other programs that use the A and B vars, unless you add the :0→A and :0→B**I suggest that you use list vars if you don't want interference with A and B. To set up the lists, use:
SetUpEditor |A,|B //The "|" means the list L
1->dim(|A
1->dim(|BOr use one list and grab the elements individually
PROGRAM:DBDAGE
:ClrHome
:ClrDraw
:Input "Date 1, Date 2: ", Str0
:expr("{"+Str0->AGE
:dbd(⌊AGE(1),⌊AGE(2)
:Ans/365 //divides the answer by 365, to determine how many years from the days
:ClrHome
:Text(1,1,"You are ",Ans," years old!" //results; use text( than Output( or Disp for better results.
:Pause
:ClrDraw
:ClrHome
:Delvar ⌊AGEAlso, why would you want/need to clear entries?
TI calculators retain memory of every calculation on the Home Screen. So if you're using the Home Screen a lot for a math class, then the calculator will inevitably crash and force you to reset the RAM because it no longer has memory space to retain the entries. I know all of this because that is what happened to me 5 months ago. Fortunately, this happened the week after I had a math test, and I didn't have any programs more complicated than the quadratic formula. So, I created a program that clears entries, deletes the contents of the Y variables, and resets the graph screen, just to ensure a RAM reset wouldn't happen again.
I know that, but why would there have been a "Clear Entries" in this program? I can see clearing your entries every so often, but I see no need for it in this program
I agree, there is no need for it in this program. I also see no need for the two ClrDraw commands, as the graph screen isn't used.
Actually, it is. The Text( command displays on the graph screen. Although there should be an "AxesOff" command and the Y-vars cleared if it is wanted to be more professionsal.
Oh, I didn't see the Text( in there. Yes, it does use the graph screen.
because if you execute the program over and over, it will add up in the history, and it is just a big mess. Then you would have to go through and delete all the stuff.
ALL
PROGRAM:DBDAGE
:ClrHome
:ClrDraw
:Clear Entries
:Input "Date 1? ",A //1 space; birth
:Input "Date 2? ",B
:dbd(A,B)
:ClrHome
:Ans/365 //divides the answer by 365, to determine how many years from the days
:Text(1,1,"You are ",Ans," years old!" //results; use text( than Output( or Disp for better results.
:Pause
:ClrDraw
:ClrHome
:Delvar ADellvar B
4. Battery Check X made for any family (may not work on a original TI-83)
(account deleted) 21 Mar 2017 14:06
This Program will guarantee this will work. But First, let me show you how to do this:
Step 1
Create 2 programs with the following names: BATTERY, BTTRYCHK.
Step 2
In the BATTERY program, input the following code:
PROGRAM:BATTERY
:AsmPrgmEF6F4C3D280A78FE1E380EF21521808
:EFB3503E042001AFEF8C47EFBF4AC9Step 3
In the BTTRYCHK program, input this coding…
I highly recommend you use a TI-84 Plus on this program [s] for better results.
On a ti-84:
0-4
On a TI-83:
0 and 4
PROGRAM:BTTRYCHK
:Clear Entries
:Asm(prgmBATTERY
:Ans→θ
:For(I,1,75
:Output(1,1,"Checking battery
:End
:ClrHome
:If θ=4
"Full"
:If θ=3
"Good"
:If θ=2
"Fair"
:If θ=1
"Low"
:If θ=0
"Poor"
:End
:Output(1,1,"Battery Status:
:Output(2,1,Ans
:Pause
:ClrHome
Unfold
4. Battery Check X made for any family (may not work on a original TI-83) by (account deleted), 21 Mar 2017 14:06
(account deleted), 21 Mar 2017 14:06
What calculator(s) is this for (You didn't label it with a "*" or "X")
This is basically a hexcode found here on the site.
You could also move the Output command before the for loop if you wanted to strain the processor a little less. That way it wouldnt send the output command 75 times
This actually looks shorter than the original!
And uh, don't you need some Disp or Output commands in there? It looks like you are storing them to Ans, so you could put at the end:
Disp Ans(I think :P)
Wouldnt this be faster?
Asm(prgmBATTERY
If Ans=4:"Full"
If Ans=3:"Good"
If Ans=2:"Fair"
If Ans=1:"Low"
If Ans=0:"Change Batteries"
Disp "Battery Level:", AnsBut wouldn't The string mess up Ans?
If Ans=4:"Full"
//now Ans is equal to "Full":/
But "Full" ≠ 3 So once it reaches the correct answer it changes answer to a string, and strings are never equal to an integer. So no, it wouldn't mess anything up since
If Ans=4:"Full"
//only changes whats in Ans if Ans=4
If Ans=3:"Good"
//only changes whats in Ans if Ans=3
If Ans=2:"Fair"
//only changes whats in Ans if Ans=2
If Ans=1:"Low"
//only changes whats in Ans if Ans=1
If Ans=0:"Change Batteries"
//only changes whats in Ans if Ans=0
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus)
(account deleted) 22 Mar 2017 16:38
My updated battery program: Try it out!!
** Use in LOWERCASE when told to do so. **
PROGRAM:BTTRYCHK
:Clear Entries
:ClrHome
:For(I,1,75)
:Output(1,1,"Checking battery
:End
:ClrHome
:Repeat getKey
:Asm(prgmBATTERY
:Ans→θ
:If θ=4
:"Full____[====}" //:4 spaces for all levels after the words.
:If θ=3
:"Good____[===_}" //1 space
:If θ=2
"Fair____[==__}" //2 spaces
:If θ=1
"Low____[=___}" //3 spaces
:If θ=0
"Replace___[____}" //4spaces
:Output(1,1,"Battery status:
:Output(2,1,"----------------
:Output(3,1,"____
:Output(3,12,"____
:Output(4,1,"----------------
:End
:ClrHomeCopyright Ty Dahl 2017 programming (TI-Basic)
Remember, if you change from θ to Ans, it will give you a argument or Data type error, so use Theta.
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by (account deleted), 22 Mar 2017 16:38
(account deleted), 22 Mar 2017 16:38
Please show me your copyright. Unless of course you do not actually have a copyright, in which case you are lying when you say that you have a copyright. So I would like proof of your copyright to that program.
A copyright goes much further than just saying that it's copyright… see this. Apologies in advance if there actually is a copyright on this (Which I see no reason to have one on :P).
…
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by 
Battlesquid, 22 Mar 2017 18:21
There is no registered copyright on it as far as I can see. I searched through the catalog of us copyrights, and you can see the results of the search here.
I think people mistakenly put a "copyright" on their work because they think it just means that you can't copy it (which I have done too), when in reality, it's not as simple as that but don't worry too much about it Ty! Just make sure your information is right before presenting it (like little mistakes or misconceptions). You're not the only one! (See my post in your battery section to see what I mean)
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by Battlesquid, 22 Mar 2017 23:14
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus)
(account deleted) 23 Mar 2017 14:01
finally! SOMEONE is now speaking my language!!! ;)
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by (account deleted), 23 Mar 2017 14:01
(account deleted), 23 Mar 2017 14:01
Que voulez-vous dire?
¿Qué quieres decir?
Ý anh là gì?
hvad mener du?
你什么意思？
Cad atá i gceist agat?
どういう意味ですか？
cosa intendi?
01110111 01101000 01100001 01110100 00100000 01100100 01101111 00100000 01111001 01101111 01110101 00100000 01101101 01100101 01100001 01101110 00111111
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus)
(account deleted) 23 Mar 2017 17:03
I don't speak any of this languages. I only speak English, and some very basic Chinese.
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by (account deleted), 23 Mar 2017 17:03
(account deleted), 23 Mar 2017 17:03
I think he meant "his thought process" when he said language :)
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by Battlesquid, 23 Mar 2017 20:36
I think Trenly was trying to be funny. He was trying to "speak his language", and so he tried several different languages.
Unfold
Re: 4. Battery Check (I recommend using a TI-83 or TI-84 Plus) by 
Myles_Zadok, 23 Mar 2017 21:46
yeah, but I still like posting the updated programs by me…
Did you know that you can scroll to the top right of the website, and find a button that says: "CHAR", which is short for "Character"[s]. Click on it, and it will open a small menu. The menu will display these options…
→, ∟, ⌊, ‾, ×, ÷, ±, √, Σ, ≠,≥, ≤, π. [Store,list (long L), list (tall L), Upper score?, multiplication, division, addition/subtraction, square root, bent "E", not equal to, greater than or equal to, less than or equal to, weird pi.]
And these…
Δ χ ▶
ֿ¹ ² ³ (Exponents 1-3)
L₁ L₂ L₃ (List 1- List 6)
L₄ L₅ L₆
≅ ℕ º (Bold N, Degree, About)
θ ∠ ∞ (Theta, Infinite, Acute Angle)
♦ ⇧ ∫ (Diamond, up arrow)
∏ © (pi{3.141592654}, copyright)
☺ ☻ ♥ ♦ ♣ ♠ • ◘ ○ ◙ ♂ ♀ ♪ ♫ ☼ ► ◄ ↕ ‼ ¶ § ▬ ↨ ↑ ↓ → ← ∟ ↔ ▲ ▼ (I pressed Alt 1-30 on my schools windows 7 computer)
You have some errors.
$\Sigma$ is not a "Bent E" it is called "Sigma" and it means "The sum of". As in $\Sigma_{n=1}^{5}[n^{2}-n]$ meaning the sum of $n^{2}-n$ from 1 to 5
$\int$ is called an integral. $\int_{1}^{5}[x^2 dx]$ means the integral of $x^2$ from 1 to 5 with respect to x. $\int{x^2 dx}$ simply means the integral of $x^2$.
ℕ is not a "Bold N" it is "The set of all natural numbers" as in $\Sigma{ℕ}$ for the sum of all natural numbers.
≅ does not mean "about", it means congruent. ∠ does not mean "Acute angle" it means "Angle". As in $∠ABC≅∠DEF$ which means angle ABC is congruent to angle DEF.
The "upper score?" is the negative sign, for when people are typing code and need to put something like negative 1. They should put ‾1 instead of -1 so that the calculator doesn't show a syntax error when the code is entered.
The ֿ¹ is a negative 1 exponent, not a 1 exponent.
Just a side note here, for $\pi$ I like to use the mathtype pi when it is not in a code block. that is done by [[$\pi$]].
Thank you for helping me Trenly. As I did before, i did not know about some of the signs I posted what they were called, or what they they meant. Thanks for helping me.
P.S., I signed up to wikidot a month ago, and this website is really cool. If any of you guys need to tell me anything, please tell me. You help me, then I can help you guys.
I like how you used the alt-codes for some of those symbols, but do you know all of them? Here is a list!
Thanks, ill get rid of the extra ClrHome command.
send me a post if u liked my programs or not.
Micah, if your out there, visit this website and create an account!
ALL
Disp "Input inches."
Input ":",E
ClrHome
E
iPart(Ans/12->F
E-12Ans->E
F
iPart(F/5280->M
F-5280Ans->F
Text(15,1,"In.: ",E
Text(8,1,"Ft. ",F
Text(1,1,"Mi.:",M
Pause
ClrHome->is store
sorry i did not put the real store arrow, I did this on my iPad at home ;)
The older version of this:
ALL
PROGRAM:GUESSER //Lines of code: 23
:ClrHome
:randInt(1,1000)→N
:Disp "Guess a number"
:For(I,1,10)
:Input "Guess?",G
:If N=G:Then
:Disp "You've got it!","Guesses:",I
:Pause
:Stop
:Else
:If N>G:Then
:Disp "Higher..."
:Else
:Disp "Lower..."
:End
:End
:End
:Disp "You lose!","The number was:",NThe newer version of this:
ALL
PROGRAM:GUESSER2 //Lines of code: 36
:Clear Entries
:AxesOff
:ClrHome
:ClrDraw
:Text(1,1,"Look closely! A number"
:Text(8,1,"will display at the top left"
:Text(15,1,"of the screen."
:Text(57,1,"PAY ATTENTION
:Pause
:ClrDraw
:randInt(1,1000)→N
:Output(2,1,"Ready?
:Pause
:ClrHome
:Output(1,1,N
:ClrHome
:Text(1,1,"What number just showed?"
:Pause
:ClrDraw
:Disp "Number?"
:Input "> ",G
:If N=G:Then
:Goto RS
:Else
:If N≠G:Then
:End
:End
:Lbl RS
:ClrDraw
:ClrHome
:Text(1,1,"You "+sub("WIN! LOST!",1+5(N≠G),5
:Text(8,1,"The number:"
:Text(15,1,N
:Pause
:ClrDraw
:ClrHomeHappy programming! Tell me how many stars this is.
YOU GUYS ARE SO HELPFUL!!! THANKS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
I know what to do if your calculator crashes…
What to do:
888888 888888 8888 8 8888888
88 88 88 88 88 88 88
88 88 88 88 88 88 88
88 88 88 88 88 88 88
88 88 88 88 88 88 88
888888 888888 88 88 88
PANIC!!!!!!!!!!!!!!!!!!!!!!!!
Suppost to say dont panic… sorry
/forum/t-2159764/this-thread-is-dead:try-again-in-a-new-forum#post-