نظرسنجی : بازی Gravity Color V1.0

[kaz3m.b]

104434

با سلام



یکی از دوستان خوب و عزیزم آقا فرزاد برای پروژه درس نرم افزار های گرافیکی یک بازی با استفاده از ویژوال بیسیک 6 بدون استفاده از موتور گرافیکی ساختند که یک بازی بسیار جذاب و سرگرم کننده و البته اعتیاد اور است :دی

دوستان نظرات خودشون رو در رابطه با این نسخه از بازی اعلام کنند و هر نظری و پیشنهاد و انتقادی داری بیان کنند .


با تشکر

[setroyd]

این بازی دچار لگ میشه و اینکه ایشون اومده از توابع vb استفاده کرده و بازی به این سبکی و راحتی دچار dlay میشه ! اگه درستش کنه چیز جالبی هست

[SlowCode]

ایدش جالب بود، خوشم اومد.
اگه روش بیشتر کار کنه جالب انگیزناک میشه:لبخند:

فقط وقتی سرعتش زیاد میشه یهویی زیاد میشه بهتره یواش یواش زیاد بشه.

[farzad119]

این بازی دچار لگ میشه و اینکه ایشون اومده از توابع vb استفاده کرده و بازی به این سبکی و راحتی دچار dlay میشه ! اگه درستش کنه چیز جالبی هست
کلا ویژوال بیسیک 2000 اینجوریه که اگه مثلا بخای چد تا imagebox یا چند تا shaope رو با هم جابه جا کنی لگ میزنه و پرش توش ایجاد میشه
با چیزایی که تو هنرستان یادمون دادن اینو ساختم
زیاد حرفه ای نیستم:لبخند:
مگه با توابع غیر vb هم میشه نوشتش؟ :متفکر:




ایدش جالب بود، خوشم اومد.
اگه روش بیشتر کار کنه جالب انگیزناک میشه:لبخند:
فقط وقتی سرعتش زیاد میشه یهویی زیاد میشه بهتره یواش یواش زیاد بشه.


یه محدودیت هایی داره ویژوال بیسیک که اینو یه خورده سخت میکنه
شایدم من الگوریتم خوبی به ذهنم نرسیده
ولی سعی میکنم حتما تو ورژن بعدیش یواش یواش آروم بشه:چشمک:

[program2vb]

کلا ویژوال بیسیک 2000 اینجوریه که اگه مثلا بخای چد تا imagebox یا چند تا shaope رو با هم جابه جا کنی لگ میزنه و پرش توش ایجاد میشه
با چیزایی که تو هنرستان یادمون دادن اینو ساختم
زیاد حرفه ای نیستم:لبخند:
مگه با توابع غیر vb هم میشه نوشتش؟ :متفکر:


سلام خدمت شما دوست عزیز ..... اول تشکر کنم . و خسته نباشی .. جالب بود . خوشم اومد ......

بعدش برنامه نویسی به حرفه ای بودن نیس ... هیچ کس حرفه ای نیس .. برنامه نویس بودن یعنی پیدا کردن راه حل ..

وقتی میبینی لگ میزنه .... یه راهی پیدا کن لگ نزنه .... تو علم برنامه نویسی هیچ چیزی غیر ممکن نیس همه چیز ممکن هست ....

و اما شما ماوس رو داخل فرم تعریف کردی به عبارت دیگه form_mousemove تو این روال نوشتی که که وقتی ماوس بیرون از صفحه میره بازی در حال اجرا هست ولی بازیکن نمیکنه بازی کنه چون قفل میکنه .... منظورمو گرفتی ......
بهتره برای بهتر شدن بازیت بیای از تابع api برای این کار استفاده کنی که توی کل صفحه کار کنه ......



Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private GetMouse As POINTAPI



و همچنین یه کلید تعریف کنی برای توقف بازی .....


تابع api برای کلید ها


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'Key press API


برای استفاده از این تابع باید یه تایمر قرار بدی داخل فرم بعد با استفاده از کد زیر فراخوانی کنی :


If GetAsyncKeyState(vbKeyRight) <> 0 Then
shape1.Left = shape1.Left + 50
End If


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

بازم جالب بود ... موفق و پیروز باشی در پناه خد .....







یه محدودیت هایی داره ویژوال بیسیک که اینو یه خورده سخت میکنه
شایدم من الگوریتم خوبی به ذهنم نرسیده
ولی سعی میکنم حتما تو ورژن بعدیش یواش یواش آروم بشه:چشمک:

محدودیت نداره .. الگوریتم یا همون ایدت خوبه .. باید نقاط ضعف رو برطرف کنی ..

یا علی .

[farzad119]

سلام خدمت شما دوست عزیز ..... اول تشکر کنم . و خسته نباشی .. جالب بود . خوشم اومد ......

بعدش برنامه نویسی به حرفه ای بودن نیس ... هیچ کس حرفه ای نیس .. برنامه نویس بودن یعنی پیدا کردن راه حل ..

وقتی میبینی لگ میزنه .... یه راهی پیدا کن لگ نزنه .... تو علم برنامه نویسی هیچ چیزی غیر ممکن نیس همه چیز ممکن هست ....

و اما شما ماوس رو داخل فرم تعریف کردی به عبارت دیگه form_mousemove تو این روال نوشتی که که وقتی ماوس بیرون از صفحه میره بازی در حال اجرا هست ولی بازیکن نمیکنه بازی کنه چون قفل میکنه .... منظورمو گرفتی ......
بهتره برای بهتر شدن بازیت بیای از تابع api برای این کار استفاده کنی که توی کل صفحه کار کنه ......



Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private GetMouse As POINTAPI



و همچنین یه کلید تعریف کنی برای توقف بازی .....


تابع api برای کلید ها


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'Key press API


برای استفاده از این تابع باید یه تایمر قرار بدی داخل فرم بعد با استفاده از کد زیر فراخوانی کنی :


If GetAsyncKeyState(vbKeyRight) <> 0 Then
shape1.Left = shape1.Left + 50
End If


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

بازم جالب بود ... موفق و پیروز باشی در پناه خد .....







محدودیت نداره .. الگوریتم یا همون ایدت خوبه .. باید نقاط ضعف رو برطرف کنی ..

یا علی .
در ابتدا تشکر میکنم از شما بابات این پست پر محتواتون.
منظورم از حرفه ای بودن این بود که بالاخره شما یه سری کد ها و ترفند ها بلدید که من بلد نیستم، همینا باعث میشه تو برنامه ای که مینویسیم خیلی تاثیر بذاره

این موسه یکی از مشکلام بود که راهی براش پیدا نکردم بیخیالش شدم
تو ورژن بعدی حتما از ین کدی که دادین استفاده میکنم.

برای توقف بازی هم چون یه خورده وقت گیره، گذاشتم برای بعد

توی ساخت بازی به نظرم ویژوال بیسیک محدودیت هایی داره
مثلا یکیش این که فرمت .png رو ساپورت نمیکنه یا همین لگ زدنه و خیلی های دیگه
شاید این ها توی ساخت برنامه مهم نباشن ولی توی ساخت بازی خیلی مهمن

خیلی خیلی ممنون بابت راهنمایی هاتون.

[program2vb]

در ابتدا تشکر میکنم از شما بابات این پست پر محتواتون.
منظورم از حرفه ای بودن این بود که بالاخره شما یه سری کد ها و ترفند ها بلدید که من بلد نیستم، همینا باعث میشه تو برنامه ای که مینویسیم خیلی تاثیر بذاره

این موسه یکی از مشکلام بود که راهی براش پیدا نکردم بیخیالش شدم
تو ورژن بعدی حتما از ین کدی که دادین استفاده میکنم.

برای توقف بازی هم چون یه خورده وقت گیره، گذاشتم برای بعد

توی ساخت بازی به نظرم ویژوال بیسیک محدودیت هایی داره
مثلا یکیش این که فرمت .png رو ساپورت نمیکنه یا همین لگ زدنه و خیلی های دیگه
شاید این ها توی ساخت برنامه مهم نباشن ولی توی ساخت بازی خیلی مهمن

خیلی خیلی ممنون بابت راهنمایی هاتون.

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

برا این که بتونین عکسهایی با فرمت های مختلف باز کنین میتونین از کنترل زیر استفاده کنین ....

موفق و پیروز باشید در پناه خدا یا علی