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

[aaaammmm87]

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

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

[فاطـمه]

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

[aaaammmm87]

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

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

[فاطـمه]

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

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

[aaaammmm87]

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

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

[فاطـمه]

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

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

[فاطـمه]

ببین من از 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 نوشته میشه

[aaaammmm87]

ببین من از 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 نوشته میشه

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

[فاطـمه]

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

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

[aaaammmm87]

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

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