• Home
 · 
• Graphics
 · 
• This is a cool screen saver you can play with the numbers and the colors Have fun!!

This is a cool screen saver you can play with the numbers and the colors Have fun!!

This is a cool screen saver you can play with the numbers and the colors Have fun!!

API Declarations


X As Double
Y As Double
z As Double
End Type
Const maxstar = 2000
Dim star(maxstar) As stars
Dim ostar(maxstar) As stars
Dim nstar(maxstar) As stars
Dim Speed
Dim nMouseCount As Integer




Rate This is a cool screen saver you can play with the numbers and the colors Have fun!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Type stars
X As Double
Y As Double
z As Double
End Type
Const maxstar = 2000
Dim star(maxstar) As stars
Dim ostar(maxstar) As stars
Dim nstar(maxstar) As stars
Dim Speed
Dim nMouseCount As Integer
*********************************************************************


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    nMouseCount = nMouseCount + 1
    If nMouseCount > 5 Then End
End Sub

Private Sub Form_Load()
If App.PrevInstance Then End
Randomize
ScaleMode = 1
BackColor = vbGreen
ScaleWidth = 320
ScaleHeight = 300
Speed = 10
For i = 1 To maxstar
    star(i).X = Rnd * ScaleWidth - 160
    star(i).Y = Rnd * ScaleHeight - 200
    star(i).z = i
Next
Timer1.Interval = 1
DoEvents


End Sub

Private Sub Timer1_Timer()
colour = vbRed
For f = 4 To maxstar
    PSet (ostar(f).X, ostar(f).Y), 0
    PSet (nstar(f).X, nstar(f).Y), colour
Next
'note
For e = 1 To maxstar
    If star(e).z < 33 Then
    star(e).z = maxstar
Else
    star(e).z = star(e).z - Speed
End If
div_x = (256 * star(e).X) / star(e).z
div_y = (256 * star(e).Y) / star(e).z
ostar(e).X = nstar(e).X
ostar(e).Y = nstar(e).Y
nstar(e).X = div_x + 250
nstar(e).Y = div_y + 300
Next
End Sub
Private Sub CheckCommandLine()
Dim sCmdLine As String
sCmdLine = Trim$(LCase$(Command))
'note
If sCmdLine = "/s" Or sCmdLine = " " Then
    Exit Sub
End If
'note
If sCmdLine = "/c" Then
MsgBox "Config Screen Not Available"
End
End If
'note
If Left$(sCmdLine, 50) = "/p" Then



End
End If

End Sub