Решение

В окне программного кода напишем процедуры для кнопок.

Option Explicit

Dim m As Integer, t As Integer

Dim v1 As Double, v2 As Double

Dim A As Double, F As Double

Private Sub CommandButton1_Click()

‘Вводим с клавиатуры начальную и конечную скорости v1 = InputBox (“Введите начальную скорость”)

v2 = InputBox (“Введите конечную скорость”)

‘Выводим значения скоростей на форму в метку Label3 Label3.Caption = “v1=” & v1 “ v2= ” & v2

End Sub

Private Sub CommandButton2_Click()

m = TextBox1.Text ‘ считываем массу автомобиля из поля t = TextBox2.Text ‘ считываем из поля время разгона

‘ Выводим результаты на форму

Label4.Caption = “Ускорение = ” & A

Label5.Caption = “Сила = ” & F

End Sub

Private Sub CommandButton2_Click() End

End Sub

40

2.2. Задания для лабораторной работы при проектировании процессов управления на автомобильном транспорте средствами Visual Basic

Вариант 1

Вычислить количество автосамосвалов N, необходимых для обслуживания экскаватора, по формуле

где l − расстояние транспортировки грунта, км; v1 − скорость движения груженого автосамосвала, км/ч; v2 − скорость движения порожнего автосамосвала, км/ч; tпc − время погрузки автосамосвала, мин; t рc − время

разгрузки автосамосвала, мин.

На форме разместить метки с пояснительным текстом, список для выбора расстояния транспортировки грунта автосамосвалом, поля для ввода времени погрузки и разгрузки автосамосвала, скорости движения груженого и порожнего автосамосвала. Кнопка Вычислить считывает введенные данные, вычисляет количество автосамосвалов и выводит эти данные на рабочий лист Excel. Для запуска формы создать на рабочем листе Excel кнопку Запуск.

Общий вид формы, имена объектов и подписи для меток и кнопок показаны на рис. 25.

Вариант 2

Вычислить количество оборотов, совершаемых автомобилем за 3, 6, 9 и 12 часов, если среднетехническая скорость автомобиля равна 54 км/ч, расстояние перевозки 20 км, а время на погрузку и разгрузку составляет 30 минут. Вывести полученные данные на первый рабочий лист Excel и построить график зависимости количества оборотов от времени работы.

Разместить на форме кнопки Вычислить, Построить график, Очи-

41

стить и Удалить график. Общий вид формы, имена объектов и подписи для меток и кнопок показаны на рис. 26. Общий вид таблицы результатов приведен в табл. 10.

Рис. 25. Общий вид формы

42

Таблица 10

Таблица результатов

Вариант 3

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

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

Внешний вид формы показан на рис. 27.

43

Вариант 4

1.Создать базу данных «Перевозки», содержащую следующую

информацию: марка автомобиля, регистрационный номер, грузоподъемность, габаритные размеры кузова (объем кузова, м3), ФИО водителя, дата выезда, время выхода на маршрут, время возвращения, наименование груза, грузополучатель, грузоотправитель, примечания (информация о происшествиях), тип кузова (бортовой, фургон и т.д.), вес груза.

Указанную информацию разместить в трёх таблицах, в каждой по 10 записей.

2.Сделать три формы для внесения и удаления записей.

3.Выдать справки (сделать запрос):

-о самосвалах, вышедших на линию в заданный день;

-о свободных машинах заданной грузоподъемности и заданной мар-

ки;

-о работе водителя в текущий день или заданный период;

-об автомобилях, вышедших сегодня в рейс и еще не вернувшихся в

гараж;

-о свободных автомобилях заданной грузоподъемности и заданной

марки;

-о происшествиях во время перевозки грузов весом более заданного числа за прошлый месяц.

4. Создать отчет следующего вида:

ПУТЕВОЙ ЛИСТ

Наименование предприятия

Водитель Марка автомобиля Госзнак

Грузоотправитель Наименование груза Вес груза Грузополучатель Начальник АТП Время отправления Время прибытия

Отметка о получении груза

44

Вариант 5

1.Создать базу данных «Автовокзал», содержащую следующую информацию: дата отправления, номер маршрута, пункт отправления, время отправления, промежуточные пункты, время прибытия в промежуточный пункт, время отправления из промежуточного пункта, пункт назначения, количество свободных мест, время прибытия в конечный пункт.

Указанную информацию разместить в трёх таблицах, в каждой по 10 записей.

2.Сделать три формы для внесения и удаления записей.

3.Выдать справки (сделать запрос):

-о свободных местах на данный маршрут в заданный день;

-маршрутах в определенный промежуток времени;

-возможности добраться в конечный пункт назначения;

-маршруте в заданный месяц, на который проданы все билеты;

-маршрутах с временем отправления после 12.00;

-маршрутах с количеством свободных мест более заданного числа. 4. Создать отчет следующего вида:

Отчет за _________________

название месяца

Вариант 6

1.Создать базу данных «Автобусный парк», содержащую следующую информацию: гаражный номер автобуса, марка автобуса, дата выхода на маршрут, номер маршрута, водитель, дата рождения, оклад, время выхода на маршрут, время возвращения в гараж, информация о поломках и происшествиях.

Указанную информацию разместить в трёх таблицах, в каждой по 10 записей.

2.Сделать 3 формы для внесения, удаления записей.

3.Выдать справки (сделать запрос):

-о водителях, работающих на заданном маршруте;

-об автобусах, вернувшихся в парк до 19:00;

-о работе водителя в заданный период;

-о водителях старше определенного возраста;

-о работе водителя в заданный день без поломок;

4. Создать отчет следующего вида, сгруппировав записи по марке:

Отчет по водителю_________________

Вариант 7

1.Спроектировать при помощи Visual Basic модель микросистемы

[2]в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния средней технической скорости на функционирование микросистемы.

3.По полученным данным построить графические зависимости влияния средней технической скорости на выработку микросистемы (при помощи Microsoft Excel).

Вариант 8

1.Спроектировать при помощи Visual Basic модель микросистемы

[2]в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния времени по- грузки–выгрузки на функционирование микросистемы.

3.По полученным данным построить графические зависимости влияния времени погрузки–выгрузки на выработку микросистемы (при помощи Microsoft Excel).

Вариант 9

1.Спроектировать при помощи Visual Basic модель особо малой системы (маятниковый маршрут, с обратным груженым пробегом) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния времени по- грузки–выгрузки на функционирование особо малой системы.

3.По полученным данным построить графические зависимости влияния времени погрузки–выгрузки на выработку особо малой системы

(при помощи Microsoft Excel).

46

Вариант 10

1.Спроектировать при помощи Visual Basic модель особо малой системы (маятниковый маршрут, с обратным груженым пробегом) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния среднетехнической скорости на функционирование особо малой системы.

3.По полученным данным построить графические зависимости влияния среднетехнической скорости на выработку особо малой

системы (при помощи Microsoft Excel).

Вариант 11

1.Спроектировать при помощи Visual Basic модель особо малой системы (маятниковый маршрут, с обратным груженым пробегом не на всем расстоянии перевозок груза) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния времени по- грузки–выгрузки на функционирование особо малой системы.

3.По полученным данным построить графические зависимости влияния времени погрузки–выгрузки на выработку особо малой системы

(при помощи Microsoft Excel).

Вариант 12

1.Спроектировать при помощи Visual Basic модель особо малой системы (маятниковый маршрут, с обратным груженым пробегом не на всем расстоянии перевозок груза) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния средней технической скорости на функционирование микросистемы.

3.По полученным данным построить графические зависимости влияния средней технической скорости на выработку микросистемы (при помощи Microsoft Excel).

Вариант 13

1.Спроектировать при помощи Visual Basic модель особо малой системы (маятниковый маршрут, с обратным груженым пробегом, но разной загрузкой) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния средней технической скорости на функционирование микросистемы.

47

3. По полученным данным построить графические зависимости влияния средней технической скорости на выработку микросистемы (при помощи Microsoft Excel).

Вариант 14

1.Спроектировать при помощи Visual Basic модель особо малой системы (кольцевой маршрут) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния времени погрузки–выгрузки на функционирование особо малой системы.

3.По полученным данным построить графические зависимости влияния времени погрузки-выгрузки на выработку особо малой системы

(при помощи Microsoft Excel).

Вариант 15

1.Спроектировать при помощи Visual Basic модель особо малой системы (кольцевой маршрут) [2] в диалоговом режиме.

2.Выполнить при помощи Visual Basic анализ влияния среднетехнической скорости на функционирование особо малой системы.

3.По полученным данным построить графические зависимости влияния среднетехнической скорости на выработку особо малой системы

(при помощи Microsoft Excel).

ТРЕБОВАНИЯ К ВЫПОЛНЕНИЮ И ОФОРМЛЕНИЮ

ЛАБОРАТОРНЫХ РАБОТ

Лабораторная работа выполняется в электронном виде, оформляется в виде отчёта, выполненного машинописным способом на одной стороне листа формата А4.

Работа должна содержать разделы, расположенные в следующем порядке:

-титульный лист;

-задание на лабораторную работу;

-содержание;

-введение;

-основная часть;

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

-приложения.

Общий объем отчёта по лабораторной работе 7 – 10 страниц машинописного текста. Текст отчёта оформляется с соблюдением требований

[6].

В начале занятия каждому студенту выдается задание на лабораторную работу с указанием даты выдачи и срока её выполнения. Защита лабораторной работы сводится к обоснованию решений, разработанных обучающимся по рассматриваемой задаче.

Критерии оценки:

-оценка «зачтено» выставляется студенту, если он выполнит лабораторную работу в объеме более 50 % всей работы, ответит на вопросы по лабораторной работы;

-оценка «не зачтено» – не выполнил лабораторную работу в полном объеме (менее 50 % всей работы).

Библиографический список

1.Геращенко, И.П. Экономико-математические методы и модели : учебное пособие / И.П. Геращенко, Е.В. Шульга. – Омск : Изд-во Омского экономического института, 2007. – 292 с.

2.Основы теории автотранспортных систем (грузовые автомобильные перевозки) / В.И. Николин, Е.Е. Витвицкий, С.М. Мочалин, Н.И. Ланьков. – Омск : Изд-во ОмГПУ, 1999. – 191 с.

3.Николин, В.И. Грузовые автомобильные перевозки : монография / В.И. Николин, Е.Е. Витвицкий, С.М. Мочалин – Омск : Изд-во «Вариант-

Сибирь», 2004. – 480 с.

4.Рудикова, Л.В. Microsoft Excel для студента / Л.В. Рудикова. –

СПб.: БХВ – Петербург, 2005. – 368 с.

5.Антипенко, Н.Ф. Разработка пользовательских приложений средствами VBA : учебно-методическое пособие / Н.Ф. Антипенко, Т.А. Санькова. – Омск : СибАДИ, 2012. – 92 с.

6.Методические указания по оформлению курсовых работ, проектов

ивыпускных квалификационных работ / сост. М.А. Миргородский. – Омск : СибАДИ, 2011. – 40 с.