Программирование в Бейсике

Содержание

Введение

1. Постановка задачи

1.1 Моделирование

1.2 Входные, выходные данные

1.3 Организация данных

2. Разработка интерфейса

2.1 Редактор маршрутов

2.2 Создание нового маршрута

2.3 Просмотр маршрутов и управление автобусами

3. Алгоритм

4. Программная часть

Вывод

Список использованной литературы

Приложение

Введение

Обычно 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

-- для хранения числа остановок на данном маршруте