Государственное образовательное учреждение высшего  профессионального образования

«Сибирская  государственная автомобильно-дорожная академия

(СибАДИ)» 

Факультет  Информационные системы в управлении

Специальность Прикладная информатика в экономике

Кафедра  Прикладная информатика в экономике 
 
 
 

Пояснительная записка

к курсовой работе 

по дисциплине «Вычислительная математика и программирование» 

Название работы Разработка программы «Лабиринт» 
 

Выполнил: студентка гр. ПИ-09И1

Ф.И.О. Названов Павел Александрович

Проверил  преподаватель

Толкачева Е.В. 
 
 
 

Омск 2010 
 

Содержание

Введение

       Целью курсовой работы является получение опыта самостоятельной разработки в соответствии с заданием пользовательского приложения, работающего под управлением ОС Microsoft Windows, в среде разработки приложений Microsoft Visual Basic .Net, а также получение навыка составления пояснительной записки и оформления в соответствии с требованиями, принятыми на факультете «Информационные системы в управлении».

       Задачами  курсовой работы являются: 1) разработка программы  
в соответствии с заданием; 2) составление пояснительной записки  
в соответствии с требованиями.

       В первой главе пояснительной записки к курсовой работе приводится краткое описание возможностей интегрированной среды разработки приложений Microsoft Visual Basic .Net, основных алгоритмических конструкций языка программирования Visual Basic и базовых элементов управления.

       Во  второй главе приводится краткое  описание программы, блок-схема программы  и демонстрация работы программы.

       В заключении приводится перечень изученных  вопросов и основных результатов  курсовой работы.

       В приложение вынесен программный код с подробными комментариями.

       1. Среда разработки приложений Microsoft Visual Basic .Net

       1.1 Основы языка Visual Basic

       В таблице 1.1 описаны типы данных Visual Basic и диапазоны значений.

Таблица 1.1 – Типы данных Visual Basic

       В таблице 1.2 кратко описаны основные циклические структуры в Visual Basic (позволяют выполнить одну или несколько строк кода несколько раз). 

Таблица 1.2 – Циклические структуры Visual Basic

             Подробную информацию об основах программирования на языке Visual Basic можно найти в [1, 2].

1.2 Элементы управления в Microsoft Visual Basic .Net

             Свойства управляющих элементов, используемых в программе, описаны в таблице 1.3 

Таблица 1.3 – Свойства управляющих элементов Visual Basic

       1.3 Обработка событий в Microsoft Visual Basic .Net

       Большинство программ управляются событиями, то есть ход  работы программы определяется внешними воздействиями, называемыми событиями.

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

       Любой объект, способный вызывать события, является отправителем событий, также называемым источником событий. Формы и элементы управления являются примерами отправителей событий.

       Обработчики событий – это процедуры, вызываемые при возникновении соответствующего события. Можно использовать любые допустимые процедуры в качестве обработчика событий. В Visual Basic используется стандартное положение об именовании обработчиков событий. Имя должно состоять из имени отправителя события, знака подчеркивания и имени события. Например, событие Click кнопки с именем button1 будет иметь имя Sub button1_Click [1]. В теле процедуры необходимо описать действия, которые программа должна выполнить при получении сигнала о том, что данное событие произошло.

       Пользователь  оказывает управляющее воздействие  на программу посредством внешних  периферийных устройств. Наиболее распространенными среди них являются клавиатура и манипулятор «мышь». Далее подробно рассмотрены основные события, связанные с этими устройствами. В таблице 1.4 приведен перечень основных событий, передающих в программу сигнал, поступающий от клавиатуры. В таблице 1.5 приведен перечень основных событий, передающих в программу сигнал, поступающий от мыши. 
 
 
 
 
 
 
 

Таблица 1.4 – Перечень основных событий, связанных с клавиатурой

       Sender – ссылка на объект-отправитель события.

       Объект  класса KeyPressEventArgs имеет свойство KeyChar типа Char, которое получает знак, соответствующий нажатой клавише.

       Объект  класса KeyEventArgs имеет свойства:

• Alt, Control, Shift типа Boolean показывают, была ли нажата клавиша ALT, CTRL, SHIFT;
• KeyCode, KeyData типа Keys получают код нажатой клавиши (например, Keys.A, Keys.F1, Keys.Insert и т. п.);
• KeyValue типа Integer получает значение нажатой клавиши (например, для клавиши ENTER значение KeyValue равно 13).

Таблица 1.5 – Перечень основных событий, связанных с мышью

       Sender – ссылка на объект-отправитель события.

       Объект  класса EventArgs не содержит данных.

       Объект класса MouseEventArgs имеет свойства:

• Button типа MouseButton получает сведения о нажатой кнопке мыши (MouseButton.Left, если нажата левая кнопка мыши, MouseButton.Right – правая кнопка мыши, MouseButton.Middle – средняя кнопка мыши);
• Clicks типа Integer получает число нажатий и отпусканий кнопки мыши;
• Delta типа Integer получает число со знаком, указывающее количество делений, на которое повернулось колесико мыши (делением называется один зубец колесика мыши);
• X типа Integer получает координату x указателя мыши на момент создания события;
• Y типа Integer получает координату у указателя мыши на момент создания события.

        2. Описание программы

       Приложение  представляет собой стандартное  окно Windows фиксированных размеров, которое можно свернуть или закрыть. В окне имеется стандартное меню, включающее разделы «Игра» и «Справка». Раздел «Игра» включает подразделы «Новая игра», «Отменить ход» (доступна только для последнего сделанного хода) и «Выход». Раздел «Справка» содержит подразделы «Вызов справки» и «О программе…». Программа поддерживает два способа управления: с помощью мыши и с помощью клавиатуры.

       В заголовке окна отображается информация о количестве сделанных ходов.

       В таблице 2.1 перечислены используемые в программе глобальные константы  и переменные, в таблице 2.2 – элементы управления, в таблице 2.3 – процедуры и функции. 

Таблица 2.1 – Глобальные константы и переменные

Таблица 2.3 – Процедуры и функции

2.1 Блок-схема  программы

      Программа PictureBox1_MouseDown

        Рисует ключи  там где написано 0  
 
 
 
 
 
 
 
 
 
 
 

         Проверка есть ли в ячейке ключ

         Ход назад

         
2.2 Демонстрация работы программы

       Для начала работы с программой нужно  запустить файл Лабиринт.exe. Появится окно программы (рисунок 2.6).

       Рисунок 2.6 – окно программы «Лабиринт»

        Заключение

       В ходе выполнения курсовой работы были более подробно изучены  
и изложены в пояснительной записке следующие вопросы:

• базовые элементы управления, их свойства и методы;
• управление программой с помощью событий, связанных  
  с клавиатурой;
• управление программой с помощью событий, связанных с мышью.

       Полученные  знания использованы на практике. Результатом работы является приложение-игра «Лабиринт», работающее под ОС Windows.

Список использованных источников

1. Библиотека MSDN (по-русски) [Электронный ресурс] – Электрон. дан. – Microsoft Corporation, 2010 – Режим доступа: http://msdn.microsoft.com/ru-ru/library/ms123401.aspx, свободный. – Загл. с экрана. – Яз. рус.
2. Долженков В. Visual Basic .NET. Учебный курс / В. Долженков, М. Мозговой. – СПб., Питер, 2003. – 464 с.

Приложение А 
Листинг программы

Public Class Form1

    Const p = 30 ' ширина клетки поля в пиксв.

    Dim Mass(14, 15) As Комната 'Масив в которм храняться данные комнаты о проходах

    Dim mas(14, 15), r, c As Integer

    Dim mask(7, 7) As Integer

    Dim smas(14, 15), sr, sc, st, s As Integer 'Массив для отмены  хода

    Dim KA, KB, KC, KD, KE, KF, KG, sKA, sKB, sKC, sKD, sKE, sKF, sKG As String 

    Sub newgame()

        'Проход L-Слева P-Справа V-Сверху N-Снизу, LN-Слева и снизу, LP... 

        Mass(1, 1).PN() : Mass(1, 2).LPN() : Mass(1, 3).LPN() : Mass(1, 4).LPN() : Mass(1, 5).LPN() : Mass(1, 6).LPN() : Mass(1, 7).LN()

        Mass(2, 1).PVN() : Mass(2, 2).LPVN() : Mass(2, 3).LPVN() : Mass(2, 4).LVN() : Mass(2, 5).LPVN() : Mass(2, 6).LPVN() : Mass(2, 7).LVN()

        Mass(3, 1).PVN() : Mass(3, 2).LPVN() : Mass(3, 3).LPVN() : Mass(3, 4).LPVN() : Mass(3, 5).LPVN() : Mass(3, 6).LPVN() : Mass(3, 7).LVN()

        Mass(4, 1).PV() : Mass(4, 2).LPVN() : Mass(4, 3).LPVN() : Mass(4, 4).LPVN() : Mass(4, 5).LPVN() : Mass(4, 6).LPVN() : Mass(4, 7).LVN()

        Mass(5, 1).PN() : Mass(5, 2).LPVN() : Mass(5, 3).LPVN() : Mass(5, 4).LPVN() : Mass(5, 5).LPV() : Mass(5, 6).LPVN() : Mass(5, 7).LVN()

        Mass(6, 1).PVN() : Mass(6, 2).LPVN() : Mass(6, 3).LPVN() : Mass(6, 4).LVN() : Mass(6, 5).PN() : Mass(6, 6).LPVN() : Mass(6, 7).LVN()

        Mass(7, 1).V() : Mass(7, 2).PV() : Mass(7, 3).LPV() : Mass(7, 4).LPV() : Mass(7, 5).LV() : Mass(7, 6).PV() : Mass(7, 7).LV()

        s = 0

        KA = 0

        KB = 0

        KC = 0

        KD = 0

        KE = 0

        KF = 0

        KG = 0

        Label3.Text = "   Ключ А-" + KA + "   Ключ B-" + KB + "   Ключ C-" + KC + "   Ключ D-" + KD + "   Ключ E-" + KE + "   Ключ F-" + KF + "   Ключ G-" + KG

        For i = 1 To 13

            For j = 1 To 15

                mas(i, j) = 1

            Next

        Next

        mask(4, 1) = 1 : mask(7, 2) = 2 : mask(4, 2) = 3 : mask(6, 5) = 4 : mask(5, 5) = 5 : mask(7, 6) = 6 : mask(7, 7) = 7

        mask(2, 5) = 8 : mask(5, 1) = 9 : mask(6, 2) = 10 : mask(2, 6) = 11 : mask(3, 3) = 12 : mask(7, 1) = 13 : mask(7, 5) = 14

        'Начальные координаты нашей фишки

        r = 4

        c = 1

        mas(4, 1) = 0

        Label2.Text = s

        Me.Refresh()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Создаем экзэмпляр класса

        For i = 1 To 14

            For j = 1 To 15

                Mass(i, j) = New Комната

            Next j 

        Next i

        newgame()

    End Sub

    Private Sub L_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles L.MouseDown

        'Здесь мы описываем условия по которым будет передвигаться фишка

       Dim rn, cn As Integer

        rn = e.Y \ p + 1

        cn = e.X \ p + 1

        If mas(rn, cn) = 1 And r - rn = -1 And c = cn And Mass(r, c).NN = 1 And Mass(rn, cn).VV = 1 Then 

            st = s

            sr = r

            sc = c

            Ход()

            mas(rn, cn) = 0

            mas(r, c) = 1

            r = rn

            c = cn

            s = s + 1 

            Проверка() 
 

        End If 

        If mas(rn, cn) = 1 And r - rn = 1 And c = cn And Mass(r, c).VV = 1 And Mass(rn, cn).NN = 1 Then

            st = s

            sr = r

            sc = c

            Ход()

            mas(rn, cn) = 0

            mas(r, c) = 1

            r = rn

            c = cn

            Проверка()

            s = s + 1 

        End If 

        If mas(rn, cn) = 1 And r = rn And c - cn = -1 And Mass(r, c).PP = 1 And Mass(rn, cn).LL = 1 Then

            Ход()

            st = s

            sr = r

            st = s

            mas(r, c) = 1

           mas(rn, cn) = 0

            r = rn

            c = cn

            Проверка()

            s = s + 1

        End If 

        If mas(rn, cn) = 1 And r = rn And c - cn = 1 And Mass(r, c).LL = 1 And Mass(rn, cn).PP = 1 Then