|
|
|
|
| |
Karyağışı efekti
Dim X(100), Y(100), pace(100), size(100) As Integer
Private Sub Form_Activate()
Randomize
For I = 1 To 100
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(I) = X1
Y(I) = Y1
pace(I) = pace1
size(I) = size1
Next
End Sub
Private Sub Form_Load()
Form1.ForeColor = &HFFFF80
Form1.FillColor = &HFFFF&
Form1.BackColor = 0&
End Sub
Private Sub Timer1_Timer()
For I = 1 To 100
Circle (X(I), Y(I)), size(I), BackColor
Y(I) = Y(I) + pace(I)
If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd)
Circle (X(I), Y(I)), size(I)
Next
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24620 ziyaretçi (38761 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
