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

[www.pc3enter.tk]

سلام این کدی را که براتون می زارم برید حالشو ببرید
فقط چیزی که هست یک تایمر با سرعت 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