Условия в VB
Условия в 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
Нет комментариев. Ваш будет первым!