برخورد یک شئی و بازگشت

سلام
می خواستم ببینم چطوری میشه یک شئی که به بدنه فرم خورد با همان زاویه برگرده ؟؟؟

یه نگاهی به کتابخانه Phyd2d که احتمالا توی گوگل بتونی پیداش کنی بنداز.
من فقط اجراشو دیدم ولی ظاهرا راه حلی برای این مساله برخورد شی به اشیا دیگر داره.

من يه بازي توپ قبلانا ساختم كه برخورد با اطراف فرم بر مي گرده و تصادفيه مسير حركتش
5000 تومان !
البته اصله كد مربوطه به 4 تا دستور رياضي
مثل abs - علامت منفي و ...

سلام دوست گرامی!

یک Command Button و یک Timer در فرم قرار دهید.
مقدار Interval تایمر را به 1 تغییر دهید.

و این کد را در قسمت کد بنویسید:

کد:

---

Dim a As Integer

Private Sub Form_Load()
  a = 1
End Sub

Private Sub Timer1_Timer()
  Command1.Left = Command1.Left + (50 * a)
 
  If Command1.Left + Command1.Width > Me.Width Then a = -1
  If Command1.Left < 0 Then a = 1
End Sub

---

به همین سادگی!! :11: