1605

Вариант 7

30

2. ПРОЕКТИРОВАНИЕ ПРОЦЕССОВ УПРАВЛЕНИЯ НА АВТОМОБИЛЬНОМ ТРАНСПОРТЕ СРЕДСТВАМИ VISUAL BASIC

Visual Basic For Application (VBA) – это сочетание одного из самых простых языков программирования и всех вычислительных возможностей табличного процессора Excel.

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

Для того чтобы начать создавать свое собственное приложение в VBA, нужно запустить редактор VBA в Excel (Сервис – Макрос – Редактор Visual Basic), а затем создать форму с помощью команды меню

Вставка – UserForm (Insert – UserForm).

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

Общий вид окна VBA в режиме отображения формы и в режиме написания программного кода показан на рис. 20, 21.

Окно

программного

кода

Рис. 21. Общий вид окна VBA в режиме написания программного кода

Вывести на экран окно проекта можно с помощью команды Вид – Окно проекта (View – Project Explorer). Окно свойств объектов можно вывести с помощью команды меню Вид – Окно свойств (View – Properties Window).

Элементы управления

Чтобы добавлять на форму различные элементы управления (кнопки, метки, поля, списки и т.д.), нужно использовать панель элементов управления. Вывести эту панель на экран можно с помощью кнопки Панель элементов (Toolbox) на панели инструментов (см. рис. 20). Основные элементы управления приведены в табл. 8.

33

Таблица 8

Основные элементы управления

34

Свойства объектов

В VBA каждый элемент пользовательского интерфейса (включая форму) имеет ряд свойств. Свойства могут устанавливаться в процессе разработки приложения в окне свойств, а также могут изменяться в программном коде после запуска программы. Вывести на экран окно свойств можно с помощью команды меню Вид – Окно свойств (View – Properties Window).

Поместив на форму нужные элементы управления, можно установить свойства для каждого их них в окне свойств (см. рис. 20). Для этого следует выделить объект, найти в окне свойств нужное свойство и установить его значение. Для выделения нескольких объектов используется кла-

виша [Shift] или [Ctrl].

Обращение к свойству объекта в программе происходит следующим образом:

а) задание значения свойства

Имя объекта.Свойство = Значение

б) считывание значения свойства

Имя переменной = Имя объекта.Свойство Основные свойства объектов

Name – имя объекта. BackColor – цвет объекта (фон).

BorderColor – цвет границы. BorderStyle – тип границы.

Caption – надпись (заголовок).

Font – шрифт.

ForeColor – цвет шрифта. Height – высота.

Width – ширина.

Left – горизонтальная координата левого верхнего угла объекта. Top – вертикальная координата левого верхнего угла объекта. Picture – графическое изображение (файл с рисунком). PictureSizeMode – отображение рисунка (фрагмент или полностью). Value – значение.

Visible – видимость. Enabled – доступность. Text – текст в поле.

TextAlign – выравнивание текста.

ListIndex – номер элемента списка (нумерация с нуля).

35

Написание программного кода

Для того чтобы начать написание процедуры обработки события Click для какого-либо объекта, нужно дважды щелкнуть левой кнопкой мыши по этому объекту на форме или выделить объект и воспользоваться кнопками переключения между программой и объектом (см. рис. 20). На экране появится окно программного кода (см. рис. 21) с заготовкой процедуры обработки данного события. С помощью раскрывающихся списков “Выбор объекта” (Object) и “Выбор события” (Procedure) можно написать процедуру обработки нужного события для любого объекта (см. рис. 21).

После написания программного кода (процедур обработки событий для объектов) запуск приложения осуществляется с помощью кнопки Запуск на панели инструментов или с помощью клавиши [F5].

Создание элементов управления на рабочем листе Excel

Для того чтобы создавать элементы управления непосредственно на рабочих листах Excel, нужно воспользоваться панелью инструментов “Элементы управления” (команда меню Вид – Панели инструментов – Элементы управления).

Режим конст-

руктора

Свойства

Исходный текст

Рис. 22. Фрагмент панели инструментов “Элементы управления”

Кнопка Режим конструктора используется для того, чтобы редактировать объекты. Чтобы выйти из режима конструктора и начать работу с вашими объектами, нужно нажать на ту же самую кнопку (см. рис. 22), которая теперь имеет название Выход из режима конструктора. Кнопка Свойства выводит на экран окно свойств. Кнопка Исходный текст позволяет открыть окно программного кода для выбранного объекта.

36

2.1. Пример проектирования процессов управления на автомобильном транспорте средствами Visual Basic

Цель работы: спроектировать процесс управления на автомобильном транспорте средствами Visual Basic

Пример 1

Вычислить расстояние S (км), пройденное автомобилем определенной марки со скоростью v (км/ч) за время t (ч) по формуле

S = v t.

Пусть имеется пять марок автомобилей: ЗИЛ, МАЗ, КрАЗ, КамАЗ и БелАЗ и соответствующие им значения среднетехнической скорости (км/ч): 45, 50, 50, 44 и 55. Используем для задания марки автомобиля элемент управления “Переключатель”, а для задания времени – элемент управления “Поле”.

Пользователь выбирает марку автомобиля, вводит в поле значение времени (у вещественного числа дробная часть отделяется запятой) и нажимает на кнопку Вычислить, на форме появляется скорость выбранного автомобиля и вычисленное расстояние. Для вывода на форму скорости и расстояния используем элемент управления “Метка”. Также на форме разместим кнопку Выход для завершения работы приложения.

Общий вид формы показан на рис. 23.

Список обектов и их свойств приведен в табл. 9.

37

Решение

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

Option Explicit

‘Описываем глобальные переменные v, t и s Dim v As Integer, t As Double, s As Double

‘Процедура для кнопки “Выход”

Private Sub CommandButton1_Click()

38

End ‘ завершаем работу приложения

End Sub

‘Процедура для кнопки “Вычислить”

Private Sub CommandButton2_Click()

‘Задаем скорость выбранного автомобиля в зависимости

‘от того, какой переключатель выбран

If OptionButton1.Value = True Then v = 45

If OptionButton2.Value = True Then v = 50

If OptionButton3.Value = True Then v = 50

If OptionButton4.Value = True Then v = 44

If OptionButton5.Value = True Then v = 55

Label3.Visible = True ‘ делаем метку с текстом видимой Label4.Caption = v ‘выводим значение скорости на форму t = TextBox1.Text ‘ считываем время из поля

s = v * t ‘ вычисляем расстояние Label5.Visible = True ‘ делаем метку с текстом видимой Label6.Caption = s ‘ выводим результат на форму в метку

End Sub

Пример 2

Автомобиль массой m (кг), движущийся со скоростью v1 (км/ч), разгоняется до скорости v2 (км/ч) за t секунд. Вычислить ускорение автомобиля a (м/с2) и силу F (Н), необходимую для преодоления инерции автомобиля по формулам

a = (v2 −v1) 10 ; F = m a. 36 t

На форме разместим поля для ввода массы автомобиля и времени разгона, кнопку Ввод для ввода начальной и конечной скоростей (у вещественного числа дробная часть отделяется запятой), кнопки Вычислить и Выход, а также метки для вывода результатов.

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

39