حرکت دایره

[leila.66]

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


x = ScaleWidth / 2


y = ScaleHeight / 2


For i = 1 To 4500


Circle (x - i, y + i), 200


For t = 0 To 999999


Next t


Form1.Cls


Next i


با این کد به پایین صفحه میره و بعد محو میشه اگر بعد از خط چهارم این کدو بنویسم خطا میده If i = 4500 Then


For j = 4500 To 1


Circle (x + j, y - j), 200


Next j
کسی می تونه راهنماییم کنه؟و اینکه چطوری بصورت رندم برگرده؟ آخه من مبتدیم

[leila.66]

کسی نظری نداره؟؟

[IamOverlord]

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


x = ScaleWidth / 2


y = ScaleHeight / 2


For i = 1 To 4500


Circle (x - i, y + i), 200


For t = 0 To 999999


Next t


Form1.Cls


Next i


با این کد به پایین صفحه میره و بعد محو میشه اگر بعد از خط چهارم این کدو بنویسم خطا میده If i = 4500 Then


For j = 4500 To 1


Circle (x + j, y - j), 200


Next j
کسی می تونه راهنماییم کنه؟و اینکه چطوری بصورت رندم برگرده؟ آخه من مبتدیم

سلام!
شما وقتی For معکوس می نویسی باید جلوش بذاری Step -1 یعنی در هر گام 1 از مقدار j کم بشه.