سلام این کدی را که براتون می زارم برید حالشو ببرید
فقط چیزی که هست یک تایمر با سرعت 35 و یک Shape1 به صفحه اضافه کنید و از نتیجه لذت ببرید
shape vb6.gif
Dim T
Private Sub Timer1_Timer()
T = T + 1
x = 500 * Cos(50 * T)
Shape1.Move Shape1.Left + x
End Sub
البته به شکل های دیگه هم میشه اضافه کرد : مثلا گرد بتابه
Dim TPrivate Sub Timer1_Timer()
T = T + 1
x = 500 * Cos(50 * T)
y = 500 * Sin(50 * T)
Shape1.Move Shape1.Left + x
Shape1.Top = Shape1.Top + y
End Sub
اگر بخواهید بدون Shape ایجاد کنید هم خب اینم کدش
Dim TPrivate Sub Timer1_Timer()
Cls
T = T + 1
Circle (5000 + 500 * Cos(50 * T), 3000 + 200 * Sin(50 * T)), 500
End Sub
خیلی میشه باهش ور رفت و کار کرد مثلا به جای cos میشه TAN یا ATN هم اضافه کرد که بیشتر سلیقه ای هست
یا مثلا به صورت حرکت برف وار
Dim T
Private Sub Timer1_Timer()
T = T + 1
x = 100 * Cos(4500 * T)
y = 100 * Atn(1 * T)
Shape1.Move Shape1.Left + x
Shape1.Top = Shape1.Top + y
End Sub