دوستان میشود من را راهنمایی کنید ؟ تطفا

[hasan0be]

سلام خدمت دوستان .
ببخشید من شما دوستان را خیلی به زحمت انداخته ام .
دوستان من میخواهم یک برنامه بنویسم که در صفحه اصلی یک shape از سمت راست به سمت چپ برود وسپس بعد از گذشتن یک یک نقطه در یک label بنویسد ok .
این برنامه باید توسط یک rnd به سمت چپ برود .
من این برنامه را ساختم اما وقتی میزنم که به سمت جلو برود چون توسط rnd جلو میرود به عقب هم بر میگرده عقب یعنیLeft آن کم میشود

کد برنامه این هست .
اگر میشود شما بر روی این تغیر دهید تا برنامه درست کار کند .
خیلی ممنون


Private Sub Command1_Click()
Randomize
a = Int(120 + Rnd() * 7200)
Shape1.Left = a
b = Int(120 + Rnd() * 7200)
Shape2.Left = b
End Sub


دانلود برنامه مشکل دار :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[hasan0be]

أوستان لطفا من را راهمایی کنبد

[Mohsen.Sh_PC]

برای چی از Rnd استفاده میکنی؟؟
خوب از یک تایمر استفاده کن و بگو هر بار چقدر از Left شی زیاد بشه مانند این

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sadeghbarout]

کد رو به شکل زیر تغییر بده:


Private Sub Command1_Click()
Randomize
a = Int(Rnd() * 500)
Shape1.Left = Shape1.Left + a
b = Int(Rnd() *500)
Shape2.Left = Shape2.Left + b
End Sub