Bouncing Lines ScreenSaver
This is a really cool ScreenSaver, it looks like a bunch of lines following eachother and bouncing off the sides of your screen. It is a clone of the windows screensaver. You can change the speed and color of the lines. Enjoy
Original Author: Adam Lane
Code
Bouncing
Lines ScreenSaver
by
Adam Lane
1) Create a
borderless
form and a timer
2) Form1 and Timer1
3) Copy this code into your form
Dim x(4), Y(4), xSpeed(4), ySpeed(4), Trails As Integer
Private Sub Form_Load()
Form1.WindowState = vbMaximized
Form1.BackColor = vbBlack
Form1.ForeColor = vbBlack
Form1.FillColor = vbBlack
Timer1.Interval = 1
For i = 0 To 3
x(i) = Form1.ScaleWidth 2
Y(i) = Form1.ScaleHeight 2
Next i
xSpeed(0) = -150: xSpeed(2) = -150
xSpeed(1) = 70: xSpeed(3) = 70
ySpeed(0) = -105: ySpeed(2) = -105
ySpeed(1) = 90: ySpeed(3) = 90
Trails = 50
End Sub
Private Sub Timer1_Timer()
Dim z As Integer
If Trails > 0 Then
Trails = Trails - 1
z = 1
Else
z = 3
End If
For i = 0 To z
x(i) = x(i) + xSpeed(i)
Y(i) = Y(i) + ySpeed(i)
If x(i) < 0 Or x(i) > Form1.ScaleWidth Then xSpeed(i) =
-xSpeed(i)
If Y(i) < 0 Or Y(i) > Form1.ScaleHeight Then ySpeed(i) =
-ySpeed(i)
Next i
Line (x(0), Y(0))-(x(1), Y(1)), vbBlue
Line (x(2), Y(2))-(x(3), Y(3)), vbBlack
DoEvents
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.