حرکت دادن روان یک شیء با تایمر

سلام این کدی را که براتون می زارم برید حالشو ببرید
فقط چیزی که هست یک تایمر با سرعت 35 و یک Shape1 به صفحه اضافه کنید و از نتیجه لذت ببرید

ضمیمه 148950

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