Avaxnet

نسخه کامل: تابع
شما در حال مشاهده نسخه تکمیل نشده می باشید. مشاهده نسخه کامل با قالب بندی مناسب.

سلام

من دنبال تابعی برای چرخش هستم (مثلا یک توپ که از یک طرف صفحه به یک طرف دیگر به حالت سهمی وار برود)

سلام

نظر من اینه:
x رو داخل مختصات توپ با روال عادی حرکت بده (x:=x+1 ) و y رو ضریبی از سینوس x قرار بده. اگر میخوای بصورت دایره حرکت کنه باید تو برگشتش از کسینوس x استفاده کنی و البته بصورت معکوس.

موفق باشید

یک نمونه از برنامه :

تو ویژوال بیسیک که میدونم باید از تایمر استفاده کنید وقتی که به تایمرتون Interval دادین

البته باید 2 تا تایمر داشته باشین برای حرکت که رفت و برگشت داشته باشین

البته یادتون نره که برای این که بر خورد و یازگشت وجود داشته باشه باید If  هم داشته باشید مثلا من اینو العان نوشتم مشکلی داشت یا مشکلی داشتین بگین

Private Sub Timer1_Timer()
If Label1.Left >= 0 Then
Label1.Left = Label1.Left + 10
If Label1.Left = Form1.Height Then

Timer1.Enabled = False

Timer2.Enabled = True
End If
End If


End Sub


Private Sub Timer2_Timer()
If Label1.Left > 0 Then
Label1.Left = Label1.Left - 10

If Label1.Left = 0 Then


Timer2.Enabled = False

Timer1.Enabled = True
End If
End If
End Sub

لینک مرجع