Игра на ловкость Змейка

Алгоритм

1. Описываются переменные и константы(Dim, Const)

2. Выбор начальных координат случайным образом(Rnd()).

3. Прорисовка начального положения.(Pset(x,y))

4. Генерация на поле яблок и бомб случайным образом(Rnd()).

5. Проверка: не появилось ли яблоко или бомба на черве, а также друг на друге.

6. Управление “Змейкой” с клавиатуры и мышкой.

7. Проверка: “не укусила” ли “змейка сама себя”, если укусила выводится информационное окно (Инфоформационнаяформа), в противном случае переходим к следующему пункту.

8. Проверка: “не съела” ли “змейка” “яблоко” если съела, то наращиваем ей хвост и переходим к пункту 3), в противном случае см. Следующий пункт.

9. Проверка: “не съела” ли “змейка” “бомбу”, если съела, то выводится информационное окно (Инфоформационнаяформа), в противном случае переходим к следующему пункту.

10. Перерисовка “Змейки”

P.S. За движение “Змейки” появление “яблок” и “бомб” отвечают три разных таймера. Это было использовано для того, чтобы скорость движения “змейки” была постоянной, а также чтобы “яблоко” и “бомба” появлялись на поле в разное время с разным периодом появления.

Не исключено, что в последующем в данную программу будут добавлены другие объекты, а также возможность создания таблицы лучших игроков, с возможностью хранения этой таблицы в файле, который может быть считан и записан, а так же перезаписан.

Владивостокский Государственный Университет Экономики и Сервиса

Кафедра

УТВЕРЖДАЮ

Заведующий кафедрой

________ Н. Н.

___”_______1998 г.

Отчет

По лабораторной работе

Руководитель _______________ Глытина К. У

Исполнитель

студент ИС-97 _______________ Гавриленко А. С.

Находка 1998 г.

Код программы:

Форма_Змейка

'-------Описание переменных-------

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 =

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать