by S.K.Dogra (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 12th June 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a programme that I call "Satrangi" as it throws the seven colours at you.
VBcoders
Dim Cntr As Integer
Function Flower()
For Cntr = 1 To 1000 Step 1
x2 = x1 + Rnd * 10000
y2 = y1 + Rnd * 10000
Line (x1, y1)-(x2, y2)
Next Cntr
For Cntr = 1 To 1000 Step 1
x2 = x1 - Rnd * 10000
y2 = y1 - Rnd * 10000
Line (x1, y1)-(x2, y2)
Next Cntr
For Cntr = 1 To 1000 Step 1
x2 = x1 - Rnd * 10000
y2 = y1 + Rnd * 10000
Line (x1, y1)-(x2, y2)
Next Cntr
For Cntr = 1 To 1000 Step 1
x2 = x1 + Rnd * 10000
y2 = y1 - Rnd * 10000
Line (x1, y1)-(x2, y2)
Next Cntr
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Function
Private Sub Timer1_Timer()
: Flower
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
x1 = 6000
y1 = 4000
PSet (x1, y1)
End Sub
No comments have been posted about This is a programme that I call Satrangi as it throws the seven colours at you.. Why not be the first to post a comment about This is a programme that I call Satrangi as it throws the seven colours at you..