3. Напишите программные коды

Прежде чем приступить к программированию, необходимо определить те события, для которых необходимо разработать алгоритмы и описать их на языке программирования (составить программный код). В нашем примере есть два события: щелчок мышью по командной кнопке ПУСК и щелчок мышью по командной кнопке ВЫХОД. Первое событие должно запустить программу вычисления площади стен комнаты, а второе – завершить работу программы.

Алгоритм вычисления площади стен комнаты:

• Ввести три числа: A, B, H – длину, ширину и высоту.

• Вычислить площадь стен комнаты по формуле: S=2*(A+B)*H

• Вывести результат: число S – площадь стен.

а) Дважды щелкните по командной кнопке ВЫХОД и Вы окажетесь⁵ в Окне программного кода (Как открыть окно программного кода показано в первой части).

б) Процедура обработки события щелчок мышью по командной кнопке ВЫХОД должна иметь следующий вид:

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Результат

End Sub

Формат оператора присваивания: Имя переменной = Выражение Объект.Свойство = Значение свойства Функция Val преобразует текстовый аргумент в числовое значение (по умолчанию данные, введенные в текстовое поле, представляются текстовой строкой). Функция Str выполняет обратное преобразование.

4. Отладьте6 программу

а

Рис.1.12

) Запустите программу на выполнение (команда меню Run, Start или кнопка на панели инструментов или клавиша F5). Если появятся сообщения об ошибках, попытайтесь устранить их с помощью преподавателя. Visual Basic предоставляет различные средства отладки, с которыми вы познакомитесь на следующих занятиях. Окно работающего приложения после ввода исходных данных и щелчка по кнопке ПУСК должно иметь следующий вид (рис.1.12).

В окне для вывода результата получено значение площади стен.

б) Проверьте работу кнопки ВЫХОД. Щелчок по ней должен привести к завершению программы. Аналогичный результат будет получен при нажатии на панели инструментов на кнопку или на системную кнопку закрытия окна в правом верхнем углу окна приложения.

в) Измените процедуру обработки события щелчок мышью по командной кнопке ПУСК следующим образом (добавьте три строки в начало процедуры):

Private Sub Form_Load()

lblЗаголовок.ForeColor = QBColor(1) ‘изменение цвета символов заголовка

lblФормула.ForeColor = QBColor(1) ‘изменение цвета символов формулы

frmПлощадьСтен.BackColor = QBColor(11) ‘изменение цвета формы

A = Val(txtДлина.Text)

B = Val(txtШирина.Text)

H = Val(txtВысота.Text)

S = 2 * (A + B) * H

txtРезультат.Text = Str(S)

End Sub

Обратите внимание, что свойства объектов изменены не с помощью окна свойств Properties, а программным путем. QBColor – функция, которая позволяет изменять цвета в зависимости от аргумента.

г) Проанализируйте, какие свойства и как изменились по сравнению с первым вариантом программы.

5. Сохраните проект и форму на своем рабочем диске в папке ЛАБ1 с именами ЛР1_Зад2_P_Фамилия и ЛР1_Зад2_F_Фамилия соответственно.

6. Создайте исполняемое приложение (exe-файл). Для того, чтобы Windows-приложение могло работать независимо от среды проектирования (автономно), нужно произвести трансляцию проекта в исполняемый exe-файл.

• Выполните команды меню File, Make ИмяФайла.exe (ИмяФайла – это имя Вашего проекта, т.е. ЛР1_Зад2.exe). По умолчанию файл создается в той же папке, где сохранен проект.

• Закройте среду разработки программ Visual Basic.

• Запустите на выполнение файл ЛР1_Зад2.exe и убедитесь, что он работает автономно, как любые другие Windows-приложения.

7. * Дополните проект таким образом, чтобы он позволял

7.1. вводить длину и ширину рулона обоев и вычислял необходимое количество рулонов для ремонта комнаты.

7.2. вводить цену одного рулона и вычислял стоимость всех рулонов, необходимых для ремонта.