Quick Search for:  in language:    
VERY,screen,saver,simulates,particles,with,gr
   Code/Articles » |  Newest/Best » |  Community » |  Jobs » |  Other » |  Goto » | 
CategoriesSearch Newest CodeCoding ContestCode of the DayAsk A ProJobsUpload
Visual Basic Stats

 Code: 3,014,970. lines
 Jobs: 119. postings

 How to support the site

 
Sponsored by:

 

You are in:

 
Login



Latest Code Ticker for Visual Basic.
Click here to see a screenshot of this code!Excel Into a webpage
By Bill Donahue on 7/2

(Screen Shot)

Unroll2 - Update
By Cyber Chris on 7/2


MultilinePWD
By Cyber Chris on 7/2


Click here to see a screenshot of this code!Song/Poem Assistant
By Peter Rowan on 7/2

(Screen Shot)

Click here to see a screenshot of this code!GPA Cal
By KBM-00 on 7/2

(Screen Shot)

Click here to see a screenshot of this code!Connection Via the Telephone line.No internet or cable.Just the telephone line
By Nass ClickMan on 7/2

(Screen Shot)

DBTool
By Make Strömberg on 7/2


Click here to see a screenshot of this code!MSChart Simple Example
By Sebastian Pereira on 7/2

(Screen Shot)

CString v1.5
By Ultimatum on 7/2


Click here to put this ticker on your site!


Add this ticker to your desktop!


Daily Code Email
To join the 'Code of the Day' Mailing List click here!





Affiliate Sites



 
 
   

(Screen Saver) diffuseGravity

Print
Email
 
winzip icon
Submitted on: 8/7/1999
By: John Stalcup  
Level: Not Given
User Rating: By 24 Users
Compatibility:VB 5.0, VB 6.0

Users have accessed this code 42629 times.
 
 
     This screen saver simulates 4 particles with gravity, and draws color changing lines between them. Gravity, refresh, and number of color bars are fully configurable, and you end up with some VERY neat pictures. I used the screen saver template at vbhelper.com as a starting point.
 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzipto decompress it.

Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:
1)Re-scan downloaded files using your personal virus checker before using it.
2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
3)Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
1) 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.   
2) 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.   
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 5 submission(s) by this author

 

 
Report Bad Submission
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Reason:
 
Your Vote!

What do you think of this code(in the Not Given category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor See Voting Log
 
Other User Comments
8/7/1999 10:25:00 AM:John Stalcup
And 1 more thing to remember. To 
actually use it as a screen saver, you 
must compile the exe, then change .exe 
to .scr in the file name. Then right 
click on the icon and choose the 
"Install" option. Have fun.
John
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/7/1999 11:05:00 PM:Tigger
Very nice... well done!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/9/1999 12:55:00 PM:Jonathan Feucht
I saw your screen saver. Simple, but 
entertaining. I am storing some of the 
source code.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/20/1999 6:23:00 PM:Gaurav
Your screen saver is very interesting. 
Good job.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
9/26/1999 10:02:00 AM:Manpreet Singh
I have not tested the program yet . But 
I nknew that it is not going to 
disappoint me in any have.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/1/1999 5:15:00 PM:jorge miguel
Tanks!!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/15/1999 8:10:00 AM:Travis
COOL!!!!! but there is a slight 
problem, when it exits it doesn't show 
the cursor.......Well, atleast on mine.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/20/1999 6:02:00 PM:Max Adams
Yeah, you need to fix that...you need 
to make the cursor re-appear after you 
right click.  Nice code though...  Was 
is supposed to make sound?
-Max
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
11/1/1999 7:41:00 AM:Rik (again)
oh sorry.  :-)  it works on vb5 but not 
6 (on my pooter).  looks good. :-)  i 
still loose my mouse, but thats easy to 
fix, thanks.  :D
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
11/1/1999 10:26:00 AM:Ryan
This works great, but I can't get it to 
start automatically. Without that 
ability, it doesn't make a good screen 
saver, other than that, I really like 
it.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
11/23/1999 8:04:00 AM:Adam Jacob Muller
No VB6 Why???
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
12/3/1999 2:37:00 PM:Cris Diaz
Very cool... nice code to
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
12/10/1999 8:01:00 AM:Du Eulear
How do you get your mouse back? i am 
using vb6
on nt 4.0 if it matters.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
1/17/2000 2:25:42 PM:Bob A
I'm anxious to see this as I am a new 
VB programmer, but i can't get it to 
work with VB6 and NT4 (SP6).
Thanks
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
1/25/2000 9:16:38 AM:gooberis
to fix the cursor problem edit the 
mousedown event on the frmCover form as 
follows:
Private Sub 
Form_MouseDown(Button As Integer, Shift 
As Integer, X As Single, Y As 
Single)
On Error Resume Next
    If 
Button = 2 Then
        ShowCursor 
True
        End
    End If
randomizeStart
    Do While 
True
        DoEvents
passTime
    Loop
End Sub
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
1/25/2000 9:23:07 AM:gooberis
wow that looked like carp
just change 
the :
if button = 2 then end 
to
if button =2 then
showcursor true
    end
end 
if
sorry about the mess
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
1/25/2000 9:24:27 AM:gooberis
hmm still messy
oh well simple enough 
I guess
beautiful code otherwise
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/14/2000 7:22:13 AM:xmetrix
To the first post,, you can compile 
directly to scr  
 =)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/3/2000 11:45:23 AM:Ho
When I compile it with Vb5 and vb6 and 
run it in either Win95 or Win98, all I 
see is a blank screen.  What did I do 
wrong?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/3/2000 11:47:00 AM:L.HO
When I compile it with vb5 or vb6 and 
run it in Win95 and Win98, all I see is 
a blank screen.  What did I do wrong?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
7/15/2000 10:38:49 PM:Itoro Ukpe
Beautiful codes. I'll like to try 
something with it.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/4/2000 7:57:19 AM:Wolf
Great gave me some useful tips. Thanks 
dude!!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/22/2000 5:41:34 PM:Gary Mather
This screen savers great to look at, 
especially when your stoned!
Keep up 
the coding foolz.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/1/2001 11:58:18 AM:Codin Genius
Hiw come U got 5 1/2 rating, I thought 
I t could only go as hight as 5?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/1/2001 12:05:19 PM:Matrice 2K1
I lose my cursor, the code U gave 
dousnt always work. It isnt just a case 
of true or false for showing the 
cursor. If you set it to true the it 
adds to the cursor visiblity but this 
might not always be enough to make it 
visible. try this...
Private sub 
Form_Unload(Cancel aas integer)
Dim 
retval as long
While retval 
<=0
retval = showcursor 
1
wend
end sub
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
9/11/2001 7:32:40 AM:Karl Houseknecht
The code doesn't seem to work on NT4, 
particularly the Preview mode.  The 
instancing control is incorrect and 
multiple instances of the app get 
spawned.  It's also lacking the 
MouseMove code to deactivate the screen 
saver.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
5/11/2002 2:06:00 PM:CHILDX
i DIDN'T TEST IT YET.THNKS ANYWAY
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
6/2/2002 10:39:50 AM:Adam
Just A Suggestion To Make Your Screen 
Saver A .scr And Respond To Passwords
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
7/25/2002 5:17:42 AM:thedevil666
Excellent
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/2/2002 1:37:34 PM:Mohan
Quite Good...
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/4/2002 7:27:13 PM:JP
To get the cursor back - 
change the 
following line from
If Button = 2 
Then  End
to this
If Button = 
2 Then
        ShowCursor True
 End
End If
Nice job on your code!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
10/28/2002 11:56:13 AM:
Its really good program.
keep the good 
work!!
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
12/11/2002 5:40:31 AM:
Goow work, Keep it up!
What i do to 
get the mouse back is Ctrl + Alt + 
Delete then end the screen saver and my 
mouse comes back. But that's on Windows 
XP.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
1/14/2003 12:32:14 AM:Roger Gilchrist
You can update your code and still keep 
the award. They only vanish if you 
upload a new version. That disappearing 
cursor problem is still in code. 
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
Add Your Feedback!
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you.  If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.
 
Name:
Comment:

 

Categories | Articles and Tutorials | Advanced Search | Recommended Reading | Upload | Newest Code | Code of the Month | Code of the Day | All Time Hall of Fame | Coding Contest | Search for a job | Post a Job | Ask a Pro Discussion Forum | Live Chat | Feedback | Customize | Visual Basic Home | Site Home | Other Sites | About the Site | Feedback | Link to the Site | Awards | Advertising | Privacy

Copyright© 1997 by Exhedra Solutions, Inc. All Rights Reserved.  By using this site you agree to its Terms and Conditions.  Planet Source Code (tm) and the phrase "Dream It. Code It" (tm) are trademarks of Exhedra Solutions, Inc.