Приложение: logika_radio_flag.rar;
flags_1.rar
Занятие 21.2. Булева логика, переключатели, флажки.
Задание 1. Модифицируем пример "Выбор цвета" занятия 21.1.
Добавьте в проект элемент управления - флажок.
С помощью логической операции And создайте составное условие, которое будет проверять установку переключателей и состояние флажка.
Интерфейс проекта.
Постройте и запустите проект.
Нажмите кнопку с надписью "Установить цвет" ⇒ цвет не изменится.
Установите флажок "Цвет выбран" и опять щелкните по кнопке "Установить цвет" ⇒ цвет формы изменился, так как оба простых условия объединенные в составное логической операцией And истинные и, следовательно, true And true = true.
Задание 2.
- При разработке проекта используется элемент управления ListBox (список).
- Для заполнения списка в программном коде проекта используется метод Add (добавляет элемент в список позиций) и свойство Items -получает позицию элемента управления.
PS !!!
Метод - фрагмент программного кода, встроенного в объект.
Методы больше похожи на действия объекта (повернуть налево, остановиться...).
Некоторые методы имеют аргументы, например: MessageBox.Show("Hello")
Вызов метода ⇒ Имя ЭУ.Имя метода(арг1, арг2,..). Например, Button1.Hide
Методы элемента управления ListBox.
Метод |
Описание |
Items.Add |
Добавить элемент в список (по умолчанию - в конец) |
Items.Insert |
Вставит элемент в список |
Items.Remove |
Удаляет элемент с заданным значением из списка |
Items.RemoveAt |
Удаляет элемент с заданным индексом из списка |
Items.Clear |
Очищает список |
Интерфейс проекта
Public b, a, p As Object 'объявление глобальных переменных
Public s As Short
Public d As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(InputBox("a=", "ввод данных"))
b = Val(InputBox("b=", "ввод данных"))
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then 'если установлен флажок CheckBox1
p = (a + b) * 2
ListBox1.Items.Add(p & " cм")
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then 'если установлен флажок CheckBox2
s = a * b
ListBox1.Items.Add(s & " cм^2")
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then 'если установлен флажок CheckBox3
d = System.Math.Sqrt(a ^ 2 + b ^ 2)
ListBox1.Items.Add(d & " cм")
End If
End Sub
Private Sub Check4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Check4.CheckedChanged
If Check4.Checked Then 'если установлен флажок Check4
ListBox1.Items.Clear()
CheckBox3.Checked = False
CheckBox1.Checked = False
CheckBox2.Checked = False
End If
End Sub