Игра на ловкость "Змейка" (WinWord) [Лабораторная]

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПРОГРАММИРОВАHИЕ, БАЗЫ ДАHHЫХ

---

Код программы:
Форма_Змейка
'-Описание переменных-
Option Explicit
Dim Змейка) As Змея
Dim LastPos As Змея
Dim Apple As Змея
Dim Bomba As Змея
Dim i, j, Длина As Integer
Dim XDir, YDir As Integer
Dim FirstXPos, FirstYPos As Integer
Dim Проверочная1 As Byte
Dim Проверочная2 As Single
Dim НЛ As String
'-Начальные присвоения-
Const TIC = 1 'Период таймера
Const BackCollor = &H8000000F 'Цвет заднего плана
Const WormCollor = &H80& 'Цвет Змейки
Const AppleCollor = &HFF00& 'Цвет яблока
Const BombaCollor = &H80000012 'Цвет бомбы
Const Толщина = 10 'Толщина червяка
Const НачДлина = 5 'Начальная длина Змейки
Const ПриращениеДлины = 3 'Приращение длины Змейки
-
Public Sub Form_Load)
Поле.BackColor = BackCollor
Поле.DrawWidth = Толщина
Длина = НачДлина
ReDim Preserve Змейка(1 To НачДлина)
'-Начальное положение-
FirstXPos = 5 + Int(Rnd) * 41)
FirstYPos = 5 + Int(Rnd) * 41)
For i = 1 To 5
Змейка(i.XPos = FirstXPos
Змейка(i.YPos = FirstYPos + i
Next i
НачПоложение
'-Направление движения-
XDir = 0
YDir -1 'Вверх
'-Генерация Яблок и Бомб-
AppleGen
BombaGen
Taimer.Interval = TIC
End Sub
'-Прорисовка начального положения-
Private Sub НачПоложение)
Поле.ForeColor = WormCollor
СчетИгры.Caption = Длина
For i = 1 To Длина
Поле.PSet (Змейка(i.XPos * 100, Змейка(i.YPos * 100)
Next i
End Sub
-
Private Sub Taimer_Timer)
Движение
Перерисовка
End Sub
-
Private Sub Движение)
НЛ = Chr(10) & Chr(13) 'Перевод строки
Поле.AutoRedraw = True
Поле.DrawWidth = Толщина
LastPos = Змейка(Длина)
For i = Длина To 2 Step -1
Змейка(i= Змейка(i - 1)
Next i
Змейка(1.XPos = Змейка(1.XPos + XDir
Змейка(1.YPos = Змейка(1.YPos + YDir
'-Не вышел ли за пределы поля-
On Error GoTo ВышелЗаПределы
Проверочная1 = Змейка(1.XPos - 1
Проверочная1 = Змейка(1.YPos - 1
Проверочная1 = Змейка(1.XPos + 206
Проверочная1 = Змейка(1.YPos + 206
'-Не укусил ли самого себя-
УкусилСамогоСебя:
For i = 2 To Длина
If Змейка(1.XPos = Змейка(i.XPos And Змейка(1.YPos = Змейка(i.YPos
Then Taimer.Interval = 0
ИнформационнаяФорма.ИнфоПоле.Captio

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место