Условия в VB

Условия в Vb

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

2 Устанавливаем имя кнопки Посчитать в поле Text в свойствах (Properties).

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

4 Размещаем 2 элемента TextBox в форму. В эти элементы мы будем записывать рост и вес человека.

Размещаем пояснительные метки на форме рядом с элементами TextBox, и называем их Масса и Рост.

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

Чтобы обработать нажатие кнопки, жмем два раза на кнопку Посчитать. Переходим в функцию обработки нажатия кнопки. 
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
Формула для расчёта индекса Кетле:

Функция в VB Math.Pow(x, y) возводит число x  в степень y, следовательно формула для расчёта индекса Кетле будет задаваться выражением

i = m / Math.Pow(h / 100, 2)
Выводим индекс Кетле в форму, изменяя свойство Text метки:
Label3.Text = i
Для определения избытка или недостатка веса мы должны сравнить полученный индекс Кетле с пороговыми значениями из таблицы.

Для сравнения индекса Кетле необходимо использовать условный оператор if

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

If условие Then
действия, которые выполняются в случае выполнения условия
End If

Чтобы задать условия на вхождения индекса Кетле в определённый интервал, необходимо использовать логическую операцию And.
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

Поделиться: