Создание пользовательских форм

ЛАБОРАТОРНАЯ РАБОТА 7

СОЗДАНИЕ ПОЛЬЗОВАТЕЛЬСКИХ ФОРМ

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

Краткие теоретические сведения

Для вставки пользовательской формы в редакторе VBA необходимо выполнить команду Insert – UserForm (Вставка – Экранная форма).

В рабочую книгу будет вставлена экранная форма.

Новая форма представляет собой пустое серое окно со строкой заголовка. Это та основа, на которой пользователь может создать собственные окна любых типов. Обычно в экранную форму добавляются необходимые элементы управления. Если панель элементов не отображена на экране, выполните команды Вид – Панель элементов (View-Toolbox)

Рис. 1. Пользовательская форма. Панель инструментов

Задание 1

В данной работе для варианта 2 требуется:

Разработать интерактивное приложение для вычисления площади боковой поверхности конуса S=RL.

Исходные данные: радиус основания (R), образующая конуса (L).

Ход работы:

1. Создадим форму (см. рисунке).

2. Напишем программу, выполняющую следующие функции: пользователь вводит в текстовые поля радиус основания конуса и длину ее образующей;

• при нажатии кнопки «Расчет» в текстовом окне выводится результат вычислений;

• при нажатии кнопки «Сброс» текстовые окна очищаются.

• при нажатии кнопки «Выход» программа завершает работу.

• расчетная формула: S = π∙R∙L, где R и L – значения радиуса основания и образующей конуса.

Первая часть - визуальное программирование

1. Запустим редактор VBA.

2. Добавим пользовательскую форму командой Insert – UserForm.

3. Даем имя формы в соответствии с рисунком 2.1, присвоив свойству Caption значение «Лабораторная работа по теме Создание пользовательских форм».

4. Размещаем на форму объект Image, разместив в нем рисунок.

5. Размещаем на форму пять Меток, присвоив: свойству Caption - значения «Площадь боковой поверхности конуса», «Ввод данных», «Радиус основания», «Длина образующей», «Результат: » соответственно; свойству Font (шрифт) - шрифт Tahoma, размер 16, полужирный.

6. Размещаем на форму три Текстовых окна; измените свойство Font (шрифт), выбрав шрифт Tahoma, размер 16, полужирный.

7. Размещаем на форму три Командные кнопки, изменив их размеры и свойство Caption на «Расчет», «Сброс» и «Выход», соответственно (см. рисунок).

Вторая часть - написание кода программы:

1. Нажатие командной кнопки «Результат». В процедуре обработки данного события применили встроенную функцию val, чтобы присвоить переменным R и L значения введенных пользователем радиуса основания конуса и образующей (функция Val преобразует символы в числовое выражение).

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

3. В третьем текстовом окне выводим результат вычислений

Private Sub CommandButton1_Click() 'очистка окон

TextBox1 = "" 'текстовое окно для ввода радиуса основания конуса

TextBox2 = "" 'текстовое окно для ввода длины образующей конуса

TextBox3 = "" 'текстовое окно для вывода полученного результата

End Sub

Private Sub CommandButton2_Click() 'выход из программы

End

End Sub

Private Sub CommandButton3_Click() ' ввод данных и вычисление по формуле

R = Val(TextBox1) 'радиус основания конуса

L = Val(TextBox2)