بله ، حالا تا کی می خوای؟نقل قول:
من دارم روش کار می کنم ولی به نظر من خودتم تلاش کن
این به نفعته.:27:
Printable View
بله ، حالا تا کی می خوای؟نقل قول:
من دارم روش کار می کنم ولی به نظر من خودتم تلاش کن
این به نفعته.: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)
به نظرم عكس باشه جلوه گرافيكي بهتري داره .:27:نقل قول:
سلام فقط باید همین بازی باشه
یا اگه بازی دیگه ای هم باشه قبوله
من بازی ساده چند تایی نوشتم
بعضیاش قشنگ هم شده
اگه خواستی برات آپلود کنم
حتی به تنیس هم یکیش ربط داره
سلامنقل قول:
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . :21::46:
حوصله ندارم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
سلام
اره همين بازي !!
ولي خوب بازي هايي رو كه نوشتي يا ديگر برنامه هايي رو كه نوشتي اپلود كن بلاخره اگه من استفاده نكنم ديگر دوستان استفاده ميكنن . [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
گفتم اگه نیاز داری و به دردت می خوره برات آپ کنم
ولیکی حسشو داره آپلود کنه تا بقیه نظر بدن [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
خوب اگه حالا بگم به دردم ميخوره اپ ميكني !!! نه جدي ميگم !؟نقل قول:
چندتا شو كه خودت فكر ميكني از همه بهترن رو اپ كن :46:
سلام این از اولش که ی پازله که مزخرفه:27:
این از دومیش که نسبتا قشنگه ولی ربطی به این بازی که تو گفتی نداره:13:ولی قشنگه به نظر خورم:21:
فایل سوم که به بازیی که گفتی هم ربط داره یک بازی پنج مرحله ایه که مرحله اولش یک چیز تو همون مایه هایه:31:
این بازی آخریه با آهنگش حجم نزدیک 10 مگابایت می شد برای همین آهنگ هاش رو آپلود نکردم
خودت یم فایل res بساز و موزیک های دلخواه خودت رو بزار توش:13:
شرمنده این پست رو داشتم می نوشم گذاشم فایل ها آپلود بشن اما الان می بینم پارس اسپیس هیچ کدوم رو آپ نکرده ر چی هم ور می رم خطا می ده فکر کنم قاتی کرده:13:فردا پس فردا توی همین پست می زارم:46:
بازم ببخشید:27: