Як робити власні настільні ігри на visual basic

Як робити власні настільні ігри на Visual Basic
Чи не Бейсік, звичайно ...

Всі ми в дитинстві грали в настільні ігри. Тоді це була не тільки монополія, але і нескінченні гри по дитячих книжках. Зараз в Інтернеті є тільки монополія. Я ж навчу вас робити власні настільні ігри на Визуал Бейсике (або при бажанні на інших візуальних системах, алгоритм більш-менш той же).

Інструкція

Рівень складності: Непросто

Що вам знадобиться:

  • Visual Basic 5.0 (у мене він стоїть, так що пишу про нього)
  • дуже велике бажання це зробити
  • терпіння, терпіння і ще раз терпіння

1 крок

Як робити власні настільні ігри на Visual Basic

Відкрийте Visual Basic. Вас запитають, який вид проекту створювати. Виберіть Standard EXE. Ви побачите вікно, як на ілюстрації. Мишкою розтягніть вікно Form 1 до розміру екрана (або більше, якщо ваша гра буде більшого розміру).

2 крок

Як робити власні настільні ігри на Visual Basic



Малюємо ігрове поле. На лівій панелі виберіть значок Label. Клацніть на нього. Намалюйте мишею прямокутник потрібних розмірів (приблизно як в Paint). Далі в правій панелі (де таблиця) виберіть Caption і очистіть це поле. Після цього скопіюйте цей label потрібну кількість разів (скільки клітин буде у вашій грі). Вас запитають, чи хочете ви створити масив labelов. Тисніть "Так". Тепер згрупуйте ці labels в потрібній послідовності (у вигляді ігрового поля-Label1 (0) перед Label1 (1) і так далі).

3 крок

Як робити власні настільні ігри на Visual Basic
Приблизно так.

На крайніх клітинах напишіть Старт і Фініш, на інших умови ("lt; ..> Іди на 3 клітини вперед" і т. Д.). Напис робиться в поле Caption, шрифт регулюється в поле Font.
прірісуйте ще два labels в стороні (на цей раз не label1 (x), a label2 і label3) - кубик для вас і кубик для компа.

4 крок

Як робити власні настільні ігри на Visual Basic
для прикладу.

Додаємо кнопку "Новий хід", "Нова гра" та "Вихід" (command button).

5 крок

Як робити власні настільні ігри на Visual Basic

Тепер програмування. Найпростіше - кнопка "Вихід". Клацніть по ній 2 рази, відкриється вікно з кодом. Там, де стоїть курсор, наберіть: end. (Без крапки)

6 крок

Як робити власні настільні ігри на Visual Basic

Тепер натискаємо по полю, там де немає ніяких кнопок і набираємо "Dim vy, komp, a, b, c, c1, d, d1, e As Integer
vy = 0
komp = 0
c = 0
d = 0 "(головне, не забувайте переходити на інший рядок - інше програма ісправіт- і без лапок, природно). Це ви створили дві змінних, в яких буде фіксуватися становище вашої фішки і фішки супротивника (компа) і дві змінних зі значеннями" кубика ". З u d- допоміжні змінні, які знадобляться далі.

7 крок

Тепер кнопка "Новий хід" (вона найскладніша). Кількома на неї. Набираємо:
randomize
a = Int ((6 * Rnd ()) + 1)
b = Int ((6 * Rnd ()) + 1) Це генератор випадкових чисел. перший рядок потрібна щоб не генерувати кожного разу одне й те саме. Прим. авт.
if d = 0 then
if с = 0 then
vy = vy + a
comp = comp + b
end if
if c = 1 then
vy = vy-a
comp = comp + b
end if
end if
if d = 1 then
vy = vy
comp = comp + b
end if (для з1 і d1 те ж саме, але vy і comp (і а с б) міняються ролями)

Це ми задали положення фішок.

Далі починається те, без чого не обходилась жодна гра - "на три ходи вперед", "повернися на старт", "рухайся у зворотному напрямку".
if vy = (номер клітки, на якій написано "на x ходів вперед") then vy = vy + x
наступний рядок - те ж саме для comp.
if vy = (номер клітки з написом "повернися на старт") then vy = 0
не забудьте продублювати для компа.
if vy = (клітка з написом "рухайся в зворотному напрямку") then c = 1 (з уже прописана на початку цього кроку.) для компа те ж саме, але c1, а не с.
if vy = (клітка "пропусти хід") then d = 1 для компа - d1 і те ж саме.

8 крок

Як робити власні настільні ігри на Visual Basic

тепер (там же)
for e = 0 to (максимальний номер label1 ()) do
if e = vy then label1 (e) .backcolor = (код кольору)
else if e = comp then label1 (e) .backcolor = (інший колір)
else label1 (e) .backcolor = H8000000F (Вихідний)
end
коди беремо з ілюстрації, у форматі Hкод (Н - це h, а не н якщо що)

9 крок

тепер остання кнопка - "нова гра". клікаємо і вводимо:
vy = 0
comp = 0
c = 0
c1 = 0
d = 0
d1 = 0
for e = 1 to (максимальний label1 (номер)) do
label1 (e) .backcolor = H8000000F
end.

10 крок

Як робити власні настільні ігри на Visual Basic

Далі банально. Файл - зберегти проект як (або по-англійськи). Компілювати - дивіться ілюстрацію.

Поради та попередження:

  • вибачте за громіздкі. Просто зручніше, коли одна частина програми в одному кроці
  • всі баги і доповнення - в коменти. буду дуже рада.
  • любителям клянчити плюси. все гранично просто - скачайте бейсик, виконайте інструкцію, залийте її куди-небудь (найкраще на народ.ру-найзручніший обмінник), киньте посилання в коменти. потік плюсів забезпечений.






» » Як робити власні настільні ігри на visual basic