Вторник, 12.11.2019, 17:30
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Приложение: 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.

Метод

Описание

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

Занятие 22

   

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz