Пример разработки приложения
Построим приложение, в котором осуществим пересчет значений веса из граммов в фунты.
Разработка формы(рис.3):
Поместите на форму метку Label1. КомпонентLabel1предназначен для вывода статического текста, например, для заголовков. СвойствоCaptionсодержит текст, отображаемый в метке. Текст метки можно изменять в окне свойств или динамически в ходе программы. Установите свойствоCaptionравным «Введите значение веса в граммах».
Рядом поместите еще одну метку (Label2). Задайте свойствуCaptionзначение «Результат».
Под первой меткой установите компонент TextBox1, под второй меткуLabel3, в которой очистите свойство Caption. КомпонентTextBoxпредставляет собой текстовое поле. Этот компонент имеет фокус ввода и, следовательно, может служить окном ввода данных.
Установите на форму компонент CommandButton. Этот компонент представляет собой командную кнопку. В графическом интерфейсе Windows командные кнопки связывают с определенными действиями. Измените свойствоCaptionдля кнопки на «Расчет».
Измените шрифт текста в метках и на кнопке, воспользовавшись свойством Fontкаждого из компонентов. Измените цвет шрифта с помощью свойстваForeColor.
Запустите приложение на выполнение (клавиша <F5>).
Рисунок 3. Форма для общего примера.
В данном приложении расчет не выполняется. Для того, чтобы придать форме функциональность, необходимо написать код.
Написание кода:
Каждой форме соответствует окно кода, в котором записываются операторы программы. Текст программы составляется по специальным правилам и описывает алгоритм работы программы. Такая программа делает форму функциональной. Окно кода вызывается командой View | Codeили функциональной клавишейF7,или кнопкойView Code(расположена слева с краю над надписьюVBAProject).
Сделайте двойной щелчок по кнопке или нажмите F7.
В окне кода в верхней части два выпадающих списка. В левом отображаются имена компонентов, установленных на форму. В правом — события, на которые может откликаться компонент. В окне кода имеется заготовка процедуры, которая будет выполняться при нажатии на кнопку (обработчик события). Событие Click(по щелчку) возникает в работающей программе при щелчке по кнопке мышью.
Private Sub CommandButton1_Click()
End Sub
В имени процедуры указаны имя компонента и событие, которое обрабатывается этим компонентом.
Чтобы вставить в окно новую строку (строки), нужно сначала с помощью клавиш курсора или щелкнув по окну мышью поставить текстовый указатель на нужное место, а затем с помощью клавиатуры ввести текст. Между служебными словами SubиEndвведите следующие операторы языкаVBA:
x = Val(TextBox1.Text)
y = x / 400
Label3.Caption = Str(y) + " Фунт."
В первом операторе присваивания переменная Х принимает значение, введенное в окно редактора. Свойство Text компонента TextBox1 содержит то, что в ходе работы программы вводится в окно пользователем. Свойство Text строкового типа, поэтому необходимо преобразовать его в число (функция Val). Второй оператор присваивания — формула пересчета. Для отображения результата расчета используется свойство метки Caption. Функция Str преобразует число в строку. Строки можно складывать. В метке отобразится результат расчета и слово «Фунт.».
Вместо 3-х строк можно написать одну строку кода, опустив свойства Caption и Text, так как они является свойствами по умолчанию:
Label3 = Val(TextBox1) / 400 & " Фунт."
Осуществите прогон программы, нажав клавишу F5. Введите в окно редактора любое число, нажмите на кнопку «Расчет», и Вы получите результат в меткеLabel3.
Лабораторная работа №2