BMI kalkulator: 6 korakov

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:05

Moje ime je Umair Bin Asim. Sem študentka globalne perspektive in opravljam svoje stopnje O. Ta projekt je del kampanje ozaveščanja, ki jo trenutno izvajamo jaz in moji sošolci. Debelost prepoznamo kot naraščajoč problem po vsem svetu in spodbujamo ljudi, da se borijo proti debelosti, preden privede do velike družbene katastrofe. Ta projekt je ena naših številnih kampanj ozaveščanja.

Kalkulator BMI naj bi ljudem olajšal izračun indeksa telesne mase in ugotavljanje, ali so debeli ali ne. Kalkulator, ki smo ga izdelali, je določen v standardih ameriškega združenja za zdravje. Namen objave tega je omogočiti ljudem, da ne samo izdelajo kalkulator, ampak tudi ljudem omogočijo, da spremenijo svoje kalkulatorje glede na njihov nacionalni standard.

1. korak: Ustvarjanje novega projekta Visual Studio

1. odprt vizualni studio
2. kliknite na nov projekt
3. izberite aplikacijo za vdove
4. preimenujte projekt v "BMI kalkulator"
5. shranite projekt in si zapomnite lokacijo (shranil sem jo v ločen pogon)

2. korak: Dva odseka

v oknih Visual Studio sta dva odseka, ki tvorita aplikacijo

1) Form1.vb [Oblikovanje]

tukaj ustvarite grafični vmesnik

2) Obrazec 1.vb

tukaj pišeš svoj program

zavihke lahko izberete tako, da jih izberete

3. korak: Oblikujte vmesnik (oznake in besedilna polja)

v tem koraku morate oblikovati grafični uporabniški vmesnik.

1. izberite nalepke iz orodjarne (če ne najdete polja z orodji, pritisnite Ctrl+Alt+x)
2. povlecite oznako na obrazec in jih razporedite na desni. potrebujemo tri oznake
3. oznake razporedite po levi strani
4. kliknite na oznake in v lastnostih spremenite Samodejna velikost na FALSE, to vam bo omogočilo, da spremenite velikost oznake.

5. kliknite na oznake in v lastnostih spremenite besedilo v "višina", "teža", "vaš BMI".

6. lahko spremenite tudi druge nastavitve v lastnostih, kot sta barva in 3D učinek.
7. povlecite tri polja z besedilom iz orodjarne in jih poravnajte vzdolž leve vzporedno z oznakami
8. kliknite polje z besedilom in v lastnostih spremenite nastavitve imena v "txtheight", "txtweight", "txtresults"
9. lahko spremenite tudi druge nastavitve v lastnostih, kot sta barva in 3D učinek.
10. ustvarite zadnje polje z besedilom in ga poravnajte na dnu, temu besedilnemu polju dajte ime "txtcomment", to bo dalo rezultat na podlagi ITM oseb, saj je razumevanje samo po številkah lahko težavno.
11. sprememba imena je bistvena, saj bomo morali ta besedilna polja poklicati v našem programu, če želite vnesti katero koli drugo ime, morate v programu spremeniti tudi ime omenjenega gumba. (imena so po mojem programu)

4. korak: Oblikujte vmesnik (gumbi)

gumbe postavite tako, da jih povlečete iz orodjarne in jih poravnate, kot je prikazano na sliki

ko je gumb izbran, spremenite ime na gumbu v lastnostih in spremenite lahko tudi nastavitev besedila.

• ustvarite ime gumba "btncalc" z besedilom "izračunajte BMI"
• ustvarite ime gumba "btnclear" z besedilom "clear"
• ustvarite ime gumba "btnexit" z besedilom "exit"
• ustvarite ime gumba "btnabout", z besedilom "learn about us"
• ustvarite ime gumba "btnhlp" z besedilom "rabiš pomoč?" (tega nisem uporabil in je ostalo brezplačno, če želite dodati gumb za pomoč)

poravnajte gumbe v obliki grafičnega vmesnika, kot se vam zdi primerno

sprememba imena je bistvena, saj bomo morali te gumbe poklicati v našem programu, če želite vnesti katero koli drugo ime, morate v programu spremeniti tudi ime omenjenega gumba. (imena so po mojem programu)

5. korak: Programiranje kalkulatorja

Obrazec za javni razred1

Private Sub btncalc_Click (pošiljatelj kot System. Object, e As System. EventArgs) Roča btncalc. Click

Dim height As Double = 0 'ustvari spremenljivko z imenom višina Dim weight As Double = 0' ustvari spremenljivko z imenom weight Dim BMI As Double = 0 'ustvari spremenljivko z imenom BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'bere številke iz besedilnega polja txtheight in jih shrani v ustrezno spremenljivo težo = Double. Parse (txtweight. Text)' prebere številke iz besedilnega polja txtweight in jih shrani v ustrezno spremenljivko height = height * 0,0254 'pretvori višino v metre teža = teža * 0,4535924' pretvori težo v kilograme višina = višina * višina 'kvadratov v dolžino in jo shrani v spremenljivo višino

Če ((višina <= 0) Ali (teža <= 0)) Potem 'preverjanje veljavnosti, da se zagotovi, da nenaravni podatki niso vneseni cleanup () MsgBox ("prosim vnesite realne vrednosti") Izhod iz podkoncev Če

BMI = teža / višina 'izračun BMI

BMI = Format (BMI, "0.00") 'zapisuje BMI na dva decimalna mesta txtresults. Text = BMI' zapisuje BMI v polje z besedilom txtresults txtcomment. Text = "" 'izprazni komentar v besedilno polje, da omogoči vnos podatkov

'izračuna stanje glede na ITM

Če je ITM <18,5, se lahko stanje v vaši državi razlikuje

txtcomment. Text = "premajhni ste"

V nasprotnem primeru ((BMI> = 18,5) In (BMI 24,9) In (BMI 29,9 Potem txtcomment. Text = "ste debeli, upoštevajte previdnostne ukrepe" Konec Če

End Sub

Private Sub btnexit_Click (pošiljatelj kot System. Object, e As System. EventArgs) Upravlja btnexit. Click

Zapri funkcijo za izhod End SubPrivate Sub btnclear_Click (pošiljatelj kot System. Object, e As System. EventArgs) Upravlja btnclear. Click cleanup () 'kliče čiščenje podprograma End Sub sub cleanup ()' počisti vsako besedilno polje txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (pošiljatelj kot System. Object, e As System. EventArgs) Upravlja btnabout. Click

To je sporočilo, prikazano v ločenem sporočilu

"po spodnjem znaku" = "lahko dodate karkoli želite, vendar mora biti med dvojnimi vejicami (" ")

Dim message As String = "To programsko opremo je ustvaril Umair Bin Asim zaradi socialne ozaveščenosti o zdravju." & vbNewLine & "Svetovno povečanje števila debelih ljudi je vzbudilo zdravstveno paniko, saj se število primerov srčnih bolezni in sladkorne bolezni povečuje." & vbNewLine & "Kljub vsemu velikemu številu ljudi ni jasno, ali so debeli ali ne, ali kako se temu izogniti." & vbNewLine & "V odgovor na to, da smo naredili kalkulator, ki bo določil vaš ITM in ali ste debeli ali ne." & vbNewLine & "Ti standardi so v skladu z American Heart Association."

MsgBox (sporočilo)

End Sub Private Sub btnhlp_Click (pošiljatelj kot System. Object, e As System. EventArgs) Roča btnhlp. Click 'dodaj katero koli sporočilo, ki ga želiš vnesti med ""' je zaenkrat prazno Dim urgent_message As String = ""

MsgBox (nujno_ sporočilo)

End SubKonec razreda

6. korak: Čestitamo, da je programiranje končano

zdaj lahko izračunate svoj BMI in veste, kako programsko opremo urediti po svojih željah

za predvajanje programske opreme pritisnite zeleno puščico na zgornji vrstici ali preprosto pritisnite F5 uživajte!

za vaše udobje smo objavili lasten kalkulator (že pripravljen), pa tudi programiranje (v datoteki.txt)