ahmadfononi
معاونت انجمن
یک کنترل تایمر روی فرم قرار داده و interval آن را روی 250 تنظیم کنید سپس قطعه کد زیر را در زیر روال مخصوص تایمر وارد کنید.کد:
Private Sub Timer_Timer()
Dim a, b, d, c As Single
Dim i
Me.Cls
Scale (1, -1)-(-1, 1)
Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
a = Rnd
For i = 1 To 10000 Step 0.1
b = Sin(i * a)
c = b * Cos(i) * 10
d = b * Sin(i) * 10
Me.PSet (c, d)
Next
End Sub
Dim a, b, d, c As Single
Dim i
Me.Cls
Scale (1, -1)-(-1, 1)
Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
a = Rnd
For i = 1 To 10000 Step 0.1
b = Sin(i * a)
c = b * Cos(i) * 10
d = b * Sin(i) * 10
Me.PSet (c, d)
Next
End Sub