*********كمك در نوشتن اين بازي********

خيلي خيلي واسم مهمه خودم هر چي فكر كردم نشد چند خط كد هم نوشتم ولي .....

نقل قول:

---

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Command4.Move X
Dim a As Integer
a = Command4.Left
If Command4.Left >= 3000 Then
Command4.Left = a - 800
End If
End Sub
Private Sub Timer1_Timer()
Dim randomtop As Integer
randomtop = Rnd * (50)
Dim randomleft As Integer
randomleft = Rnd(80)
a = Shape1.Top
Shape1.Top = a + randomtop
b = Shape1.Left
Shape1.Left = b + randomleft
End Sub

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خب این بازی قراره دقیقا چه کار کنه، فقط باید تنیس توپ رو بگیره؟!
تایمر قضیش چیه؟!
باید تو یه تایم مشخص بازی کنه؟
یه توضیحی بده لطفاً

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خب این بازی قراره دقیقا چه کار کنه، فقط باید تنیس توپ رو بگیره؟!
تایمر قضیش چیه؟!
باید تو یه تایم مشخص بازی کنه؟
یه توضیحی بده لطفاً

---

تنيس فقط بايد توپ رو بگيره و توپ نبايد از زمين (با line سبز مشخص شده) خارج بشه با برخورد به خطوط زمين يه حركت رندوم انجام بده .
حركت توپ براساس تايمره (البته به نظر خودم)
نه توي يه تايم مشخص نه
اميدوارم منظورمو گرفته باشي

نقل قول:

---

نوشته شده توسط aaaammmm87 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تنيس فقط بايد توپ رو بگيره و توپ نبايد از زمين (با line سبز مشخص شده) خارج بشه با برخورد به خطوط زمين يه حركت رندوم انجام بده .
حركت توپ براساس تايمره (البته به نظر خودم)
نه توي يه تايم مشخص نه
اميدوارم منظورمو گرفته باشي

---

تا یه جایی شو فهمیدم ولی به نظر من حرکت توپ نباید رندوم باشه باید با توجه به این باشه که به کجای توپ ضربه می زنی ، ولی چون اون جوری سخت میشه همون ایده خودت
ولی چرا بر اساس تایمر؟!

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تا یه جایی شو فهمیدم ولی به نظر من حرکت توپ نباید رندوم باشه باید با توجه به این باشه که به کجای توپ ضربه می زنی ، ولی چون اون جوری سخت میشه همون ایده خودت
ولی چرا بر اساس تایمر؟!

---

نميدونم ولي به نظر من ميزان حركت left و top توپ رو بايد براساس ميزان interval تايمر تنظيم كرد وگرنه به هر صورت ديگه فكر نكنم بشه حتما بايد تايمر باشه

نقل قول:

---

نوشته شده توسط aaaammmm87 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نميدونم ولي به نظر من ميزان حركت left و top توپ رو بايد براساس ميزان interval تايمر تنظيم كرد وگرنه به هر صورت ديگه فكر نكنم بشه حتما بايد تايمر باشه

---

برنامه سختی نیست دارم روش کار میکنم
فقط یه چیز دیگه چرا برای تنیس از comand استفاده کردی؟!
توی اجرا زیاد فکر نکنم قشنگ باشه.:46:

ببین من از line استفاده کردم
اینم کد حرکت تنیس:
Select Case KeyCode
Case 39
Line1.X1 = Line1.X1 + 60
Line1.X2 = Line1.X2 + 60
Case 37
Line1.X1 = Line1.X1 - 60
Line1.X2 = Line1.X2 - 60
End Select
توی key down نوشته میشه

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ببین من از line استفاده کردم
اینم کد حرکت تنیس:
Select Case KeyCode
Case 39
Line1.X1 = Line1.X1 + 60
Line1.X2 = Line1.X2 + 60
Case 37
Line1.X1 = Line1.X1 - 60
Line1.X2 = Line1.X2 - 60
End Select
توی key down نوشته میشه

---

فاطمه جان اگه ميشه برنامه رو كامل بنويس واسم يه جا اپلود كن من كه نگرفتم منظورتو خودت كه بهتر ميدوني من الان حالم :2:

نقل قول:

---

نوشته شده توسط aaaammmm87 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

فاطمه جان اگه ميشه برنامه رو كامل بنويس واسم يه جا اپلود كن من كه نگرفتم منظورتو خودت كه بهتر ميدوني من الان حالم :2:

---

:دی خب این رو واسه چی می خوای حالا!
من قبلا یه چیزی شبیه این تو دلفی نوشتم، سخت نیست ولی وقت گیره.:20:

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:دی خب این رو واسه چی می خوای حالا!
من قبلا یه چیزی شبیه این تو دلفی نوشتم، سخت نیست ولی وقت گیره.:20:

---

خودت استاد ها رو بايد بهتر بشناسي اول ترم دانشگاه باز نشده ميخواهد حالگيري كنه !! من نميدونم چرا نميره روي بانك ها كار كنه يا اصلا بره api كار كنه كه گير داده به اين برنامه !!!:41:

نقل قول:

---

نوشته شده توسط aaaammmm87 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خودت استاد ها رو بايد بهتر بشناسي اول ترم دانشگاه باز نشده ميخواهد حالگيري كنه !! من نميدونم چرا نميره روي بانك ها كار كنه يا اصلا بره api كار كنه كه گير داده به اين برنامه !!!:41:

---

بله ، حالا تا کی می خوای؟
من دارم روش کار می کنم ولی به نظر من خودتم تلاش کن
این به نفعته.:27:

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بله ، حالا تا کی می خوای؟
من دارم روش کار می کنم ولی به نظر من خودتم تلاش کن
این به نفعته.:27:

---

هر چه زودتر بهتر!!! خودم كه الان هنگ كردم (نه به خاطر اين برنامه) .اره به نفعم كه هستاگه خودم بنويسم ولي وقتي كه شما نوشتي من هم خودم يه بار كمپايل ميكنم ميگيرم چي نوشتي:31::10::11:

سلام
خودم يه همچين چيزي نوشتم ولي زياد خوب نيست

نقل قول:

---

Dim l, t As Integer

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Move X
Dim a As Integer
a = Picture1.Left
If Picture1.Left >= 3000 Then
Picture1.Left = a - 800
End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 And Picture1.Left < Form1.Width - Picture1.Width Then Picture1.Left = Picture1.Left + 100
If KeyCode = 37 And Picture1.Left > 0 Then Picture1.Left = Picture1.Left - 100
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
Form1.Width = 10000
l = 50
t = 50
End Sub

Private Sub Timer1_Timer()
If Shape1.Left > Form1.Width - 2 * Shape1.Width Then l = -50
If Shape1.Left <= 0 Then l = 50
If Shape1.Top > Picture1.Top - Shape1.Height And (Shape1.Left > Picture1.Left And Shape1.Left < Picture1.Left + Picture1.Width) Then t = -50
If Shape1.Top <= 0 Then t = 50
If Shape1.Top > Picture1.Top Then
a = MsgBox("I am sarry")
End
End If
Shape1.Left = Shape1.Left + l
Shape1.Top = Shape1.Top + t
End Sub

---

بدم نیست، بجای تنیس عکس گذاشتی؟)picture1)

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بدم نیست، بجای تنیس عکس گذاشتی؟)picture1)

---

به نظرم عكس باشه جلوه گرافيكي بهتري داره .:27:

سلام فقط باید همین بازی باشه
یا اگه بازی دیگه ای هم باشه قبوله
من بازی ساده چند تایی نوشتم
بعضیاش قشنگ هم شده
اگه خواستی برات آپلود کنم
حتی به تنیس هم یکیش ربط داره

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام فقط باید همین بازی باشه
یا اگه بازی دیگه ای هم باشه قبوله
من بازی ساده چند تایی نوشتم
بعضیاش قشنگ هم شده
اگه خواستی برات آپلود کنم
حتی به تنیس هم یکیش ربط داره

---

سلام
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . :21::46:

نقل قول:

---

سلام
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

حوصله ندارم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
گفتم اگه نیاز داری و به دردت می خوره برات آپ کنم
ولیکی حسشو داره آپلود کنه تا بقیه نظر بدن [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

حوصله ندارم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
گفتم اگه نیاز داری و به دردت می خوره برات آپ کنم
ولیکی حسشو داره آپلود کنه تا بقیه نظر بدن [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

خوب اگه حالا بگم به دردم ميخوره اپ ميكني !!! نه جدي ميگم !؟
چندتا شو كه خودت فكر ميكني از همه بهترن رو اپ كن :46:

سلام این از اولش که ی پازله که مزخرفه:27:

این از دومیش که نسبتا قشنگه ولی ربطی به این بازی که تو گفتی نداره:13:ولی قشنگه به نظر خورم:21:

فایل سوم که به بازیی که گفتی هم ربط داره یک بازی پنج مرحله ایه که مرحله اولش یک چیز تو همون مایه هایه:31:

این بازی آخریه با آهنگش حجم نزدیک 10 مگابایت می شد برای همین آهنگ هاش رو آپلود نکردم
خودت یم فایل res بساز و موزیک های دلخواه خودت رو بزار توش:13:

شرمنده این پست رو داشتم می نوشم گذاشم فایل ها آپلود بشن اما الان می بینم پارس اسپیس هیچ کدوم رو آپ نکرده ر چی هم ور می رم خطا می ده فکر کنم قاتی کرده:13:فردا پس فردا توی همین پست می زارم:46:
بازم ببخشید:27: