Четверг, 28.03.2024, 16:24
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

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


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


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

Приложение: calk3.rar

Занятие 24.  Итог. Примеры. 

Оператор  If-Then-End If

I.   Неполная форма ветвления

Синтаксис записи:

Вариант 1. Вариант 2.

 If <условие > Then
                       Оператор 1
                       Оператор 2

                      ……
                      Оператор n
 End If

If <условие > Then       Оператор 1:  Оператор 2: ………:  Оператор n

II.  Полная форма ветвления

Синтаксис записи:

Вариант1. Вариант 2.
  If  <условие >   Then      <Операторы 1>   Else         <Операторы 2>

 If  <условие >   Then
                 <Операторы 1>
 Else
                  <Операторы 2>
 End If

III.  Многострочный оператор.

В языке Visual Basic.NET вложенные  операторы ветвления If имеют вид:

Вариант 1. Вариант 2.
  

If  <условие 1>  Then

                   <Операторы 1>

Elself   <условие 2>  Then

                 <Операторы 2>

End If

 

   if <условие 1> then
   <Операторы 1>
 else if <условие 2> then
   <Операторы 2>
. . .
 else if <условие n-1> then
   <Операторы n-1>
 else
   <Операторы n>
​ end if

 

IV.  Оператор   Select Case  выглядит следующим образом:

  Select Case  Имя_Переменной

Case X
       Операторы 1
Case Y
      Операторы 2
Case Z
     Операторы З
End Select  
Данный оператор говорит Visual Basic .NET:

   Проверь значение переменной Имя_Переменной.

  • если оно совпадает со значением X, выполни набор команд Операторы 1
  • если со значением Y — выполни набор команд Операторы 2,
  • если со значением Z — выполни набор команд Операторы З.

Пример.

Select Case Оценка

Case 5
 TextBox1.Text = "Отлично"
Case 4
 TextBox1.Text = "Хорошо, но можно лучше"
Case 3
 TextBox1.Text = "Вы способны на большее.Попробуйте еще раз"

Case 2
 TextBox1.Text = "Нет, сегодня не Ваш день"
End Select

Обратите внимание, что:

  1. здесь уже не нужно каждый раз повторять такие слова, как E l s e l f и Then.
  1. в операторе Select Case нет ограничения на количество строк Case, поэтому вы можете создать их столько, сколько нужно для учета всех возможных вариантов.

 

V.  Использование оператора  Select Case с операторами сравнения.

Обычно оператор Select Case проверяет точное совпадение значения переменной с несколькими заданными значениями. Но если использовать его совместно с операторами сравнения, такими как <, <=,>,>=,<>, можно проверять принадлежность значения переменной к разным диапазонам значений.

Чтобы оператор Select Case и операторы сравнения можно было использовать вместе, перед каждым оператором сравнения нужно добавить ключевое слово is :

Пример.

Select Case Показатель
Case is > 20
TextBox1.Text = "Хороший результат"
Case is > 10
TextBox1.Text = "Попробуйте еще раз"
End Select

Этому коду эквивалентен код с использованием оператора If-Then:

If  Показатель > 20 Then
TextBox1.Text = "Хороший результат"
Elself  Показатель > 10 Then
TextBox1.Text = "Попробуйте еще раз"
End If

Примеры реализации ветвления.

Пример 1
Интерфейс проекта

Программный код 

 Public r, g As Integer
    Public b As Integer
    

    Private Sub CheckBox1_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CheckBox1.CheckStateChanged

        If CheckBox1.Checked Then
            r = 255

        Else
            r = 0
        End If
        Me.BackColor = System.Drawing.ColorTranslator.FromOle(RGB(r, g, b))

    End Sub
    

    Private Sub CheckBox2_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CheckBox2.CheckStateChanged
        If  Check
Box2.Checked Then
            g = 255
        Else
            g = 0
        End If
        Me.BackColor = System.Drawing.ColorTranslator.FromOle(RGB(r, g, b))

    End Sub
    
    Private Sub Check
Box3_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CheckBox3.CheckStateChanged
        If  Check
Box3.Checked Then b = 255 Else b = 0
        Me.BackColor = System.Drawing.ColorTranslator.FromOle(RGB(r, g, b))
        Me.BackColor = Color.Blue
    End Sub
    
    Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles
Button1.Click
        End
    End Sub
    
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        r = 0:         g = 0 :         b = 0
        Me.BackColor = System.Drawing.ColorTranslator.FromOle(RGB(r, g, b))
    End Sub

Пример 2.
Интерфейс проекта

Программный код

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If  RadioButton1.Checked = True Then Me.BackColor = Color.Red
End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If  RadioButton2.Checked = True Then Me.BackColor = Color.Yellow
 End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If  RadioButton3.Checked = True Then Me.BackColor = Color.Green
 End Sub

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

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Blue
        RadioButton1.Checked = False
        RadioButton2.Checked = False
       
RadioButton3.Checked = False
    End Sub

Пример 3.   Разработка проекта "Арифметический калькулятор"  (по страницам Интернет - редактирование)

Вариант 1

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

Программный код проекта
    
Dim x As Integer 'для хранения кода арифметической операции
    Dim a As Single 'для хранения значения первого аргумента
    Dim b As Single 'для хранения значения второго аргумента
    Dim c As Single   'для хранения значения результата

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  'процедуры Private Sub Button1_Click-Private Sub Button10_Click: формируется значение первого аргумента
        TextBox1.Text = TextBox1.Text + "1" 
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text + "2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text + "3"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text + "4"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text + "5"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text + "6"

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text + "7"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text + "8"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text + "9"
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text + "0"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        x = 1
   'код операции сложения
        a = Val(TextBox1.Text)    'набранный первый аргумент запоминается в переменной а
        TextBox1.Text = "" 'освобождение текстового поля для ввода следующего аргумента 
  End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        x = 2  
'код операции вычитания
        a = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        x = 3            'код операции умножения
        a = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        x = 4  
 'код операции деления
        a = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

      Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click     'кн. Вычислить

        b = Val(TextBox1.Text)               'набранный второй аргумент запоминается в переменной b
        Select Case x   'выполняется анализ значения переменной х и выполняется согласно коду арифметическая операция

            Case 1 : c = a + b
            Case 2 : c = a - b
            Case 3 : c = a * b
            Case 4
                If b <> 0 Then

                    c = a / b
                Else
                    MessageBox.Show("Деление на  0 не допустимо!")
                End If
        End Select

        TextBox1.Text = Str(c) 'вывод результата операции в текстовое поле
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click   'кн. Очистить
        TextBox1.Text = ""
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click   'кн.Округление
        a = Val(TextBox1.Text) 
  'результат операции присваивается переменной а
        b = a - Int(a)   'переменной b присваивается десятичная часть результата операции
        If b >= 0.5 Then
            TextBox1.Text = Int(Val(TextBox1.Text)) + 1
'целая часть результата операции увеличивается на 1
        Else
            TextBox1.Text = Int(Val(TextBox1.Text))
        End If
    End Sub

 

Занятие 24.1

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

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