this is a totally differn't type of screensaver than what i've found here, this is actually pretty funny to just sit back and watch =-)
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: a ***VERY DIFFERENT*** Screen Saver
' Description:this is a totally differn't type of screensaver than what i've found here, this is actually pretty funny to just sit back and watch =-)
' By: Im_[B]0ReD
'
' Assumes:add a timer (Timer1) with an interval of 175
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=5412&lngWId=1'for details.'**************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
Form1.BorderStyle = 0
Timer1.Interval = 175
End Sub
Private Sub Timer1_Timer()
ht = RandomNum(Min, Max)
wh = RandomNum(Min, Max)
Form1.Move wh, ht
Form1.Height = ht
Form1.Width = wh
Form1.Height = wh
Form1.Width = ht
End Sub
Public Function RandomNum(Min, Max) As Long
RandomNum = Int((Max - Min + 9500) * Rnd + Min)
End Function
That's pretty funny does kinda make you dizzy after a while though heh.There was this other guy that said he maid one just like this,it's amazing what people will do just to get told they did a good job,if ya ask me copyin is the worst way to get credit for something! -Disgruntled (If this comment was disrespectful, please report it.)
I noticed that there was a pattern to this program's movement.. if you add Randomize Timer in the first line of RandNum you'll be better off.. maybe add a color change background eh? dunno. (If this comment was disrespectful, please report it.)
This code doesn't work, i am a beginning programmer...if you could let me know how to get this thing running..please email me (If this comment was disrespectful, please report it.)
For those of you who are having trouble, Just past the code and add a timer control on your form. Then start the app. It's really cool. (If this comment was disrespectful, please report it.)
Uhhhmm, Yeah, I was going to say don't forget to set the timer interval but looks like thats taken care of. OK I suck. (If this comment was disrespectful, please report it.)
Reminds me of a prog i did when i got bored in class... I can't remember what we were workin on but i got sidetracked and made it real flashy....
i made like 15 timers and gave them all radical and supremely randomised code, and set their intervals somewhere in the neighborhood of 15-54. All of them made the screen change colors, from white to cyan, and even the brightest yellows and greens i could find!
as soon as I started it the whole room lit up with almost hypnotic flashes.... it's was fun to watch!
(if any of ya try to make that one, it'd be a good idea if you made sure your video card AND monitor can handle it, else it doesn't look right) (If this comment was disrespectful, please report it.)
couple of suggestions for the program, Add "Form1.BorderStyle = 0" to the Form_Load(), and at the beginning add "Dim ht, wh As Integer" Also you could add a second form that has a different color and is on a different RandomNum...
(If this comment was disrespectful, please report it.)
Hmmm... Maybe if there was a secondary form to hide the rest of the screen, like make the background the opposite color of the jumping form. That looks pretty cool. (If this comment was disrespectful, please report it.)
Quick, short, easy code. Works fine. But maybe if you make the form to load Maximized and a Label is what bounces around... sometimes it can be hard to click the darn form :P (If this comment was disrespectful, please report it.)
in the Form1_Load section and added a common dialog box control you could have the user select the color of the form! (If this comment was disrespectful, please report it.)
Dude, you forgot to mention that you need a timer and you didn't declare your variables! That is so bad! Nice program though, but a bit annoying to actually use as a screen saver. (If this comment was disrespectful, please report it.)
'Dude, you forgot to mention that you need a timer'. HyperHacker, what else would ' Assumes:add a timer (Timer1) with an interval of 175' mean????? (If this comment was disrespectful, please report it.)
2/17/2005 6:57:05 PM:
Umm, what can i say? Pretty pointless i guess... Just forms appearing and disappearing all over the screen Having that as a screensaver would just be stoopid. Nice short code though, demonstrates randomization well. (If this comment was disrespectful, please report it.)
My name is Victoria and I work for a software company,This is a nice Job you have done,I have voted for you and i am giving you 5 globes for this great work.\i will want you to keep it up.I will like you to send me the compiled version of your software.I will love to have youre work on my PC. My email address is bammington@yahoo.com Once again,keep it up.What can i say.5 globes (If this comment was disrespectful, please report it.)
Dude, that kinda wigged my eyes out, but it was really cool. Shows randomization pretty well. Maybe try changing colors(yeah, yeah, everybody else said that too. I know.) (If this comment was disrespectful, please report it.)
My Head Spinning after watch that for 2 hour... (If this comment was disrespectful, please report it.)
7/16/2009 8:22:15 AM:
wow! thats awsome, really entered ma nerves. (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 21 Users
1/10/2000 1:31:20 PM: 
