Simple Custom Error program

Forum Attachments

Summary:

Simulates the error screen and lets you make a custom error

Simple Custom Error program

L1k3awh15p3r 19 Dec 2013 19:59

This is a very simple program I devised in a few minutes during math class (For your curiosity I'm in Algebra II… I already had mastered the material for the day so I took a self-assigned break). I didn't have much time to test it so here's the code. If you find some bug please let me know with a comment or PM.

:PROGRAM:CUSERROR
:ClrDraw
:AxesOff
:CoordOff
:0→Xmin
:0→Ymin
:94→Xmax
:62→Ymax
:ClrHome
:Input "Error:",Str1
:Text(-1,0,0,"Error:
:Text(-1,0,24,Str1
:Text(-1,8,0,"1:Quit
:Text(-1,16,0,"2:Goto
:For(X,0,10
:For(Y,47,54
:Pt-Change(X,Y
:End
:End
:While 1
:Line(94,62,94,53,0
:End

Explanation

:PROGRAM:CUSERROR
:ClrDraw                         //Clears the screen
:AxesOff                        //Stops the program from displaying the graph axes
:CoordOff                       //Stops the program from displaying the coordinates
:0→Xmin                        //X-axis minimum boundary of dimensions
:0→Ymin                        //Y-axis minimum boundary of dimensions
:94→Xmax                     //X-axis maximum boundary of dimensions
:62→Ymax                     //Y-axis maximum boundary of dimensions
:ClrHome                       //Clears the home screen
:Input "Error:",Str1          //Asks for what you want to display as the error, stores the text as String 1
:Text(-1,0,0,"Err:           //Displays the error menu-like text at the top
:Text(-1,0,24,Str1          //Displays your custom error text
:Text(-1,8,0,"1:Quit        //Makes a fake simulation of the menu
:Text(-1,16,0,"2:Goto     //Makes a fake simulation of the menu
:For(X,0,10                   //For loop for the x-coordinates. We want to invert the pixels of a certain area to simulate a cursor
:For(Y,47,54                 //For loop for the y-coordinates.
:Pt-Change(X,Y             //Using the values of X and Y, we change the pixels in the designated area.
:End                            //Ends the first For loop
:End                            //Ends the second For loop
:While 1                       //Starts an infinite loop
:Line(94,62,94,53,0        //Puts an invisible line at the top right edge to get rid of the run indicator
:End                            //Lets the While loop run infinitely

That's my program. I used an infinite loop so it seems like your calculator is frozen.

Have fun.

-Likeawhisper

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Simple Custom Error program

Xeda Elnara 23 Jan 2014 16:57

Haha, that's nice. This doesn't quite do the trick, but it is similar:

ClrHome
Input "Error:",Str1
ClrHome
Lbl 0
Menu("ERR:"+Str1,"1:Quit",0,"2:Goto",0

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Custom Clear program

L1k3awh15p3r 19 Dec 2013 20:10

I almost forgot to share this program.

If you are doodling with the Pen on your calculator and suddenly make a mistake, and you don't want to start all over I made a quick program to solve that issue.

All you need to do is turn on your Coordinates on the graph screen and find the coordinates of two opposite corners: The top left corner of the area you want to delete and the bottom right corner. For example, let's say I shaded the area from coordinates 0,0 to 10,15. I would just type those two coordinates into the program. It also stops and asks for confirmation in case you made a typo for usefulness.

Here's the code:

PROGRAM:CUSTMCLR
:ClrHome

//I don't care if you type in the code from here to the next comment, but if you want my credit 
//screen then do as you wish. This will be an open code program so do as you wish.

:Output(1,1,"CUSTOM DRAWING  CLEAR PROGRAM               //Two spaces between "drawing" and "clear"
:Output(7,1,"L1K3AWH15P3R
:Output(8,10,"V.1.2.1
:Pause

//End of credit coding. If you don't want my credits here then I don't care.

:Lbl Y
:ClrHome
:Input "X1: ",A
:Input "Y1: ",B
:Input "X2: ",C
:Input "Y2: ",D
:ClrHome 
:Disp "IS THIS CORRECT?
:Output(2,1,"(  ,  )(  ,  )
:Output(2,2,A
:Output(2,5,B
:Output(2,9,C
:Output(2,12,D
:Pause
:Menu("CORRECT?","Yes",X,"No",Y
:Lbl X
:For(E,A,C
:Line(E,B,E,D,0
:End
:ClrHome
:Disp "The section has","been cleared.
:Pause
:ClrHome

So it's almost in a wizard format. Unfortunately, I don't have an undo function but I might be able to; it would just take a lot of pxl-Test statements, For loops and maybe a list.

Anyways, thanks for checking this out. I didn't test this one at all on a calculator (just wrote code down on some scrap paper) because I forgot it in class a few days ago and found it with its RAM cleared. I use Groups to save my work and this was the only program that I hadn't grouped. No biggie, all of my fun games were saved.

So thanks for checking this out!

-Likeawhisper

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Custom Clear program

Negative_Commando 23 Jan 2014 06:04

I made something in November that does this same thing, but you click the points and it has an invert function, an erase function and a fill function.

Re: Custom Clear program

L1k3awh15p3r 23 Jan 2014 22:15

Heck, share it! That would be a lot more convenient than my very long, manual program

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Custom Clear program

Negative_Commando 24 Jan 2014 04:08

I just tried to transfer it so I could post it here with Sourcecoder, but the power shut off and the RAM cleared. I have a piece of it, and I remember most of it. I'll redo it tomorrow after math finals.
On my code, instead of lines I used PtOn, PtOff, and PtChange. The code for adjusting resolution looks like this:

:((abs(Xmin)+abs(Xmax))/94)→ ∟ ERSE(1) \\This is the distance between pixels
:((abs(Ymin)+abs(Ymax))/62)→ ∟ ERSE(2) \\This is the Y distance between pixels

Re: Custom Clear program

spencerc425 23 Jan 2014 23:34

You wouldn't have to do a bunch of pixel test commands, u could just save the picture on the screen to a pic value, and then clrdraw and restore it if a person presses blank keycode.

Re: Custom Clear program

Toothless the Dragon 24 Jan 2014 04:59

I actually really like this strategy Spencer. Saving pictures is relatively fast, and quite simple to implement. Just save after every Pen, and you got a real quick undo button. If you're really ambitious (and don't mind losing out on a few Pic variables xD), you can use…

EDIT: Fixed. Forgot that IS>( incremented a var by 1, but now it should work. :P

Beginning of Program:
0→A
[DRAW FUNCTION (probably involving Input)]
...
IS>(A,10)
StorePic 1
IS>(A,20)
StorePic 2
IS>(A,30)
StorePic 3
...
IS>(A,100)
StorePic 0

… to save history up to 10 times. Then, DS>( would recall that history. Or, the simplest strategy of all, that I used in my draw program, Pt-Change. Put in a wrong pixel? Just click it again, and boom, it's gone. Same for Line(. Is pxl-Test 1? Add that -1 argument to Line using boolean.

Also, awesome prank Whisper with that fake error. xD Only problem is, too many people resort to spamming 'dat ON button when stuff like that happens, so they don't usually last long (unless the guy's a complete idiot). XD

Last edited on 24 Jan 2014 21:36 by Toothless the Dragon Show more

Re: Custom Clear program

spencerc425 24 Jan 2014 23:17

Yea, I actually had started a paint sort of program with a GUI like the ti 89 with the function, on my ti 83+. I was thinking that after every iteration of the loop where it checked for each of the keys and did the corresponding function, then stored the current screen. Then if the key code for undo was pressed, it restored the previous picture, so that way it was like only an extra 2-3 lines of code for a simple undo feature, and you were only using one pic variable.

I am going to try to make some type of paint program for my ti 84 CSE, but it would most likely be pretty slow. I want to implement a zoom in feature, some bucket features, and a GUI just like the paint program itself.

~Spencerc425

Negative_Commando (guest) 24 Jan 2014 22:42

Here's my code, I'm at school right now during break. I copied it off of my calculator after my math final by typing it. I can't login at the moment because of the web filters.

4→dim(∟1):4→dim(∟2):6→dim(∟ERSE)
θ → ∟ERSE(5) \\Slot 5 of list ERSE controls the mode
\\1 is erase, 2 is fill, 3 is invert.
(abs(Xmin)+abs(Xmax))/94 → ∟ERSE(1) \\This code will determine the coordinate distance between each pixel on the X-axis.
(abs(Ymin)+abs(Ymax))/62 → ∟ERSE(2) \\This code will determine the coordinate distance between each pixel on the Y-axis.
While 1 \\This line is optional, depending on if you want to do multiple things without restarting the application.
Input \\Select the first corner
X→∟1(1):Y→∟2(1) \\Store the first set of selected points to the lists
Pt-Change(∟1(1),∟2(1) \\This is just to show the user where it has marked, and is not necessary
Input \\Select the second corner
X→∟1(2):Y→∟2(2) \\Store the second set of selected points to hte lists
Pt-Change(∟1(1),∟2(1)) \\ Just undoing the marker
If ∟1(1)<∟1(2):∟ERSE(1)→∟ERSE(3) \\This line and the following three IF statements are to prevent it from bugging out on the for loops, depending on where you click first.
If L2(1)<L2(2):∟ERSE(2)→∟ERSE(4)
If L1(1)>L1(2):-∟ERSE(1)→∟ERSE(3)
If L2(1)>L2(2):-∟ERSE(2)→∟ERSE(4)
For(X,L1(1),L1(2),∟ERSE(3)) \\Go through X points that will be affected
For(Y,L2(1),L2(2),∟ERSE(4)) \\Go through Y points that will be affected
If ∟ERSE(5)=1:Pt-Off(X,Y) \\This will erase
If ∟ERSE(5)=2:Pt-On(X,Y) \\Fill
If ∟ERSE(5)=3:Pt-Change(X,Y) \\Invert
End
End
End \\Optional, goes with the WHILE loop