NASA's Spaceman
پنج شنبه 01 اسفند 1392, 14:12 عصر
این یه تایمر و یه picture box نیاز داره و توی خاصیت های فرم باید این دو خاصیت رو به این دو مقدار تغییر بدین
ScaleHeight=533
ScaleWidth=700
و اینم از کد
Const n = 200
Dim p(1 To n, 1 To 3) As Integer
Dim cnt
Private Sub Form_Load()
cnt = 1
p1.Visible = False
Me.AutoRedraw = True
For i = 1 To n
y = Int(Rnd * (Me.ScaleHeight + 1))
x = Int(Rnd * (Me.ScaleWidth + 1))
s = Int(Rnd * (5 - 1 + 1) + 1)
p(i, 1) = x
p(i, 2) = y
p(i, 3) = s
Me.DrawWidth = s
Me.PSet (x, y), QBColor(15)
Next
End Sub
Private Sub Timer1_Timer()
Me.Picture = p1.Picture
For i = 1 To n
p(i, 2) = p(i, 2) + 10
bad = Int(Rnd * (20 - (-20) + 1) + (-20))
p(i, 1) = p(i, 1) + bad
x = p(i, 1)
y = p(i, 2)
s = p(i, 3)
Me.DrawWidth = s
Me.PSet (x, y), QBColor(15)
If y > Me.ScaleHeight Then
y = 0
x = Int(Rnd * (Me.ScaleWidth + 1))
p(i, 2) = y
p(i, 1) = x
End If
Next i
End Sub
ScaleHeight=533
ScaleWidth=700
و اینم از کد
Const n = 200
Dim p(1 To n, 1 To 3) As Integer
Dim cnt
Private Sub Form_Load()
cnt = 1
p1.Visible = False
Me.AutoRedraw = True
For i = 1 To n
y = Int(Rnd * (Me.ScaleHeight + 1))
x = Int(Rnd * (Me.ScaleWidth + 1))
s = Int(Rnd * (5 - 1 + 1) + 1)
p(i, 1) = x
p(i, 2) = y
p(i, 3) = s
Me.DrawWidth = s
Me.PSet (x, y), QBColor(15)
Next
End Sub
Private Sub Timer1_Timer()
Me.Picture = p1.Picture
For i = 1 To n
p(i, 2) = p(i, 2) + 10
bad = Int(Rnd * (20 - (-20) + 1) + (-20))
p(i, 1) = p(i, 1) + bad
x = p(i, 1)
y = p(i, 2)
s = p(i, 3)
Me.DrawWidth = s
Me.PSet (x, y), QBColor(15)
If y > Me.ScaleHeight Then
y = 0
x = Int(Rnd * (Me.ScaleWidth + 1))
p(i, 2) = y
p(i, 1) = x
End If
Next i
End Sub