трукторах, які не вимагають знання спеціальних мов. Існує велика різноманітність мов для програмування міні-ігор, такі як Delphi, Java, VisualBasic, VisualBasic 6.0 і так далі. Нами було розглянуто програмування міні-ігри Реверси на мові VisualBasic 6.0
Створення програми в середовищі програмування VisualBasic 6.0 можна розділити на 2 основних етапи:
) створення інтерфейсу
2) написання програмного коду
Саме можливість створення і перегляду інтерфейсу програми в режимі проектування і є відмінною рисою середовища VisualBasic, як графічної, робить її гнучкою і прийнятною для вирішення різноманітних завдань, у тому числі і для створення ігор, що було розглянуто нами на прикладі створення гри Реверси .
Список використаної літератури
1. Балена Ф., Дімауро Д. Сучасна практика програмування на MicrosoftVisualBasic і Visual C #. Вид-во: Російська Редакція, +2012, стор.640.
2. Гарбер Г.З. Основи програмування на VisualBasic і VBA. Вид-во: Солон-Пресс, +2012, стор. 192.
. Івьен Б., Берес Д. VisualBasic. Біблія користувача. Вид-во: Вільямс, 2012, стр.1024.
. Клімов А. Занимательное програмування на VisualBasic. Вид-во: БХВ-Петербург, 2012, стр.528.
. КрейгД.К., УеббД. Microsoft Visual Basic. Майстерня розробника. Вид-во: Російська редакція, 2010, стр.720.
. ЛукінС.Н. Visual Basic. Самовчитель для початківців. Вид-во: Діалог-МІФІ, +2012, стр.544.
. Лукін С.Н. Зрозуміло про Visual Basic. Самовчитель. Вид-во: Діалог-МІФІ, 2011, стр.736.
. Макдональд М. MicrosoftVisualBasic: рецепти програмування. Вид-во: Російська Редакція, 2004, стр.688.
. Симонович С., Євсєєв Г. Занимательное програмування. Вид-во: АСТ-Пресс, Інфорком - Пресс, +2011, стр.320.
. Слєпцова Л.Д. Програмування на VBA . Вид-во: Діалектика, Вільямс, 2010, стр.432.
. Трусов М.А. VisualBasic. Створення графічних об'єктів та основи програмування. Вид-во: НТ Пресс, 2011, стор.160.
. Уокенбах Д. Професійне програмування на VBA. Вид-во: Вільямс, 2011, стр.800.
. Штайнер Г. VisualBasic. Вид-во: Лабораторія Базових Знань, +2010, стр.784.
Програми
Додаток 1.
Dim Col As StringDown, Right, Vert, Gor, A As IntegerSub ComNew_Click ()=vbBlackIndex=0 To 63. Item (Index). BackColor=vbYellow. Item (Index). Enabled=TrueIndex. Item (27). BackColor=vbWhite. Item (28). BackColor=vbBlack. Item (35). BackColor=vbBlack. Item (36). BackColor=vbWhite. Item (27). Enabled=False. Item (28). Enabled=False. Item (35). Enabled=False. Item (36). Enabled=False. Text=2. Text=2SubSub Command1_Click (Index As Integer) Col=vbBlack Then=vbWhite=vbBlackIf. Item (Index). BackColor=Col. Item (Index). Enabled=False=Index 8 + 1=9 - (7 * Vert - (Index - Vert))=8 - Vert=8 - Gor=0=0A=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 Then If Command1. 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=ColIfIfAIndex=0 To 63Case Command1. Item (Index). BackColorIs=vbWhite=White + 1Is=vbBlack=Black + 1Select. Text=White. Text=BlackIndex=0Index=0 To 63Command1. Item (Index). Enabled=False Then=A + 1IfIndex=64 Then
...
