lign="justify"> h = Val (TextBox2.Text)
If A <0 Or h <0 Then
Label7.Text = "Помилка"
Label8.Text = "Помилка"
Else: S = obj.PL (A, h)
Label7.Text = CStr (S)
Label8.Text = "Прямокутник"
End If
End SubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim A, h, B, S As Integer
A = Val (TextBox1.Text)
B = Val (TextBox2.Text)
h = Val (TextBox3.Text)
If A <0 Or B <0 Or h <0 Then
Label7.Text = "Помилка"
Label8.Text = "Помилка"
Else: S = obj.PL (A, B, h)
Label7.Text = CStr (S)
Label8.Text = "Трапеція"
End If
End SubClassClass Figure
Public Function PL (ByVal R As Double) As Double
Return (Math.PI * R * R)
End Function
Public Function PL (ByVal A As Double, ByVal h As Double) As Double
Return (A * h)
End Function
Public Function PL (ByVal A As Double, ByVal B As Double, ByVal h As Double) As Double
Return ((A + B) * h/2)
End FunctionClass
В
Малюнок 6 - Екранна форма
3. Керівництво користувача
Програма В«Обчислення геометричних площВ» запускається подвійним клацанням лівої миші по ярлику, після чого на екран виводиться вікно зі списком фігур, для яких обчислюється площа:
Радіус, довжина сторін і висота прямокутника і трапеції задаються у верхньому, середньому і нижньому полях під фразою В«Ввести числа:В».
Для того щоб розрахувати площу кола, необхідно ввести число у верхньому полі. Щоб обчислити площу прямокутника, треба вказати довжину сторін у верхньому і середньому полях. Для трапеції дані вводяться в усіх трьох полях. p align="justify"> Після введення даних необхідно натиснути на кнопку або В«КругВ», або В«ПрямокутникВ», або В«ТрапеціяВ», залежно від того який фігури ви хочете знайти площу.
Результат обчислення і назва фігури, для якої знаходилася площа, можна побачити у вікні В«ПлощаВ».
Для повторення операції необхідно ввести нові дані і натиснути на будь-яку з кнопок, де вказана фігура, для якої потрібно знайти площу.
Числове значення не може бути задане негативним числом. У цьому випадку програма буде видавати помилку:
В
Малюнок 7 - Помилка програми