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


Меню сайта


Статистика

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


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


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

Приложение⇒  проект Check1_CheckedChanged

Занятие 22.1    Множественный выбор

Иногда программам необходимо принимать множество решений одно за другим.
 

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

Решение проблемы в коде можно использовать столько операторов If...Then, сколько нужно. Как и другие операторы, они выполняются в том порядке, в котором встречаются в коде. 
 

Задание. Требуется создать проект, демонстрирующий использование нескольких операторов If...Then.

Предположим, что в программе есть флажок с надписью Тревога.

Если флажок установлен то:

  •  программа изменяет цвет фона формы на красный,
  • текст в текстовом поле на "Пожар",
  • и выводит окно сообщения с текстом "Опасность! Опасность!".

Все это можно сделать с помощью трех операторов If...Then.
Каждый из этих операторов будет проверять, установлен ли флажок:
                                                              если Да (true), то будет выполняться соответствующий код.

 

Алгоритм проекта.                                                                                              Интерфейс проекта.                                                  

                    

Программный код проекта

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then         '
или   If  CheckBox1.Checked  True  Then   
            Me.BackColor = Color.Red 
        End If

        If CheckBox1.Checked = True Then
            TextBox1.Text = "пожар"
        End If

        If CheckBox1.Checked = True Then
            MessageBox.Show("Опасность! Опасность!")
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        Me.BackColor = Color.White

    End Sub

 

II.   Или применяем полную форму оператора ветвления If...Then..Else.

Алгоритм проекта

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

Программный код проекта

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        Me.BackColor = Color.White

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If   CheckBox1.Checked = True  Then

            Me.BackColor = Color.Red
            TextBox1.Text = "пожар"
            MessageBox.Show("Опасность! Опасность!"
,  "тревога!")

                                                                                 Else

            Me.BackColor = Color.Maroon
            Text1.Text = ""
            MessageBox.Show("переключатель не включен",  "тревога!")

 End If

End Sub

 

Или  пишем программный код для обработки события - установки флажка 

  Private Sub Check1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Check1.CheckedChanged
        If Check1.Checked   Then

            Me.BackColor = Color.Red
            Text1.Text = "сигнал тревоги!"
            MessageBox("тревога!",  "тревога")

                              Else

            Me.BackColor = Color.Maroon
            Text1.Text = ""
            MessageBox("переключатель не включен",  "тревога")

        End If
    End Sub

Задания

 

Задание 1

В компьютер вводятся три числа.

Выяснить какое из трех чисел меньше.

 

Задание 2

Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Диму – «Привет», Олега – «Здорово», Джона – «Hi», а остальных – «Здравствуйте». Для Олега, кроме этого, он красит форму в зеленый цвет.

Задание 3

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков образовать треугольник.

Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков. 

Занятие 22.2

 

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

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