Использование языка программирования Бейсик для создания приложений в области компьютерных технологий: бизнес, игры, мультимедиа, базы данных. Моделирование работы оператора по управлению автобусами. Разработка интерфейса и редактирование маршрутов.
Аннотация к работе
Введение Постановка задачи 1.
Список литературы
Приложение
Введение
Обычно Basic ассоциируется с каким-то очень простым в освоении и использовании средством программирования. Это действительно так. На заре компьютерных технологий язык Basic был создан для создания простых программ и использовался в качестве учебного языка для первых шагов при изучении основ программирования с последующим переходом на более сложные и универсальные языки. Это было заложено в название языка BASIC - Beginners All-purpose Symbolic Instructional Code, то есть многоцелевой код символьных инструкций для начинающих. С прогрессом компьютерных технологий развивался и Basic. В настоящее время версия Visual Basic 6 дает возможность решать любые современные задачи разработки приложений. При этом Visual Basic 6 остался достаточно простым в освоении, став в то же время одним из мощных современных языков программирования.
По сути дела последняя версия языка Visual Basic 6 представляет собой интегрированную среду разработки - IDE (Integrated Development Environment). Это означает, что в Visual Basic 6 интегрирован набор инструментов, облегчающих и значительно ускоряющих процесс разработки готового приложения. Такая реализация языка Visual Basic 6 с полным правом позволяет отнести его к средствам быстрой разработки приложений - RAD (Rapid Application Development) и ставит практически в один ряд с такими средствами разработки, как Visual C , Delphi и другими.
С помощью Visual Basic 6 можно создавать приложения практически для любой области современных компьютерных технологий: бизнес-приложения, игры, мультимедиа, базы данных. При этом приложения могут быть как простыми, так и очень сложными, в зависимости от поставленной задачи.
1. Постановка задачи
1.1 Моделирование
Разработать программу, представляющую собой модель работы оператора по управлению автобусами определенной компании.
Обеспечить возможность управления движением автобусов по каждому из предложенных, созданных или уже существующих маршрутов.
Предоставить при необходимости возможность изменения данных по маршруту: непосредственно имени самого маршрута, возможность добавить или удалить автобус, а также изменить данные по автобусам: имена водителя и кондуктора; Удалить, добавить, переместить, переименовать остановки или вообще изменить направление движения по маршруту, поменять порядок прохождения остановок автобусами данного маршрута, плюс удаление самого маршрута при необходимости.
Обеспечить возможности создания своего маршрута, а также корректировки данных (бортовой номер) по свободным автобусам (которые могут быть задействованы, если это необходимо).
Плюс ко всему, смоделировать (визуализировать) наглядное движение автобусов с учетом зависимости скорости автобусов от времени суток.
1.2 Входные, выходные данные
В данной работе входные данные задаются пользователем самостоятельно, т.к. это зависит от конкретных условий применения программы.
Входные данные, если они есть, являются список, содержащий имена уже существующих маршрутов, и списки данных по каждому маршруту отдельно; сюда входят бортовые номера автобусов, которые состоят из номера маршрута плюс номер самого автобуса, имена водителя и кондуктора, названия остановок и их координаты на плоскости, где будет отображаться маршрут; при этом остановки записаны в порядке их прохождения первым автобусом.
Выходными данными будут считаться как можно более правильное моделирование движения автобусов, то, что будет воспринимать пользователь, который будет работать с данным приложением сама схема движения, а также возможность непосредственного изменения уже имеющихся данных и создание своих собственных.
Предметной областью будет являться сама модель приложения, которая будет наглядно представлять работу оператора по управлению маршрутами и автобусами на них.
1.3 Организация данных
В данной работе для хранения уже существующих или записи ново созданных используются текстовые файлы.
Для хранения всех существующих маршрутов используется файл " c:\ Курсовая моя \ Маршруты.txt" , где представлен список названий имеющихся маршрутов.
Для хранения данных по всем маршрутам используются файлы (отдельный для каждого маршрута): "c:\ Курсовая моя \ .txt"
В таких файлах информация представлена например в следующем виде: автобус, 512 водитель, Батуров П.П. кондуктор, Иванова И.И. автобус, 513 водитель, Рябова Т.И. кондуктор, Шишкова Ю.М. автобус, 514 водитель, Продидж Н.Н. кондуктор, Мартысюк С.С. остановка, , 405, 4680 остановка, , 915, 2730 остановка, , 870, 765 остановка, , 3750, 255 остановка, , 2790, 2490 остановка, , 5955, 3585 остановка, , 6030, 1995 и так далее …
Для хранения свободных на данный момент автобусов тоже используется свой файл : " c:\ Курсовая моя \ Свободные автобусы .txt "
В нем содержится список автобусов, каждый из которых можно в любой момент времени пустить по уже существующему маршруту или по созданному только что.
Программа при работе с этими файлами считывает из них информацию и записывает ее в соответствующие массивы для хранения всех данных в памяти во время выполнения приложения.
ARLINESNAME(0 To 30) As String
- для записи названий всех маршрутов, 30 - максимальное число маршрутов
LINESCOUNT As Integer
- для запоминания количества маршрутов
ARBUSNUMBER(0 To 30, 0 To 25) As String
- для записи номеров всех автобусов, 25 - максимальное число автобусов на одном маршруте
ARBUSCOUNT(0 To 30) As Integer
- для запоминания количества автобусов на определенном маршруте
ALLBUSES As Integer
- для хранения числа всех задействованных на маршрутах автобусов
ARDRIVENAME(0 To 30, 0 To 25) As String
- для запоминания имени водителя автобуса на определенном маршруте
ARCONDUCTORNAME(0 To 30, 0 To 25) As String
- для запоминания имени кондуктора автобуса на определенном маршруте
ARSTAYNAME(0 To 30, 0 To 35) As String
- для хранения названий всех остановок определенного маршрута
ARSTAYABSCISS(0 To 30, 0 To 35) As String
ARSTAYORDINATA(0 To 30, 0 To 35) As String
- для записи координат( по X и Y) для каждой остановки определенного маршрута
ARSTAYCOUNT(0 To 30) As Integer
- для хранения числа остановок на данном маршруте
2. Разработка интерфейса
Интерфейс пользователя, возможно, является самой важной частью приложения - это то, что видит пользователь. Для него интерфейс и есть само приложение. При разработке приложения необходимо ответить на множество вопросов. Сколько разных форм необходимо иметь в приложении? Какие команды войдут в меню? и т. д. До начала проектирования пользователю следует подумать о назначении приложения, чтобы как можно грамотнее правильнее подобрать стиль оформления и разработать подходящий и в тоже время удобный дизайн. Для реализации всех пунктов данного задания понадобилось две формы для работы в разных режимах : в режиме просмотра маршрутов и управления движением автобусов и в режиме редактирования маршрутов и данных по ним, а также создания своих собственных маршрутов. И конечно в качестве описания приложения, его свойств использовалась третья форма( About ).
2.1 Редактор маршрутов
Для перехода в режим редактирования маршрутов необходимо выбрать пункт меню главной формы. Редактор маршрутов. В этом случае на форме отобразится Frame1, который содержит все функции возможного редактирования выбранного из списка маршрута.
Для хранения названий маршрутов, номеров автобусов( как задействованных, так и свободных) и названий остановок используются элементы управления Combo_Box; для прорисовки маршрутов - Picture_Box; для обозначения остановок - Image_Box.
2.2 Создание нового маршрута
Для создания своего маршрута аналогично выбираем пункт - Создать новый маршрут
Для записи названия маршрута, имен водителя и кондуктора, а также названия остановки (если нужно задать ей свое имя) используются элементы управления Text_Box; для хранения номеров автобусов( как прикрепленных к создаваемому маршруту, так и еще свободных) - Combo_Box; для рисования своего произвольного маршрута - Picture_Box.
2.3 Просмотр маршрутов и управление автобусами
Для выбора режима просмотра маршрутов и управления движением автобусов нужно выбрать пункт меню: Маршруты
Здесь для хранения названий маршрутов используется элемент управления Combo_Box; для отображения данных по автобусам - Label и Text_Box; для отображения самого маршрута и движения по нему автобусов - Picture_Box; для самих автобусов, остановок.
3. Алгоритм
Алгоритм - это заданная последовательность действий, которые необходимо выполнить над исходными данными для получения конечного желаемого результата. Алгоритм является важным шагом на пути к созданию приложения. Он позволяет наглядно, а главное, в большинстве случаев, понятно, продемонстрировать работу программы. Он помогает не только сразу разобраться, что нужно реализовывать в данном проекте, понять как работает данная программа, на чем она основана, но и избежать многих ошибок или найти и исправить их, так как в самом коде программы они становятся почти незаметными на взгляд. Данное приложение можно разбить на три части: 1.Просмотр маршрутов и управление движением автобусов.
- Считывание из файла " Маршруты.txt" названия всех существующих маршрутов и запись их в Combo_Box
- При выборе определенного маршрута из списка представленных - считывание из файла выбранного маршрута " .txt" данных : номера автобусов, имена их водителей и кондукторов, названия всех остановок и их координаты. Отображение в Picture_Box схемы самого маршрута с помощью линий, остановок и автобусов - Image_Box
- Осуществление с помощью Timer движения автобусов путем расчета новых координат промежуточного положения автобусов, учитывая изменения по координатным осям, и перерисовкой автобусов на новом месте
- При выборе автобуса - щелчок по нему - отображение основных данных по нему: имена водителя и кондуктора, номер, скорость с учетом времени суток и уровень оставшегося топлива
- При щелчке по остановкам перемещать активный в данный момент автобус( выделенный) на эти остановки
- При выборе пунктов меню: переместить на остановку вперед и назад - перемещать активный в данный момент автобус( выделенный) соответственно на эти остановки
- При выборе пунктов: Режимы передвижения или просмотра автобусов - соответственно разрешать или запрещать ручное (Drag_and_Drop) перетаскивание автобусов
2.Просмотр свободных автобусов
- открывает файл свободных автобусов
3.Редактор маршрутов
- Считывание из файла " Маршруты.txt" названия всех существующих маршрутов и запись их в Combo_Box
- При выборе определенного маршрута из списка представленных - считывание из файла выбранного маршрута " .txt" данных : номера автобусов, имена их водителей и кондукторов, названия всех остановок и их координаты. Отображение в Picture_Box схемы самого маршрута с помощью линий и остановки - Image_Box
- При нажатии кнопки Новый считывание из файла " Маршруты.txt" названия всех существующих маршрутов и запись их в Combo_Box
- При выборе кнопок Добавление/Изменение или Удаление соответственно добавление, изменение или удаление в зависимости от определенных параметров
- При нажатии соответствующих после выбора режима изменения маршрутов кнопок переименование, удаление, перемещение выбранной остановки или добавление новой
- Перенаправление маршрута и запоминание соответственно уже измененного маршрута
- При нажатие соответствующей кнопки запись изменений в файл открытого маршрута
4.Создание нового маршрута
- Запись в файл маршрутов названия нового и создание файла самого маршрута
4. Программная часть
Самыми сложными на мой взгляд и наиболее требующими внимания являются следующие части кода программы: 1.Визуализация движения автобусов
If x0(z, i) >= Val(ARSTAYABSCISS(z, ARSTAYPAST(z, i) ARSTAYEDIT(z, i))) _
Then ARSTAYPAST(z, i) = ARSTAYPAST(z, i) ARSTAYEDIT(z, i)
End If
If ARCOORDEDIT(z, i) = -1 Then
If x0(z, i) <= Val(ARSTAYABSCISS(z, ARSTAYPAST(z, i) ARSTAYEDIT(z, i)))_
Then ARSTAYPAST(z, i) = ARSTAYPAST(z, i) ARSTAYEDIT(z, i)
End If
If z 0 Then i = a Next i
Next z
End Sub где k(z, i) - угловой коэффициент уравнения движения автобуса " i " по маршруту " z "; b(z, i) - свободный член того же уравнения; ARCOORDEDIT(z, i) - в какую сторону изменять координату автобуса; ARSTAYPAST(z, i), ARSTAYEDIT(z, i) - соответственно последняя остановка, которую прошел автобус, и величина, показывающая в какую сторону будут изменяться остановки; с - изменение координаты автобуса по X; x0(z, i), y0(z, i) - промежуточные координаты автобуса. В данной процедуре программа сама проверяет в какую сторону должен двигаться определенный автобус, как должна изменяться его координата и где следующий момент времени он будет находиться.
2.Работа с текстовыми файлами при считывании информации об определенном маршруте
Public Static Sub Work_With_Files()
ARBUSCOUNT(Mis) = 0
ARSTAYCOUNT(Mis) = 0
Open "с:\Курсовая моя\" Combo1.List(Mis) ".txt" For Input As 2
Do While Not EOF(2)
Input #2, a$
Select Case a$
Case "автобус": Input #2, ARBUSNUMBER(Mis, ARBUSCOUNT(Mis))
Case "водитель": Input #2, ARDRIVENAME(Mis, ARBUSCOUNT(Mis))
Case "кондуктор": Input #2, ARCONDUCTORNAME(Mis, ARBUSCOUNT(Mis))
ARBUSCOUNT(Mis) = ARBUSCOUNT(Mis) 1
Case "остановка": Input #2, ARSTAYNAME(Mis, ARSTAYCOUNT(Mis))
Input #2, ARSTAYABSCISS(Mis, ARSTAYCOUNT(Mis))
Input #2, ARSTAYORDINATA(Mis, ARSTAYCOUNT(Mis))
ARSTAYCOUNT(Mis) = ARSTAYCOUNT(Mis) 1
End Select
Loop
Close 2
End Sub где Mis - номер текущего маршрута, файл которого читается.
Полный код программы смотрите в Приложении.
Вывод
В данной программе удалось полностью реализовать поставленную задачу.
С помощью Visual Basic получили: Программу - модель работы оператора по управлению автобусами
Обеспечили возможность управления движением автобусов по каждому из предложенных, созданных или уже существующих маршрутов.
Предоставили возможность изменения данных по маршруту: непосредственно имени самого маршрута, возможность добавить или удалить автобус, а также изменить данные по автобусам: имена водителя и кондуктора; удалить, добавить, переместить, переименовать остановки или вообще изменить направление движения по маршруту, поменять порядок прохождения остановок автобусами данного маршрута, плюс удаление самого маршрута при необходимости.
Обеспечили возможности создания своего маршрута, а также корректировки данных (бортовой номер) по свободным автобусам (которые могут быть задействованы, если это необходимо).
Плюс ко всему, смоделировали (визуализировать) наглядное движение автобусов с учетом зависимости скорости автобусов от времени суток.
Список использованной литературы
1.Visual Basic 6.0 - Мастер - Разработка приложений. Санкт - Петербург, " БХВ - Петербург", 2000
2.Самоучитель по Visual Basic 6.0
Приложение
Form1
Public EDITBUS As Boolean
Public EDITLINE As Boolean
Dim DOOM As Boolean, Doomy As Boolean, Do_Do As Boolean
Dim Mis As Integer, Mi As Integer
Dim Misk As Integer, disk As Integer
Dim w As Single
Dim ARLINESNAME(0 To 30) As String, LINESCOUNT As Integer "30 - max маршрутов
Dim ARBUSNUMBER(0 To 30, 0 To 25) As String, ARBUSCOUNT(0 To 30) As Integer
Dim ALLBUSES As Integer "25 - max автобусов
Dim ARDRIVENAME(0 To 30, 0 To 25) As String
Dim ARCONDUCTORNAME(0 To 30, 0 To 25) As String
Dim ARSTAYNAME(0 To 30, 0 To 35) As String " 35 max остановок на одном маршруте
Dim ARSTAYABSCISS(0 To 30, 0 To 35) As String
Dim ARSTAYORDINATA(0 To 30, 0 To 35) As String
Dim ARSTAYCOUNT(0 To 30) As Integer
Dim ARNAME(0 To 30, 0 To 35) As String " 35 - max остановок на одном маршруте
Dim ARABSCISS(0 To 30, 0 To 35) As String
Dim ARORDINATA(0 To 30, 0 To 35) As String
Dim ARFREEBUSES(0 To 100) As String
Dim q As Integer, food As Boolean, Boom As Boolean
Dim e As Integer, mx As Single, my As Single
Dim zzz As Integer, zxz As Integer
Dim aa As Integer, x0 As Single, y0 As Single, nama(0 To 30, 0 To 35) As String