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

[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 استفاده کردی؟!
توی اجرا زیاد فکر نکنم قشنگ باشه.: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 نوشته میشه

[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 نوشته میشه

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

[فاطـمه]

فاطمه جان اگه ميشه برنامه رو كامل بنويس واسم يه جا اپلود كن من كه نگرفتم منظورتو خودت كه بهتر ميدوني من الان حالم :2:
:دی خب این رو واسه چی می خوای حالا!
من قبلا یه چیزی شبیه این تو دلفی نوشتم، سخت نیست ولی وقت گیره.:20:

[aaaammmm87]

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

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

[فاطـمه]

خودت استاد ها رو بايد بهتر بشناسي اول ترم دانشگاه باز نشده ميخواهد حالگيري كنه !! من نميدونم چرا نميره روي بانك ها كار كنه يا اصلا بره api كار كنه كه گير داده به اين برنامه !!!:41:
بله ، حالا تا کی می خوای؟
من دارم روش کار می کنم ولی به نظر من خودتم تلاش کن
این به نفعته.:27:

[aaaammmm87]

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

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

[aaaammmm87]

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

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)

[aaaammmm87]

بدم نیست، بجای تنیس عکس گذاشتی؟)picture1)
به نظرم عكس باشه جلوه گرافيكي بهتري داره .:27:

[بهرام_62]

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

[aaaammmm87]

سلام فقط باید همین بازی باشه
یا اگه بازی دیگه ای هم باشه قبوله
من بازی ساده چند تایی نوشتم
بعضیاش قشنگ هم شده
اگه خواستی برات آپلود کنم
حتی به تنیس هم یکیش ربط داره
سلام
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . :21::46:

[بهرام_62]

سلام
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](27).gif[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](45).gif
حوصله ندارم[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
گفتم اگه نیاز داری و به دردت می خوره برات آپ کنم
ولیکی حسشو داره آپلود کنه تا بقیه نظر بدن[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[aaaammmm87]

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

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

[بهرام_62]

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

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

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

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

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