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. вводить цену одного рулона и вычислял стоимость всех рулонов, необходимых для ремонта.

ЗАВДАННЯ ДО САМОСТІЙНОЇ РОБОТИ № 1 (В,ЛС,ВС).

ЗАВДАННЯ 1.3. ОПРЕДЕЛИТЬ ПЕРИМЕТР И ПЛОЩАДЬ ТРЕУГОЛЬНИКА ПО ТРЕМ ЕГО СТОРОНАМ.

I. Содержательная постановка задачи.

Дано: А, В, С — значения сторон треугольника.

Требуется определить: Р — периметр треугольника, S — площадь треугольника.

Ограничения на значения исходных данных и их соотношения

ü А > 0, В > 0, С> 0

ü А + В > С, А + С > В, В + С > А одновременно (условие существования)

II. Математическая постановка задачи.

Для решения задачи существуют готовые формулы:

Р = А + В + C;

S=SQR(Рр·(Рр-А).(Рр-В).(Рр-С)) (формула Герона),

где Рр = Р /2 – полупериметр