Практическое задание Создание приложения для вычисления площади треугольника

Создание формы

Рис. 15 Диалоговое окно приложения.

• в поле Name, Label1 заменим на lblNaznachenie, Label2 на lblPoyasnenie ( для меток используется префикс lbl);
• установите подписи для свойства Caption согласно Рис. 15;
• в поле BackColor установим цвет, соответствующий цвету фона формы.
• для форматирования текста надписи используется свойство Font. При его выборе в правом столбце появляется кнопка, при нажатии на которую открывается диалоговое окно Шрифт;
• для выбора цвета шрифта отвечает свойство ForeColor (Цвет переднего плана).Label.
  

Для вычисления площади нам необходимо знать стороны треугольника.Исходную информацию программа может получить из текстового поля (TextBox), а также с помощью системной функции InputBox, которая позволяет вводить данные через системное окно.Конечные или промежуточные результаты программа может выводить в поле вывода текста Label, текстовое окно или в окно сообщения (системная функция MsgBox).

• для свойства Name текстовых полей– txta, txtb, txtc (для текстовых полей используется префикс txt);
  
•  в поле свойства Text удалим все записи (свойство Text отвечает за то, что будет написано в текстовом поле по умолчанию).

• в поле Name – lblRezultat;
• в поле Caption удалите надпись;
• цвет, соответствующий цвету фона формы.

Создадим командную кнопку – элемент CommandButton при нажатии на которую будет производиться расчет площади треугольника. Установим следующие свойства:

• в поле Name – cmdRaschet;
  
• в поле Caption  - Вычисление;
• для форматирования надписи воспользуемся свойством Font (Шрифт);
• для возможности графического оформления кнопки в поле Style установим значение 1 – Graphical;
• в поле BackColor установим цвет фона кнопки.

Создание программного кода.

Основную работу в программе выполняют процедуры обработки событий. Процедуры обработки событий представляют собой программные коды, написанные на языке Visual Basic и выполняемые при наступлении связанных с ним событий.Созданная кнопка сейчас служит лишь украшением окна. При щелчке на нее должно происходить какое-то событие, но наша программа об этом событии пока ничего не знает. Теперь наша задача указать программе, что она должна делать при щелчке на кнопке. То есть теперь мы должны написать программный код, по которому будет обрабатываться щелчок.Зададим реакцию на кнопку «Вычисление». Чтобы задать реакцию на кнопку, выделите ее на форме, затем дважды щелкните. Откроется окно кода формы (Рис. 16).

Рис. 16 Окно кода формы frmTreugolnik.

При нажатии на кнопку «Вычисление» программа должна вычислить площадь треугольника по формуле Герона, используя параметры треугольника, введенные в текстовые окна. Откроем окно редактирования кода, для этого дважды нажмем на кнопку «Вычисление». Чтобы вычислить площадь треугольника нужно ввести длины сторон треугольника. Для ввода значений мы будем использовать текстовые окна.

Процедура обработки события Click кнопки cmdRaschet:

Private Sub cmdRaschet_Click()

Dim a As Single, b As Single, c As Single   объявляем переменные (длины сторон) как вещественные с одинарной точностью;

Dim p As Double, S As Double          переменные которые будут вычисляться в программе объявим как вещественные с двойной точностью;

a = Val(txta.Text)      текст введенный в текстовое поле txtaVal и присваиваем значение переменной a; преобразуем в число с помощью функции

b = Val(txtb.Text)

c = Val(txtc.Text)

p = (a + b + c) / 2     вычисляем полупериметр треугольника, используя введенные значения длин сторон;

S = Sqr(p*(p-a)*(p-b)*(p-c)) вычисляем площадь треугольника по формуле Герона (Sqr – корень квадратный);

lblRezultat.Caption = Str(S) помещаем полученный результат в метку lblRezultat, предварительно переводим числовую переменную S в текстовую с помощью функции Str.

End Sub

Private Sub cmdRaschet_Click()

Dim a As Single, b As Single объявляем типы переменных

Dim s As Double

a = Val(InputBox("Введите ширину прямоугольника", "Ввод данных")) вводим ширину прямоугольника с помощью системной функции InputBox и присваиваем введенное значение переменной a. Функция Val переводит текстовое значение в числовое.

b = Val(InputBox("Введите длину прямоугольника", "Ввод данных"))  аналогично вводим длину прямоугольника и присваиваем ее переменной bи переводим в число.

s = a * b вычисляем площадь прямоугольника;

txtRezultat.Text = Str(s)   полученный результат переводим в текст и помещаем в текстовое окно txtРезультат;

MsgBox "Площадь прямоугольника равна"&Str(s), vbInformation + vbOKOnly, "Результат"  выведем результат также в окно сообщений.

End Sub

Напишем процедуру обработки события Click кнопки cmdVihod:

Private Sub cmdVihod_Click()

End – завершает работу программы

End Sub

Проверим работу программы. Для этого на панели инструментов нажмем кнопку Start (синий треугольник), либо выполним команду StartRun. меню