Условия в 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)

Функция Math.Pow(x, y) возводит число x  в степень y

Выводим индекс Кетле полученное  в форму, изменяя свойство Text метки:

Label3.Text = i

Сравниваем полученные результаты с таблицей индексов Кетле:

Чтобы прописать данные условия используем условия в 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

Полная версия программы:

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

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

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