بازی کشتی جنگی BattleShip در اکسل جنگ ناوگان + کدها و سورس برنامه vba

بازی کشتی جنگی BattleShip در اکسل و بطور کلی بازی کشتی جنگی (BattleShip) یک بازی دو نفره در جهان بسیار محبوب است که به وسیلهٔ قلم و کاغذ یا با استفاده از صفحه و مهره نیز بازی می شود و این بازی حول دو محور حدس و استراتژی می چرخد.

در این بازی هر بازیکن در صفحه دارای دو جدول ۱۰x۱۰ است که ردیف های افقی و عمودی با استفاده از حروف انگلیسی و اعداد نام گذاری شده است (مشابه بازی شطرنج) که یکی از جدول ها منطقهٔ خودی و دیگری منطقه دشمن است.

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

سپس با شروع بازی هر بازیکن به طور نوبتی با گفتن مختصات به منطقهٔ بازیکن مقابل شلیک می کند و بازیکن مقابل اصابت شلیک یا عدم اصابت و غرق شدن یا غرق نشدن کشتی را اعلام می کند. برای هر بار اصابت یک نوبت شلیک دیگر جایزه داده می شود.

بازی کشتی جنگی BattleShip در اکسل8

فردی که زودتر تمام کشتی های حریف را غرق کند برنده است.

در بازی نسخه کاغذی شلیک اصابت شده را با ضربدر و عدم اصابت را با نقطه در خانهٔ مورد نظر نشان می دهند. هر بازیکن موظف است شلیک های خود را در منطقه دشمن و شلیک های حریف را در منطقه خودی علامت گذاری کند.

کشتی جنگی

یک پیاده سازی معماری کاملا OOP، Model-View-Controller (MVC) از بازی رومیزی کلاسیک Battleship که در اکسل میزبانی می شود و در VBA نوشته شده است تا قابلیت های کمتر شناخته شده OOP زبان را نشان دهد.

بازی کشتی جنگی BattleShip در اکسل1

این برنامه برای چیه؟

چیزی برای بازی و تفریح با آن، چیزی برای یادگیری با، چیزی برای تقویت و گسترش برای سرگرمی، زیرا ما می توانیم، زیرا VBA کاملا قادر به انجام این کار است.

برای برنامه نویسان VBA، پروژه ای است تا ببیند چگونه می توان از VBA برای نوشتن کد شی گرا استفاده کرد و چگونه می توان از معماری MVC برای پیاده سازی برنامه های پیچیده اما بسیار سازمان یافته و قابل توسعه استفاده کرد.

بازی کشتی جنگی BattleShip در اکسل2

چگونه بازی کنم؟

شما به نصب دسکتاپ مایکروسافت اکسل با ماکروهای فعال نیاز دارید. اگر ماکروها غیرفعال باشند، صفحه عنوان باید به این شکل باشد:

در غیر این صورت، اولین قدم انتخاب یک رابط کاربری است در این مرحله فقط یک رابط کاربری “Worksheet” وجود دارد، بنابراین روی آن کلیک می کنید و به صفحه “Game” هدایت می شوید، جایی که شبکه ای را که می خواهید در آن بازی کنید انتخاب می کنید، زیرا می دانید که بازیکن 1 همیشه ابتدا شلیک می کند:

بازی کشتی جنگی BattleShip در اکسل3

استراتژی های هوش مصنوعی

فقط پیاده سازی استراتژی های مختلف برای برنده شدن در یک بازی Battleship. فعلا:

• تصادفی؛ به طور تصادفی در هر کجا که می تواند شلیک می کند، تا زمانی که تمام کشتی های دشمن پیدا شوند. سپس، گرما روشن است. کشتی ها ممکن است مجاور باشند.
• بازی جوانمرانه؛ به طور تصادفی در هر کجا که بتواند شلیک می کند، تا زمانی که یک کشتی دشمن پیدا شود. سپس به نابودی آن کشتی ادامه می دهد، سپس به طور تصادفی تیراندازی می کند تا زمانی که کشتی دیگری را برای نابودی پیدا کند، تا زمانی که بازی را برنده شود. کشتی ها مجاور نخواهند بود.
• بی رحم؛ در الگوهای تصادفی شلیک می کند و مرکز و/یا لبه های شبکه را هدف قرار می دهد، تا زمانی که کشتی ای را برای غرق شدن پیدا کند. سپس شروع به نابودی آن می کند، سپس شکار را از سر می گیرد. به موقعیتی شلیک نمی کند که کوچکترین کشتی ممکن که هنوز به دنبال آن است، به صورت افقی یا عمودی در آن موقعیت قرار نگیرد. تمایل دارد از تیراندازی در موقعیت های مجاور بازدیدهای شناخته شده قبلی اجتناب کند، اگر کشتی را شکار نمی کند. کشتیهای آن در مجاورت نخواهند بود.

بازی کشتی جنگی BattleShip در اکسل4

فاز اول: موقعیت یابی کشتی

برای پخش رابط کاربری کاربرگ (سایر پیاده سازی ها ممکن است متفاوت عمل کنند)، می توانید دستورالعمل های درون بازی را دنبال کنید:

برای قرار دادن کشتی، مکان بالاترین و سمت چپ ترین موقعیت آن را انتخاب کنید. برای پیش نمایش روی هر نقطه از شبکه کلیک کنید. اگر پیش نمایش جایی نیست که فکر می کردید باشد، سعی کنید کشتی را با کلیک راست بچرخانید. برای تأیید موقعیت زمانی که برای قرار دادن کشتی بعدی آماده شدید، دوبار کلیک کنید کشتی هایی که قرار داده اید در کادر “وضعیت ناوگان” ظاهر می شوند:

بازی کشتی جنگی BattleShip در اکسل5

هنگامی که تمام کشتی های خود را قرار دادید، … حریف هوش مصنوعی شما قبلا همین کار را انجام داده است و بازی برای شروع بازیکن 1 آماده است:

فاز دوم: جستجو و نابودی

هدف این است که تمام کشتی های دشمن را قبل از اینکه همه کشتی های شما را پیدا کرده و غرق کنند، پیدا کرده و غرق کنید.

اگر در حال بازی گرید 2 هستید، انگشتان خود را روی هم قرار می دهید در حالی که هوش مصنوعی موقعیتی را برای شروع بازی انتخاب می کند. اگر کشتی های خود را در شبکه 1 قرار داده اید، روی یک سلول در شبکه 2 دوبار کلیک می کنید و سپس هوش مصنوعی بازی می کند.

بازی کشتی جنگی BattleShip در اکسل6

همانطور که بازی پیشرفت می کند و کشتی های دشمن را غرق می کنید، به طور خاص کشتی هایی که از بین برده اید در کادر “اهداف به دست آورده” در زیر شبکه حریف ظاهر می شوند.

هنگامی که بازیکن هر 5 کشتی دشمن را پیدا و نابود کرد، بازی به پایان می رسد:

بازی کشتی جنگی BattleShip در اکسل7

کشتی ها (و طول مربوطه) عبارتند از:

• ناو هواپیمابر (5)
• کشتی جنگی (4)
• زیردریایی (3)
• رزمناو (3)
• ناوشکن (2)

جالب به نظر می رسد! آیا روی مک اجرا می شود؟

متأسفانه، به دلیل فراخوانی های Win32API که در انیمیشن های شکل و تأخیرهای AIPlayer استفاده می شود، این کار را نخواهد کرد.

برنامه نویسی VBA | شی گرایی در VBA | معماری MVC در اکسل | پروژه متن باز VBA | اکسل پیشرفته | ماکرو نویسی حرفه ای | آموزش VBA پیشرفته | کدهای نمونه اکسل | بازی سازی در اکسل | پروژه آموزشی VBA | هوش مصنوعی در بازی | الگوریتم بازی Battleship | توسعه ماکرو اکسل | دانلود بازی کشتی جنگی اکسل | سورس کد بازی VBA | پیاده سازی MVC در ماکرو | آموزش شی گرایی VBA | پروژه های نمونه اکسل | بازی های ساخته شده با VBA | کدهای آماده ماکرو اکسل | تمرین برنامه نویسی VBA | بهبود مهارت اکسل | پروژه عملی VBA | کد نویسی پیشرفته اکسل | اتوماسیون بازی با VBA