Author Topic: Boredom = "Stupid" Programs  (Read 2841 times)

0 Members and 1 Guest are viewing this topic.

Offline holmes221b

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 282
  • Rating: +13/-1
  • RESISTANCE IS FUTILE.
    • View Profile
    • My Livejournal
Boredom = "Stupid" Programs
« on: December 10, 2010, 08:50:21 am »
So last night, instead of being a good student and paying attention in my forensics class (the last couple of folks were presenting their projects, so it wasn't like I was actually missing any material), I played around on my calc.
I ended up creating a program that displays "BORED, SO BORED!" over and over until you press CLEAR or ON, as well as making a picture of a tank using the most complex method possible to create straight lines--first I covered the graph screen with horizontal and vertical lines, then I colored in the squares made by the intersections of those lines that I wanted to have colored in using Pt-On, and then I finished up by erasing the extra lines with Pt-Off.
Until I can figure out a program that draws the picture I made for you, you'll just have to imagine what it looks like (I don't have a link cable with which to upload it to a computer--which actually wouldn't matter, now that I think about it, since I'm currently stuck using a computer I can't download anything on due to my computer crashing last Saturday). But I can share the program I made, so here it is, if you want to try it out:
Code: ("prgmFIDGETY") [Select]
:ClrHome
:For(A,1,20)
:Repeat Ans=45
:getKey
:If Ans
:Disp "BORED, SO BORED!"
:End

Anyone else have programs they've made while bored that they're willing to share? I'll share some of the other programs I've made while bored in the past once others have shared some of theirs (and most of them are actually some what useful, especially when compared to FIDGETY).

Spoiler For "Projects":
Spoiler For "Because Everyone Else Is":
*Sigh*
can we keep this on topic? The topic is about what the big thing might be, NOT SEX

Offline jnesselr

  • King Graphmastur
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2270
  • Rating: +81/-20
  • TAO == epic
    • View Profile
Re: Boredom = "Stupid" Programs
« Reply #1 on: December 10, 2010, 09:13:47 am »
Code: ("prgmFIDGETY") [Select]
:ClrHome
:For(A,1,20)
:Repeat Ans=45
:getKey
:If Ans
:Disp "BORED, SO BORED!"
:End
For the record, said program has some errors.  You need an End to balance the For statement and the Repeat Statement, so you need to Ends at the end.  Also, if you added the two ends, then you would have to press clear 20 times for your program to exit.  So, I would remove the For(A,1,20) line.

Also, your code will only display if some key is pressed.  Otherwise it won't.  If that's not what you wanted, then this is better code:
Code: [Select]
:ClrHome
:Repeat getKey=45
:Disp "BORED, SO BORED!"
:End
If it is, then you can use your program, and it would work (providing you fix the For/End bug)

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Boredom = "Stupid" Programs
« Reply #2 on: December 10, 2010, 09:18:42 am »
I haven't made much boredom programs in a long while. Before I started coding I simply remember typing large strings of ASCII art on my calc home screen then pressing enter to scroll down through it.

There are some boredom programs at the following, but be warned that most of them can crash your calculator and clear your RAM! http://ourl.ca/7650

Offline holmes221b

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 282
  • Rating: +13/-1
  • RESISTANCE IS FUTILE.
    • View Profile
    • My Livejournal
Re: Boredom = "Stupid" Programs
« Reply #3 on: December 10, 2010, 09:28:41 am »
For the record, said program has some errors.  You need an End to balance the For statement and the Repeat Statement, so you need to Ends at the end.  Also, if you added the two ends, then you would have to press clear 20 times for your program to exit.  So, I would remove the For(A,1,20) line.
Right now, I'm just happy that when I coded this last night, it worked (i.e., no error messages popped up) on the first try.
* holmes221b adds the second End to code and finds it to make the program much more entertaining.
Ah well, to his/her own, I suppose.

Also, your code will only display if some key is pressed.  Otherwise it won't.
That is kinda the idea. But it is certainly nice to be able to know how to alter the code to get around that.

I haven't made much boredom programs in a long while. Before I started coding I simply remember typing large strings of ASCII art on my calc home screen then pressing enter to scroll down through it.
I've always wanted to learn how to make ASCII art...

There are some boredom programs at the following, but be warned that most of them can crash your calculator and clear your RAM!
Duly noted.

Spoiler For "Projects":
Spoiler For "Because Everyone Else Is":
*Sigh*
can we keep this on topic? The topic is about what the big thing might be, NOT SEX

Offline JosJuice

  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1344
  • Rating: +66/-14
    • View Profile
Re: Boredom = "Stupid" Programs
« Reply #4 on: December 10, 2010, 09:48:14 am »
Code: [Select]
:ClrHome
:While 27
:Input "",Y
:Disp 27
:End
27 is a local meme at my school. If you're wondering why I used While 27, try typing the program into your calc while using a one-letter name, then look at the size ;D

Offline holmes221b

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 282
  • Rating: +13/-1
  • RESISTANCE IS FUTILE.
    • View Profile
    • My Livejournal
Re: Boredom = "Stupid" Programs
« Reply #5 on: December 10, 2010, 09:55:04 am »
27 is a local meme at my school. If you're wondering why I used While 27, try typing the program into your calc while using a one-letter name, then look at the size ;D
* holmes221b looks.
Nice. It's 27. That's actually pretty neat.

Spoiler For "Projects":
Spoiler For "Because Everyone Else Is":
*Sigh*
can we keep this on topic? The topic is about what the big thing might be, NOT SEX