Y - 1S0 (X1, Y1) = 3 Then conf = 2conf <> 1 Then If S0 (X1, Y1) = 0 Or S0 (X1 , Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1If
'ВправоY <9 Then = X = Y + 1S0 (X1, Y1) = 3 Then conf = 2conf <> 1 Then If S0 (X1, Y1) = 0 Or S0 (X1 , Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1If
'Визначення точкіm <1 Then GoTo 130conf <> 0 Then If m <1 Then GoTo 130 = Int (Rnd * 100) = 0k = 1 To m = n + 1n> m Then n = 1kconf = 2 Then If mx (n) <> X Then GoTo 130conf = 1 Then If my (n) <> Y Then GoTo 130
X = mx (n) = my (n) 100
130 Return
'Помилка
Err = True
ErrName = "Неправильний НОМЕР (повинно бути 1 або 2)"
End Sub
Sub CalcShipsLeft () - Підраховує, скільки "невбитого" сегментів кораблів є на полі 1 і поле 2, і видає на виході відповідні змінні: P1Left і P2Left.
P1Left = 0Left = 0i = 0 To 9j = 0 To 9S1 (j, i) = 1 Then P1Left = P1Left + 1S2 (j, i) = 1 Then P2Left = P2Left + 1jiSub ClearSea (Num As Byte) '- Повністю стирає дані про "відкриті" місцях на полі Num.
For i = 0 To 9j = 0 To 9Num = 1 Then V1 (j, i) = 0Num = 2 Then V2 (j, i) = 0jiSubSub
Висновок
У даному курсовому проекті була розглянута теорія і практика створення комп'ютерних ігор загалом на прикладі гри В«Морський бійВ».
Провівши практичну роботу по здійсненню проекту, була досліджена теорія створення комп'ютерних ігор
Використовуючи середовище програмування Visual Basic 6.0. розроблено Windows-додаток комп'ютерної гри В«Морський бійВ», яке є закінченою програмою і може використовуватися для гри.
У роботі був даний теоретичний огляд досліджуваної задачі; розроблена блок-схема алгоритму; описана програма; продемонстрований зовнішній вигляд програми.
