• Home
 · 
• Graphics
 · 
• This is an easy form to make and would make a cool screen saver. It draws a circle in lots of color

This is an easy form to make and would make a cool screen saver. It draws a circle in lots of color

This is an easy form to make and would make a cool screen saver. It draws a circle in lots of colors and dots at the same time.......

API Declarations


Public Sub drawcircle()
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99) + 1) * Rnd
Circle (xPos, yPos), radius, RGB(red, blue, green)
End Sub




Rate This is an easy form to make and would make a cool screen saver. It draws a circle in lots of color

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End Sub

Private Sub Timer1_Timer()
'Form1.WindowState = 2
Call drawcircle
End Sub
Public Sub PixelSet() 'call pixelset
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim randomx As Integer
Dim randomy As Integer
Dim x As Integer
Do Until x = 999
x = x + 1
red = 255 * Rnd
blue = 255 * Rnd
green = 255 * Rnd
randomx = Rnd * ScaleWidth
randomy = Rnd * ScaleWidth
PSet (randomx, randomy), RGB(red, green, blue)
Loop
End Sub

Private Sub Timer2_Timer()


Call PixelSet
End Sub