ИТМ калкулатор: 6 стъпки

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

Казвам се Умайр бин Асим. Аз съм студент по глобална перспектива, правя моите O нива. Този проект е част от кампания за повишаване на осведомеността, която аз и моите съученици провеждаме в момента. Признаваме затлъстяването като нарастващ проблем по целия свят и насърчаваме хората да се борят със затлъстяването, преди то да доведе до голяма социална катастрофа. Този проект е една от многото ни кампании за повишаване на осведомеността.

Калкулаторът на ИТМ трябва да позволи на хората по -лесно да изчисляват индекса на телесната си маса и да определят дали са със затлъстяване. Калкулаторът, който направихме, е заложен в стандартите на Американската здравна асоциация. Целта на публикуването на това е да позволи на хората не само да направят калкулатор, но и да позволят на хората да променят своите калкулатори според техния национален стандарт.

Стъпка 1: Създаване на нов проект на Visual Studio

1. отворено визуално студио
2. щракнете върху нов проект
3. изберете приложение за вдовици
4. преименувайте проекта на "BMI калкулатор"
5. запазете проекта и запомнете местоположението (запазих го в отделен диск)

Стъпка 2: Два раздела

има два раздела в прозорците на Visual studio, които формират приложение

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

тук създавате GUI

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", с текст "изчисляване на BMI"
• създайте име на бутон "btnclear", с текст "clear"
• създайте име на бутон "btnexit", с текст "изход"
• създайте име на бутон "btnabout", с текст "научете за нас"
• създайте име на бутон "btnhlp", с текст "нужда от помощ?" (не съм използвал това и е оставено безплатно в случай, че искате да добавите бутон за помощ)

подравнете бутоните във GUI формата, както сметнете за добре

промяната на името е от съществено значение, тъй като ще трябва да извикаме тези бутони в нашата програма, ако предпочитате да поставите друго име, трябва да промените и името на посочения бутон в програмата. (имената са според моята програма)

Стъпка 5: Програмиране на вашия калкулатор

Формуляр за публичен клас 1

Private Sub btncalc_Click (изпращач като System. Object, e As System. EventArgs) Обработва btncalc. Click

Dim височина As Double = 0 'създава променлива с име височина Dim weight As Double = 0' създава променлива с име тегло Dim BMI As Double = 0 'създава променлива с име BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'чете цифри от текстовото поле txtheight и го записва в съответната променлива тегло = Double. Parse (txtweight. Text)' чете цифри от текстовото поле txtweight и го записва в съответната променлива height = height * 0.0254 'преобразува височината в метри тегло = тегло * 0.4535924' превръща теглото в килограми височина = височина * височина 'квадратчета дължина и го записва в променлива височина

Ако ((височина <= 0) Или (тегло <= 0)) Тогава „проверка на валидността, за да се гарантира, че неестествените данни не са въведени cleanup () MsgBox („ моля, вмъкнете реалистични стойности “) Излезте от Sub End Ако

ИТМ = тегло / ръст 'изчисление на ИТМ

BMI = Формат (BMI, "0.00") 'записва ИТМ до два десетични знака txtresults. Text = BMI' записва ИТМ в текстово поле txtresults txtcomment. Text = "" 'изпразва коментара в текстовото поле, за да позволи въвеждане на данни

'изчислява състоянието според ИТМ

Ако ИТМ <18,5, тогава състоянието може да варира във вашата страна

txtcomment. Text = "вие сте под тегло"

В противен случай ((BMI> = 18,5) И (BMI 24,9) И (BMI 29,9 Тогава txtcomment. Text = "сте с наднормено тегло, моля, вземете предпазни мерки" Край Ако

End Sub

Private Sub btnexit_Click (изпращач като System. Object, e As System. EventArgs) Обработва btnexit. Click

Функция Close () за изход End SubPrivate Sub btnclear_Click (изпращач като 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 (изпращач като System. Object, e As System. EventArgs) Обработва btnabout. Click

'това е съобщението, показано в отделна кутия за съобщения

'можете да добавите каквото искате след знака "=" по -долу, но трябва да е между двойни запетаи ("")

Dim message As String = "Този софтуер е създаден от Umair Bin Asim заради социалната осведоменост за здравето." & vbNewLine & "Световно увеличение на броя на хората със затлъстяване предизвика здравословна паника, тъй като броят на случаите на сърдечни заболявания и диабет се увеличава." & vbNewLine & "Въпреки всичко това голям брой хора не знаят дали са със затлъстяване или не, или как да се противопоставят на това." & vbNewLine & "В отговор на това, че направихме калкулатор, който да определи вашия ИТМ и дали сте със затлъстяване." & vbNewLine & "Тези стандарти са според Американската сърдечна асоциация."

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

End Sub Private Sub btnhlp_Click (изпращач като System. Object, e As System. EventArgs) Манипулира btnhlp. Click 'добавете всяко съобщение, което искате да напишете между ""', то е празно засега Dim urgent_message As String = ""

MsgBox (спешно_съобщение)

End SubКраен клас

Стъпка 6: Поздравления Вашето програмиране е приключило

сега можете да изчислите своя ИТМ и знаете как да редактирате софтуера по ваш вкус

за да пуснете софтуера, натиснете зелената стрелка на горната лента или просто натиснете F5 наслаждавайте се!

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