До натискання поміченої кнопки
Рис. 5 Після натискання користувачем кнопки
Циклів таких було використано 8, пов'язано це з напрямками зміни визначального параметра A:
For A=Down To 1 Step - 1Command1. Item (Index + 8 * A). BackColor=Col ThenCommand1. Item (Index + 8 * (A - 1)). Enabled=False Then. Item (Index + 8 * (A - 1)). BackColor=ColIfIfAA=Vert - 1 To 1 Step - 1Command1. Item (Index - 8 * A). BackColor=Col ThenCommand1. Item (Index - 8 * (A - 1)). Enabled=False Then. Item (Index - 8 * (A - 1)). BackColor=ColIfIfAA=Right To 1 Step - 1Command1. Item (Index + A). BackColor=Col ThenCommand1. Item (Index + A - 1). Enabled=False Then. Item (Index + A - 1). BackColor=ColIfIfAA=Gor - 1 To 1 Step - 1Command1. Item (Index - A). BackColor=Col ThenCommand1. Item (Index - A + 1). Enabled=False Then. Item (Index - A + 1). BackColor=ColIfIfAA=Down To 1 Step - 1Command1. Item (Index + 7 * A). BackColor=Col ThenCommand1. Item (Index + 7 * (A - 1)). Enabled=False Then. Item (Index + 7 * (A - 1)). BackColor=ColIfIfAA=Vert - 1 To 1 Step - 1Command1. Item (Index - 7 * A). BackColor=Col ThenCommand1. Item (Index - 7 * (A - 1)). Enabled=False Then. Item (Index - 7 * (A - 1)). BackColor=ColIfIfAA=Down - 1 To 1 Step - 1Command1. Item (Index + 9 * A). BackColor=Col ThenCommand1. Item (Index + 9 * (A - 1)). Enabled=False Then. Item (Index + 9 * (A - 1)). BackColor=ColIfIfAA=Vert - 2 To 1 Step - 1Command1. Item (Index - 9 * A). BackColor=Col ThenCommand1. Item (Index - 9 * (A - 1)). Enabled=False Then. Item (Index - 9 * (A - 1)). BackColor=ColIfIfA
Після це відбувається процес підрахунку очок обох гравців. Для цього вводиться циклічний алгоритм
ForIndex=0 To 63
NextIndex
Всередині якого відбувається перевірка квітів шашок за допомогою команди вибору Select, де припущенням служить Command1. Item (Index). BackColor, тобто колір фону шашки. У відповідності зі значеннями цього припущення змінюються змінні White і Black, значення яких виводяться в елементи Text1 і Text2.
For Index=0 To 63Case Command1. Item (Index). BackColorIs=vbWhite=White + 1Is=vbBlack=Black + 1Select. Text=White. Text=Black
Після цього в аналогічному циклі відбувається підрахунок кількості вже натиснутих кнопок, досягається це шляхом вкладення в тіло циклу неповної команди розгалуження з перевіркою умови про натискання кнопки.
A=0Index=0 To 63Command1. Item (Index). Enabled=False Then=A + 1IfIndex
If A=64 Then
запрошення= Гра закінчена. Почніть знову! Raquo;
IfWhite gt; BlackThen
повідомлення= Білі виграли!
ElseWhite lt; Black Then
повідомлення= Чёрниевиігралі!
повідомлення="Нічия! IfIf повідомлення, vbExclamation, запрошення
Останнє описується подія - натискання на кнопку ВИХІД. Самийпростойалгорітм
Sub ComEnd_Click ()
EndSub
На цьому розробка коду програми завершена і програма гри Реверсі готова до використання.
Висновок
Міні-ігри міцно увійшли в наше життя, багато завзяті гравці вступають у фан-клуби, скачують картинки для робочого столу з зображеннями улюблених героїв комп'ютерних міні-ігор або влаштовують турніри. Психологи двояко ставляться до комп'ютерних міні-ігор. З одного боку, міні-гра допомагає зняти стрес, знайти вихід зі скрутної ситуації, розвиває просторове мислення, логіку і почуття відповідальності. З іншого ж боку, і рабом монітора ставати не варто. Найкраще дотримуватися так званої золотої середини - грати в різноманітні ігри в міру необхідності, але не забувати і про повсякденні справи чи обов'язки.
Жанрів комп'ютерних міні-ігор досить багато, тому будь-хто може знайти міні-гру за смаком. Зараз складно знайти людину, яка вміє поводитися з комп'ютером, але жодного разу не грав - навіть затяті критики подібних розваг хоч раз, та пробували грати. У спокійній домашній обстановці можна зіграти в будь-яку міні-гру без побоювань критики або нерозуміння з боку оточуючих. І дитина, і пенсіонер може знайти підходяще розвага з тисяч варіантів - це може бути логічна чи аркадна міні-гра, спортивні змагання або гонки, фентезі або стратегія.
Створити міні-гру можна як на мові програмування, так і на спеціальних конс...
