Условия в VB

15 октября 2018 - Администратор

Условия в Vb

На  этом уроке мы разберём, условные алгоритмы в Vb, разберём условие If в VB, разберём условные операторы в VB. Мы реализуем программу, в Vb с помощью которой можно расчитать, есть ли у вас недостаток веса или его избыток. Программа должна показывать индекс Кетле, в зависимости от которого можно расчитать отклонение массы вашего тела от нормы.
Пошагово разберём создание программы. Для начала создадим интерфейс программы:
1   Размещаем кнопку на форме. В Toolbox  выбираем Button и мышкой перетаскиваем его на форму.
Для этого выбираем кнопку (Button) в Toolbox. Работа с этими элементами в уроке Ввод и вывод 

2.       Перетаскиваем ее в форму. Меняем её имя в поле Text в свойствах (Properties) вводим Посчитать.

3.   Размещаем элемент Label (метка). В неё выводится фиксированный текст или заглавие чего-то.

4.     Размещаем элемент TextBox, с которого мы будем считывать данные о массе и о росте человека для расчёта индекса Кетле.

В расставленных метках и в кнопке в свойствах (Properties) в поле Text меняем текст. Меняем значение в поле Text в свойствах (Properties). Выводим четыре метки: Масса [кг], Рост [см], Результат.

В итоге должен получиться подобный интерфейс.

После того как мы подготовили интерфейс, чтобы обработать нажатие кнопки, жмем два раза на кнопку. Переходим в функцию обработки нажатия кнопки. 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub

В этой функции мы считаем значение с текстовых полей, по определённой формуле вычислим индекс Кетле и выведем в поле Label (Результат).
Для начала введём три целочисленных переменных: m, h, i.  m отвечает за массу человека в кг, h отвечает за рост человека в см, i отвечает за индекс Кетле, выводимый на экран.Переменные служат для хранения и обработки информации, у каждой переменной есть имя и тип. Перед работой с переменной ее необходимо объявить. Для объявления переменной в Vb  используется ключевое слово Dim. Чтобы задать переменную, нужно указать

Dim [имя переменной] As [тип переменной]
Integer – целочисленный тип, Double – число с плавающей точкой. 
В переменную m считаем с текствого поля TextBox1 значение массы человека с помощью обращения к свойству Text
В переменную h считаем с текствого поля TextBox2 значение роста человека с помощью обращения к свойству Text
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m, h, i As Double
        m = TextBox1.Text
        h = TextBox2.Text
    End Sub

Формула для расчёта индекса Кетле:


Запишем её:
i = m / Math.Pow(h / 100, 2)
Функция в VB Math.Pow(x, y) возводит число x  в степень y
Выводим индекс Кетле полученное  в форму, изменяя свойство Text метки:
Label3.Text = i
Сравниваем полученные результаты с таблицей индексов Кетле:

Условный оператор if задается в VB следующим образом
If условие Then
действия, которые выполняются в случае выполнения условия
End If

Чтобы прописать  условия на индекс Кетле используем оператор if условия в Vb:
If i > 18.5 And i < 25 Or i = 25 Then
            Label3.Text = "Масса вашего тела находится в пределах нормы."
End If

Чтобы выполнялись одноврменно оба условия, в операторе if используется логическая операция И ключевое слово And
Чтобы выполнялось хотябы одно условие,  в оперторе If используется логическая операция ИЛИ ключевое слово Or
Для того , чтобы  переменная x  находилось в диапазоне от  a до b, необходимо использовать условие:
If  x>a And x< b Then
нужное действие
End If

Полная версия программы на Vb теста Кетле:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m, h, i As Double
        m = TextBox1.Text
        h = TextBox2.Text
        i = m / Math.Pow(h / 100, 2)
        Label3.Text = i
        If i < 16 Or i = 16 Then
            Label4.Text = "У вас выраженный дефицит массы тела."
        End If
        If i > 16 And i < 18.5 Or i = 18.5 Then
            Label4.Text = "У вас дефицит массы тела."
        End If
        If i > 18.5 And i < 25 Or i = 25 Then
            Label4.Text = "Масса вашего тела находится в пределах нормы."
        End If
        If i > 25 And i < 30 Or i = 30 Then
            Label4.Text = "У вас избыток массы тела."
        End If
        If i > 30 And i < 35 Or i = 35 Then
            Label4.Text = "У вас ожирение."
        End If
        If i > 35 And i < 40 Or i = 40 Then
            Label4.Text = "У вас резкое ожирение."
        End If
        If i > 40 Then
            Label4.Text = "У вас огромный избыток массы тела."
        End If
    End Sub
End Class

  Перейти к содержанию       Перейти к следующему уроку Циклы в Vb

Полезно почитать по теме пример на условия в Vb
Поиск решения уравнения на Vb перебором
Тест на vb

Поделиться:

 
Комментарии (0)

Нет комментариев. Ваш будет первым!