Реалізація
Створюємо проект з назвою «VBlab03». Додаємо на форму наступні елементи керування:
label1 – для запису умови завдання;
label2-label4 – для запису введених даних, тобто сторін трикутника;
label5-label6 – для підпису груп перемикачів та прапорців (можна, також, скористатися контейнерами Panel або GroupBox);
label7-label9 – для запису результатів;
textbox1-textbox3 – текстові поля для введення значень сторін трикутників;
checkbox1-checkbox3 – перемикачі для вибору дій для виконання;
radiobutton1-radiobutton3 – перемикачі для встановлення виведе-ння результатів з відповідною кількість знаків після коми;
button1 – кнопка «Визначити»;
button2 – кнопка «Очистити»;
button3 – кнопка «Вихід».
Форма з елементами керування має наступний вигляд:
Оформимо форму згідно умови задачі (рис. ):
Встановимо розмір форми 440х500. Оскільки результати дії чи дій мають відображатися в мітках (label7-label9), то дані елементи необхідно приховати. Лише після натиснення на кнопці «Визначити» відповідні результати повинні відображатися.
Додамо код для кнопки «Вихід»:
Application.Exit()
Код для кнопки «Очистити»:
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Код для кнопки «Визначити»:
Dim a, b, c As Double
Dim P, S As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If CheckBox1.Checked = True Then
Label7.Visible = True
If ((a * a = b * b + c * c) Or (b * b = a * a + c * c) Or (c * c = a * a + b * b)) Then
Label7.Text = "Трикутник прямокутний"
Else
Label7.Text = "Трикутник не прямокутний"
End If
End If
If CheckBox2.Checked = True Then
P = a + b + c
End If
If CheckBox3.Checked = True Then
S = Math.Sqrt(P / 2 * (P / 2 - a) * (P / 2 - b) * (P / 2 - c))
End If
If RadioButton1.Checked = True Then
If CheckBox2.Checked = True Then
Label8.Visible = True
Label8.Text = "Периметр трикутника дорівнює " & Math.Round(P, 2)
End If
If CheckBox3.Checked = True Then
Label9.Visible = True
Label9.Text = "Площа трикутника рівна " & Math.Round(S, 2)
End If
End If
If RadioButton2.Checked = True Then
If CheckBox2.Checked = True Then
Label8.Visible = True
Label8.Text = "Периметр трикутника дорівнює " & Math.Round(P, 3)
End If
If CheckBox3.Checked = True Then
Label9.Visible = True
Label9.Text = "Площа трикутника рівна " & Math.Round(S, 3)
End If
End If
If RadioButton3.Checked = True Then
If CheckBox2.Checked = True Then
Label8.Visible = True
Label8.Text = "Периметр трикутника дорівнює " & Math.Round(P, 4)
End If
If CheckBox3.Checked = True Then
Label9.Visible = True
Label9.Text = "Площа трикутника рівна " & Math.Round(S, 4)
End If
End If
Приклад виконання проекту показано на рисунку: