2015-05-14
374
где ctl – префикс, определяющий тип элемента управления,
Name – информативное с точки зрения функционального назначения имя элемента управления.
Принято использовать следующие префиксы:
| Объект | Префикс |
| форма | frm |
| рисунок | pic |
| метка | lbl |
| командная кнопка | cmd |
| изображение | img |
| текстовое поле | txt |
Напишите программные коды
Прежде чем приступить к программированию, необходимо определить те события, для которых необходимо разработать алгоритмы и описать их на языке программирования (составить программный код). В нашем примере есть два события: щелчок мышью по командной кнопке ПУСК и щелчок мышью по командной кнопке ВЫХОД. Первое событие должно запустить программу вычисления площади стен комнаты, а второе – завершить работу программы.
Алгоритм вычисления площади стен комнаты:
ü Ввести три числа: A, B, H – длину, ширину и высоту.
ü Вычислить площадь стен комнаты по формуле: S=2*(A+B)*H
ü Вывести результат: число S – площадь стен.
а) Дважды щелкните по командной кнопке ВЫХОД и Вы окажетесь [5] в Окне программного кода (Как открыть окно программного кода показано в первой части).
б) Процедура обработки события щелчок мышью по командной кнопке ВЫХОД должна иметь следующий вид:
Private Sub cmdВыход_Click() ‘Формат имени процедуры: Объект_Событие()
End ‘Оператор завершения программы
End Sub
в) Выберите в списке левого окна другой объект управления – cmdПуск,
а в списке правого окна оставьте событие Click.
г) Процедура обработки события щелчок мышью по командной кнопке ПУСК должна иметь следующий вид:
Private Sub cmdПУСК _Click()
LblЗаголовок.ForeColor = QBColor(1) 'изменение цвета символов заголовка
LblФормула.ForeColor = QBColor(1) 'изменение цвета символов формулы
frmПлощадьСтен.BackColor = QBColor(11) 'изменение цвета формы
A = Val(txtДлина.Text) 'Присваивание переменной А, значения, введенного в 'текстовое поле txtДлина
B = Val(txtШирина.Text) 'Присваивание переменной В, значения, введенного в текстовое поле txtШирина
H = Val(txtВысота.Text) ‘Присваивание переменной H, значения, введенного в текстовое поле txtВысота
S = 2 * (A + B) * H ‘Вычисление значения площади и присвоение вычисленного значения переменной S
txtРезультат.Text = Str(S) ‘Вывод результата в текстовое поле txtРезультат
