سلام.
من کد برنامه ای رو میخوام که تو Form load درست میشه : یه توپ (Shape) باشه که حرکت کنه و با خوردن به دیواره ها در جهت مخالف اون زاویه حرکت کنه .
خیلی لازم دارم ممنون.:11::40::11::40::11::40::11:
Printable View
سلام.
من کد برنامه ای رو میخوام که تو Form load درست میشه : یه توپ (Shape) باشه که حرکت کنه و با خوردن به دیواره ها در جهت مخالف اون زاویه حرکت کنه .
خیلی لازم دارم ممنون.:11::40::11::40::11::40::11:
برای حرکت میتونی از تابع رندوم استفاده کنی و اونو داخل یک تایمر بذارینقل قول:
برای برگشت هم میتونی از شرط استفاده کنی که وقتی به اون left یا Top رسید مختصات توپ اضافه یا کم بشه
سلام.نقل قول:
من با تایمر آشنا نیستم میشه کمی از کدهاشو بدید؟
راستی دوستان دیگه ای اگه تونستند یه کم کمک کنن ممنون
کسی چرا کمک نمیکنه ؟؟؟؟؟؟؟؟؟؟؟
کدش خیلی سادست
شما باید یه تصویر توپ رو صفحه بذاری
بعد به وسیله تایمر هر چند ثانیه مقدار left و top تصویر رو که همون توپ هست تغییر بدی
و یه شرط هم باید واسه این حرکتا بذاری
اونم این که اگر موقعیت عکس با left و top صفحه یکی شد حرکت معکوس بشه.
یه تایمر رو فرمت بذارنقل قول:
تایمر یه خواص داره به اسمه interval تعداد دفعات اجرا مثلا اگه بدی 1000 هر 1 ثانیه کدهای داخلشو اجرا میکنه
Private Sub Timer1_Timer()
کدها اینجا نوشته میشن
vv
End Sub
میتونی بنویسی
shape1.left=shape1.left +120
که این هر دفعه 120 تا به left ابجکتت اضافه میکنه
این جوری که فقط شی به سمت راست میره:31:
میدونم به سمت راست میرهنقل قول:
یه مثال زدم که بدونه چه جوریه
چون دوستمون باید از تابع Random استفاده کنه تا حرکتش تصادفی باشه:46:
کی میتونه چندتا کد از این مسئله رو بنویسه اگه بنویسه ممنون میشم .
چرا کمک نمیکنید ؟؟؟
دوست من صورت سوال رو که کامل بگو حداقل
شما این تاپیک یه سری بزن به نظرم
کد:http://forum.p30world.com/showthread.php?t=219673
من تونستم این برنامه ی توپ رو با این کد زیر بنویسم خیلی آسون بود تایمر یکم کدهاش بیشتر بود
از طرف چپ به راست:
کد :
For i = 1 To 700
Shape1.Left = Shape1.Left + 10
Next
از طرف راست به چپ :
کد:
For i = 1 To 700
Shape1.Left = Shape1.Left - 10
Next