Printable View
سلام خدمت دوستان
يه سوال ديگه
تو اين عكس دوتا shape واسه خودشون حركت مي كنن ، ميخوام وقتي به هم مي رسن از رو همديگه رد نشن بلكه برگشت داده بشن يعني انگاري به مانع خورده و دوباره برگرده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام.
تابع آماده برای این کار وجود نداره که وقتی خوردن به هم برگردن. باید با محاسبات ریاضی خودت کدش رو بنویسی.
سلام دوست عزيز ديگه اينو مي دونيم:31:نقل قول:
يه راهنمايي كوچيك كنيد كه چطور از خواص top و left استفاده كنم تا وقتي به هم مي رسن به هم بخورن و برگشت داده بشن
ممنون
یه الگوریتمی هست به اسم Collision Detection ...!:13:
توی بازی ها برای تشخیص برخورد استفاده میشه...! :27:
یه نگاه به این بنداز...! :
موفق باشی...! :46:کد:http://sheidaian.persianblog.ir/post/35/
با if رو پيكسل ها تعريف كن.
نقل قول:
سلام
ميشه بگي چطوري ميتونم اين كارو بكنم؟؟؟؟؟
چی شد کسی نبووووووووووووووووووووووو ود؟؟؟؟
چرا از همون راهی که گفتم استفاده نمی کنی...؟ :13:نقل قول:
بازی های دو بعدی هم از همون الگوریتم استفاده میکنن...! :27:
دوست عزیزنقل قول:
خیلی سخته از این راه بری
سلام
با استفاده از top , left میتونی مرکز دو تا توپ را بدست بیاری بعد با استفاده از فیثاغورس فاصله دو مرکز دایره ها را از هم بدست بیار اگه این فاصله به اندازه مجموع شعاع دو تا شکل بود یعنی به هم رسیدند جهت حرکت را عوض کن ساده ترین روش اینه که دقیقا dx,dy آنها را قرینه کنی یعنی توپ رو مسیری که اومده برگرده.
یه کار قشنگ دیگه اینه که نیم ساز دو تا خط که دایره ها روش حرکت میکنه را پیدا کنی و نسبت به اون مسیر جدید را تعیین کنی
سلام
ميشه يه نيگا به اين بندازين
کد:http://samba.persiangig.com/shape%5Bbarkhord%5D.exe
سلام
آقا من اينو نوشتم فقط نمي دونم مشكلش چيه
كسي ميتونه عيبش رو بگه
کد:
Private x1 As Long
Private y1 As Long
Private x2 As Long
Private y2 As Long
Private r As Long
Private xadd1 As Long
Private yadd1 As Long
Private xadd2 As Long
Private yadd2 As Long
Public xball1 As Long
Public yball1 As Long
Public xball2 As Long
Public yball2 As Long
Private Sub Form_Load()
xball1 = s1.Left
yball1 = s1.Top
xball2 = s2.Left
yball2 = s2.Top
xadd1 = 60
yadd1 = 60
xadd2 = 60
yadd2 = 60
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
Private Sub Timer1_Timer()
xball1 = xball1 + xadd1
yball1 = yball1 + yadd1
s1.Move xball1, yball1
If Form1.ScaleWidth - (s1.Left + s1.Width) <= 0 Or xball1 <= 0 Then
xadd1 = -xadd1
End If
If Form1.ScaleHeight - (s1.Top + s1.Height) <= 0 Or yball1 <= 0 Then
yadd1 = -yadd1
End If
Call CheckBall
End Sub
Private Sub Timer2_Timer()
xball2 = xball2 + xadd2
yball2 = yball2 + yadd2
s2.Move xball2, yball2
If Form1.ScaleWidth - (s2.Left + s2.Width) <= 0 Or xball2 <= 0 Then
xadd2 = -xadd2
End If
If Form1.ScaleHeight - (s2.Top + s2.Height) <= 0 Or yball2 <= 0 Then
yadd2 = -yadd2
End If
End Sub
Private Sub CheckBall()
x1 = xball1 + (s1.Width) / 2
y1 = yball1 + (s1.Height) / 2
x2 = xball2 + (s2.Width) / 2
y2 = yball2 + (s2.Height) / 2
r = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
If r = (s1.Width + s2.Width) / 2 Then
xadd2 = -xadd2
yadd2 = -yadd2
End If
End Sub