Лекция8(4) Программирование на VBA
.pdf
КОНСТРУИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОЙ ФОРМЫ для задачи «треугольник»
Label – Надписи |
|
|
TextBox - Поля |
Label - Надписи |
|||||||
|
|
||||||||||
|
|
||||||||||
|
|
|
|||||||||
|
|
|
|
|
|||||||
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
Label - Надпись |
||
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
TextBox - Поле |
||
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
ListBox-Список |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CommonButton-Кнопка
SpinButton-Счетчик
CeckBox - Флажок 
OptionButton-КнопкаВыбора
Лекция 8. Информатика, часть 2 |
31 |
КОНСТРУИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОЙ ФОРМЫ для задачи «треугольник»
На Форме установлено: 3 объекта TextBox, 11 объектов Label , 1 объект
CommonButton .
Для размещения объекта управления, щелкнуть ЛКМ по нему на ПИ «ToolBox», перевести указатель в область формы, нажать ЛКМ и отрисовать объект нужного размера
Лекция 8. Информатика, часть 2 |
32 |
Объект. Свойство Name(имя)
Окно свойств |
Форма |
Свойство Name
присуще всем объектам.
Для однотипных объектов к имени объекта добавляется номер.
Лекция 8. Информатика, часть 2 |
33 |
Объект. Свойство Caption (надпись)
Окно свойств |
|
|
Форма |
Свойство Caption |
|
|
|
присуще не всем |
|
|
объектам. |
|
|
Например: |
|
|
Объект UserForm - |
|
|
надпись в |
|
|
заголовке. |
|
|
Объект Label и |
|
|
CommandButton - |
|
|
надпись на |
|
|
объекте. |
|
|
|
Задать (изменить) Свойство объекта можно в окне свойств или программно. Программное задание свойств Caption.
UserForm1.Caption = ‘’Вычисление высот треугольника” CommandButton1.Caption= “ВЫЧИСЛИТЬ” Label1.Caption = “a”
Свойство Caption для объекта Label6
Окно свойств |
Форма |
Лекция 8. Информатика, часть 2 |
35 |
Программирование отклика на событие – «щелчок мышью по кнопке ВЫЧИСЛИТЬ»
1.Что должно произойти в компьютере, если вы щелкните по кнопке своей программы? - Должны выполнится действия соответствующие вашему заданию.
2.Как это запрограммировать?
2 раза щелкните мышью по кнопке «ВЫЧИСЛИТЬ» (для
задачи treugolnik)
В окне модуля появиться текст
Private Sub CommandButton1_Click()
End Sub
•Это начало и конец будущей программы обработки события.
Между этих строк нужно написать текст программы обработки события Click.
Лекция 8. Информатика, часть 2 |
36 |
Программирование отклика на событие – «щелчок мышью по кнопке ВЫЧИСЛИТЬ»
Private Sub CommandButton1_Click()
сюда ввести текст программы
End Sub
Что нужно написать в программе?
1.Описать переменные.
2.Описать ввод исходных данных , используя объекты – TextBox.
3.Вычислить результат.
4.Описать вывод результатов, используя объекты Label
иих свойство Caption.
Лекция 8. Информатика, часть 2 |
37 |
Текст программы обработки события Click – (щелчок мышью по кнопке «ВЫЧИСЛИТЬ»)
Private Sub CommandButton1_Click() 'ОПИСАНИЕ ПЕРЕМЕННЫХ
Dim a As Single, b As Single, c As Single ' исходные данные Dim p As Single, t As Single 'промежуточные данные
Dim ha As Single, hb As Single, hc As Single 'результат 'ВВОД ИСХОДНЫХ ДАННЫХ
a = TextBox1.Value b = TextBox2.Value
c = TextBox3.Value
'ВЫЧИСЛЕНИЯ - РЕШЕНИЕ ЗАДАЧИ
p = (a + b + c) / 2 t = 2 * Sqr(p * (p - a) * (p - b) * (p - c))
ha = t / a: hb = t / b: hc = t / c 'ВЫВОД РЕЗУЛЬТАТОВ
Label9.Caption = Str(ha)’ Str –функция перевода числа в строку Label10.Caption = Str(hb)
Label11.Caption = Str(hc) End Sub
Лекция 8. Информатика, часть 2 |
38 |
Результат работы Программы обработки события CommandButton1 _ Click
Объект Поле TextBox
Объект Форма UserForm
Объект Кнопка
CommandButton
Лекция 8. Информатика, часть 2
Объекты
Надпись Label
39
Форма2 (UserForm2)
Кнопка «Запуск модуля» - запускает модуль treugolnik
Кнопка «Запуск формы» - открывает Форму1
Кнопка «Отмена» -закрывает Форму2
Свойству UserForm2 . Picture присвоено значение – имя файла картинки
Лекция 8. Информатика, часть 2 |
40 |