- •Лабораторна робота №3. Прапорці та перемикачі в visual basic .Net. Використання прапорців
- •Властивості елементу управління checkbox
- •Обробка події сlickдля елементаcheckbox
- •Використання перемикачів
- •Робота з перемикачами
- •Порядок виконання роботи
- •Реалізація
- •Варіанти завдань
- •Оцінювання
- •Контрольні запитання
Порядок виконання роботи
В процесі самостійної роботи:
Вибрати варіант для індивідуального завдання згідно з вказівками викладача.
Написати програму для свого індивідуального завдання.
Розпочати підготовку звіту по лабораторній роботі.
В навчальній лабораторії:
Створити проект з реалізацією свого індивідуального завдання на ПК.
Відлагодити програму і одержати контрольні результати.
Завершити оформлення звіту.
Здати лабораторну роботу викладачу.
Зміст звіту
Звіт по лабораторній роботі повинен містити:
Титульний лист.
Варіант індивідуального завдання.
Текст програми.
ЗРАЗОК ВИКОНАННЯ ЛАБОРАТОРНОЇ РОБОТИ
Завдання
Дано сторони трикутника. Визначити, чи даний трикутник є прямокутним, обчислити периметр та/або площу. Сторони вводяться в текстові поля, результати виводиться в мітку. Обов’язково забезпечити вибір дій за допомогою перемикачів, а тип даних для виведення – дійсний з вибором виведення знаків після коми.
Обчислення відбувається при натисненні на кнопку «Визначити», очищення текстових полів, полів виведення результату, прапорців та перемикачів відбувається при натисненні на кнопку «Очистити», кнопка «Вихід» забезпечує вихід з програми.
Реалізація
Створюємо проект з назвою «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
Приклад виконання проекту показано на рисунку: