Калькулятор ИМТ: 6 шагов

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:52

Меня зовут Умайр бин Асим. Я изучаю Global Perspective, делаю уровни O. Этот проект является частью информационной кампании, которую в настоящее время проводим я и мои одноклассники. Мы признаем ожирение как растущую проблему во всем мире и призываем людей бороться с ожирением, прежде чем оно приведет к серьезной социальной катастрофе. Этот проект - одна из многих наших информационных кампаний.

Калькулятор ИМТ призван облегчить людям расчет индекса массы тела и определение того, страдают ли они ожирением. Сделанный нами калькулятор соответствует стандартам Американской ассоциации здравоохранения. Цель публикации этого сообщения - позволить людям не только создавать калькуляторы, но также позволить людям модифицировать свои калькуляторы в соответствии с их национальными стандартами.

Шаг 1. Создание нового проекта Visual Studio

1. открытая визуальная студия
2. нажмите на новый проект
3. выберите форму заявления вдовы
4. переименуйте проект в «Калькулятор ИМТ»
5. сохраните проект и запомните место (я сохранил его на отдельном диске)

Шаг 2: два раздела

в приложении Visual Studio Windows Form есть два раздела

1) Form1.vb [Дизайн]

здесь вы создаете графический интерфейс

2) Form1.vb

здесь вы пишете свое программирование

вы можете выбирать вкладки, выбирая на них

Шаг 3. Создайте интерфейс (метки и текстовые поля)

на этом этапе вам нужно разработать графический пользовательский интерфейс.

1. выберите метки из доступной панели инструментов (если вы не можете найти панель инструментов, нажмите Ctrl + Alt + x)
2. перетащите метку на форму и расположите ее справа. нам нужно три метки
3. расположите метки слева
4. нажмите на метки и в свойствах измените Autosize на FALSE, это позволит вам изменить размер метки.

5. нажмите на ярлыки и в свойствах измените текст на «рост», «вес», «ваш ИМТ» соответственно.

6. вы также можете изменить другие настройки в свойствах, таких как цвет и 3D-эффект.
7. перетащите три текстовых поля из панели инструментов и выровняйте их по левому краю параллельно меткам
8. щелкните текстовое поле и в свойствах измените настройки имени на «txtheight», «txtweight», «txtresults»
9. вы также можете изменить другие настройки в свойствах, таких как цвет и 3D-эффект.
10. создайте последнее текстовое поле и выровняйте его по низу, назовите это текстовое поле «txtcomment», это даст результат на основе ИМТ людей, так как понимание только на основе чисел может быть затруднено.
11. изменение имени имеет важное значение, поскольку нам придется вызывать эти текстовые поля в нашей программе, если вы предпочитаете указать любое другое имя, вы также должны изменить имя упомянутой кнопки в программе. (имена по моей программе)

Шаг 4: Дизайн интерфейса (кнопки)

разместите кнопки, перетащив их из панели инструментов и выровняв, как показано на рисунке

пока кнопка выбрана, измените имя кнопки в свойствах, и вы также можете изменить настройку текста.

• создайте название кнопки «btncalc» с текстом «рассчитать ИМТ»
• создайте название кнопки "btnclear" с текстом "clear"
• создайте название кнопки "btnexit" с текстом "exit"
• создайте название кнопки "btnabout" с текстом "узнать о нас"
• создать кнопку с названием "btnhlp" с текстом "нужна помощь?" (я не использовал это, и он оставлен бесплатно на случай, если вы захотите добавить кнопку справки)

выровняйте кнопки в форме графического интерфейса так, как считаете нужным

изменение имени имеет важное значение, поскольку нам придется вызывать эти кнопки в нашей программе, если вы предпочитаете указать любое другое имя, вы также должны изменить имя упомянутой кнопки в программе. (имена по моей программе)

Шаг 5: программирование калькулятора

Открытый класс Form1

Private Sub btncalc_Click (sender As System. Object, e As System. EventArgs) Обрабатывает btncalc. Click

Dim height As Double = 0 'создает переменную с именем height Dim weight As Double = 0' создает переменную с именем weight Dim BMI As Double = 0 'создает переменную с именем BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'считывает числа из текстового поля txtheight и сохраняет их в соответствующую переменную weight = Double. Parse (txtweight. Text)' считывает числа из текстового поля txtweight и сохраняет их в соответствующую переменную height = height * 0,0254 'преобразует высоту в метры вес = вес * 0,4535924' преобразует вес в килограммы высота = высота * высота 'квадратов и сохраняет их в переменную высоту

If ((height <= 0) Or (weight <= 0)) Then 'проверка достоверности, чтобы убедиться, что неестественные данные не вводятся cleanup () MsgBox («вставьте реалистичные значения») Exit Sub End If

BMI = вес / рост 'расчет ИМТ

BMI = Format (BMI, "0.00") 'записывает BMI в два десятичных разряда txtresults. Text = BMI' записывает BMI в текстовое поле txtresults txtcomment. Text = "" 'очищает комментарий текстового поля, чтобы разрешить ввод данных

'рассчитывает состояние в соответствии с ИМТ

Если ИМТ <18,5, то состояние может отличаться в вашей стране.

txtcomment. Text = "у вас недостаточный вес"

ElseIf ((ИМТ> = 18,5) И (ИМТ 24,9) И (ИМТ 29,9) Тогда txtcomment. Text = "вы страдаете ожирением, примите меры предосторожности" Конец Если

Конец подписки

Private Sub btnexit_Click (sender As System. Object, e As System. EventArgs) Обрабатывает btnexit. Click

Close () 'для выхода из End SubPrivate Sub btnclear_Click (sender As System. Object, e As System. EventArgs) Обрабатывает btnclear. Click cleanup () 'вызывает подпрограмму очистки End Sub Sub cleanup ()' очищает каждое текстовое поле txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (sender As System. Object, e As System. EventArgs) Обрабатывает btnabout. Click

'это сообщение отображается в отдельном сообщении

'вы можете добавить что угодно после знака "=" ниже, но это должно быть между двойными запятыми ("")

Тусклое сообщение как String = "Это программное обеспечение было создано Умаром Бин Асимом для повышения осведомленности общества о здоровье". & vbNewLine & «Рост числа тучных людей во всем мире вызвал панику в отношении здоровья, поскольку число случаев сердечных заболеваний и диабета растет». & vbNewLine & «Несмотря на все это, большое количество людей не знают, страдают ли они ожирением или как с этим бороться». & vbNewLine & «В ответ на это мы создали калькулятор для определения вашего ИМТ и того, страдаете ли вы ожирением». & vbNewLine & «Эти стандарты соответствуют Американской кардиологической ассоциации».

MsgBox (сообщение)

End Sub Private Sub btnhlp_Click (sender As System. Object, e As System. EventArgs) Обрабатывает btnhlp. Click 'добавляет любое сообщение, которое вы хотите написать между ""', пока оно пусто Dim inventory_message As String = ""

MsgBox (срочное_сообщение)

Конец подпискиКонец класса

Шаг 6. Поздравляем, ваше программирование завершено

теперь вы можете рассчитать свой ИМТ и знаете, как редактировать программное обеспечение по своему вкусу

чтобы запустить программу, нажмите зеленую стрелку на верхней панели или просто нажмите F5, наслаждайтесь!

для вашего удобства мы разместили собственный калькулятор (готовый), а также программу (в файле.txt)