Приложение: logika_radio_flag.rar;
flags_1.rar

Занятие 21.2.   Булева логика, переключатели, флажки.

Задание 1.  Модифицируем  пример "Выбор цвета" занятия 21.1.

Добавьте в проект элемент управления - флажок.

С помощью  логической операции And создайте составное условие, которое будет проверять установку переключателей и состояние флажка.

Интерфейс проекта.

Постройте и запустите проект.

Нажмите кнопку с надписью "Установить цвет" ⇒ цвет не изменится.

Установите флажок "Цвет выбран" и опять щелкните по кнопке "Установить цвет" ⇒ цвет формы изменился, так как  оба простых условия  объединенные в составное логической операцией And истинные и, следовательно,  true And true = true.

Задание 2. 

1. При разработке проекта используется элемент управления ListBox (список).
2.  Для заполнения списка в программном коде проекта используется метод Add (добавляет элемент в список позиций) и свойство Items -получает позицию элемента управления.

PS !!!
Метод - фрагмент программного кода, встроенного в объект.

Методы больше похожи на действия объекта (повернуть налево, остановиться...).

Некоторые методы имеют аргументы, например: MessageBox.Show("Hello")

Вызов метода ⇒  Имя ЭУ.Имя метода(арг1, арг2,..).  Например, Button1.Hide

Методы элемента управления ListBox.

 Интерфейс проекта

    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

Занятие 22

• 2017 Февраль