KMI kalkulaator: 6 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:48

Minu nimi on Umair Bin Asim. Olen globaalse perspektiivi üliõpilane ja teen oma O taset. See projekt on osa teadlikkuse tõstmise kampaaniast, mida mina ja mu klassikaaslased praegu läbi viime. Tunnistame ülekaalulisust kui kasvavat probleemi kogu maailmas ja julgustame inimesi võitlema ülekaalulisusega, enne kui see toob kaasa suure sotsiaalse katastroofi. See projekt on üks meie paljudest teadlikkuse tõstmise kampaaniatest.

KMI kalkulaator võimaldab inimestel hõlpsamini arvutada oma kehamassiindeksit ja määrata, kas nad on rasvunud või mitte. Meie valmistatud kalkulaator on kehtestatud Ameerika terviseühingu standardites. Selle postitamise eesmärk on võimaldada inimestel mitte ainult kalkulaatorit teha, vaid ka võimaldada inimestel muuta oma kalkulaatoreid vastavalt nende siseriiklikele standarditele.

Samm: uue Visual Studio projekti loomine

1. avatud visuaalstuudio
2. klõpsake uut projekti
3. valige lesed vormi taotlus
4. nimetage projekt ümber "BMI kalkulaatoriks"
5. salvestage projekt ja mäleta asukoht (olen selle salvestanud eraldi draivi)

Samm: kaks sektsiooni

Visual Studio akende vormis on kaks jaotist

1) Vorm1.vb [disain]

siin loote GUI

2) Vorm1.vb

siia kirjutad oma programmeerimise

sakke saate valida, valides need

Samm: kujundage liides (sildid ja tekstikastid)

selles etapis peate kujundama graafilise kasutajaliidese.

1. valige saadaolevatest tööriistakastidest sildid (kui te ei leia tööriistakasti, vajutage Ctrl+Alt+x)
2. lohistage silt vormile ja korraldage need paremal. vajame kolme silti
3. korraldage sildid vasakul
4. klõpsake siltidel ja atribuutides muutke Autosize väärtuseks FALSE, see võimaldab teil sildi suurust muuta.

5. klõpsake siltidel ja atribuutides muutke tekst vastavalt "pikkuseks", "kaaluks", "teie BMI -ks".

6. saate muuta ka muid sätteid sellistes atribuutides nagu värv ja 3D -efekt.
7. lohistage tööriistakastist kolm tekstivälja ja joondage need vasakule paralleelselt siltidega
8. klõpsake tekstikasti ja muutke atribuutides nimesäteteks "txtheight", "txtweight", "txtresults"
9. saate muuta ka muid sätteid sellistes atribuutides nagu värv ja 3D -efekt.
10. looge viimane tekstikasti ja joondage see all, pange sellele tekstikastile nimi "txtcomment", see annab tulemuse isikute KMI põhjal, sest ainuüksi numbritest arusaamine võib olla keeruline.
11. nime muutmine on hädavajalik, kuna peame need tekstikastid oma programmis üles kutsuma. Kui eelistate mõnda muud nime panna, peate muutma ka programmi nupu nime. (nimed on minu programmi järgi)

Samm: kujundage liides (nupud)

asetage nupud tööriistakastist lohistades ja joondage need pildil näidatud viisil

kui nupp on valitud, muutke atribuutidel oleva nupu nime ja saate muuta ka tekstiseadet.

• looge nupu nimi "btncalc", tekstiga "arvuta KMI"
• looge nupu nimi "btnclear", tekstiga "selge"
• looge nupu nimi "btnexit", tekstiga "exit"
• looge nupu nimi "btnabout", tekstiga "õppige meie kohta"
• loo nupu nimi "btnhlp", tekstiga "vajad abi?" (ma pole seda kasutanud ja see on jäänud tasuta, kui soovite lisada abinupu)

joondage graafilise kasutajaliidese nupud oma äranägemise järgi

nime muutmine on hädavajalik, kuna peame need nupud oma programmis üles kutsuma, kui eelistate mõnda muud nime panna, peate muutma ka programmis viidatud nupu nime. (nimed on minu programmi järgi)

Samm: kalkulaatori programmeerimine

Avaliku klassi vorm1

Privaatne alam btncalc_Click (saatja kui System. Object, e kui System. EventArgs) Käsitleb btncalc. Klõpsake

Dim kõrgus nagu kahekordne = 0 'loob muutuja nimega kõrgus Dim kaal nagu topelt = 0' loob muutuja nimega kaal Dim BMI Nagu topelt = 0 'loob muutuja nimega BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'loeb numbrid tekstikastist txtheight ja salvestab selle vastavasse muutuvkaalu = Double. Parse (txtweight. Text)' loeb numbrid tekstikasti txtweight ja salvestab selle vastavasse muutuvasse kõrgusesse = kõrgus * 0,0254 'teisendab kõrguse meetriteks kaal = kaal * 0,4535924' teisendab kaalu kilogrammideks kõrgus = kõrgus * kõrgus 'ruutudeks ja salvestab selle muutuvaks kõrguseks

Kui ((kõrgus <= 0) Või (kaal <= 0)) siis 'kehtivuskontroll ebaloomulike andmete sisestamise tagamiseks puhastus () MsgBox ("palun sisestage realistlikud väärtused") Välju alamotsast Kui

KMI = kehamassi / pikkuse arvutamine

BMI = Format (BMI, "0.00") 'kirjutab BMI kahe kümnendkoha txtresults. Text = BMI' kirjutab BMI tekstikasti txtresults txtcomment. Text = "" 'tühjendab tekstikasti kommentaari andmete sisestamiseks

arvutab seisundi vastavalt KMI -le

Kui KMI on alla 18,5, võib seisund teie riigis erineda

txtcomment. Text = "oled kaalus"

Muidu Kui ((KMI> = 18,5) Ja (KMI 24,9) Ja (KMI 29,9, siis txtcomment. Text = "olete rasvunud, võtke ettevaatusabinõud" Lõpp

End Sub

Privaatne alam btnexit_Click (saatja kui System. Object, e kui System. EventArgs) Käsitleb btnexit. Click

Sulgege () 'funktsioon End SubPrivaatne alam btnclear_Click (saatja kui System. Object, e kui System. EventArgs) Käsitleb btnclear. Click cleanup () 'kõnede alamrutiini puhastamist Lõpp -alampuhastus ()' kustutab iga tekstikasti txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () Lõpu alam

Privaatne alam btnabout_Click (saatja kui System. Object, e kui System. EventArgs) Käsitleb btnabout. Click

See on sõnum, mis kuvatakse eraldi sõnumikastis

"Võite lisada mis tahes asju, mida soovite allpool oleva" = "märgi järele, kuid see peab olema kahekordse koma vahel (" ")

Hämardatud sõnum As String = "Selle tarkvara tegi Umair Bin Asim tervisealase sotsiaalse teadlikkuse huvides." & vbNewLine & "Ülekaaluline rasvunud inimeste arvu kasv maailmas on tekitanud tervisepaanika, kuna südamehaiguste ja diabeedi juhtude arv on tõusuteel." & vbNewLine & "Sellest hoolimata ei tea suur hulk inimesi, kas nad on rasvunud või kuidas seda vastu pidada." & vbNewLine & "Vastuseks sellele, et oleme teinud kalkulaatori, et määrata kindlaks teie BMI ja kas olete rasvunud või mitte." & vbNewLine & "Need standardid vastavad Ameerika Südameassotsiatsioonile."

MsgBox (sõnum)

Lõpeta alam privaatne alam btnhlp_Click (saatja kui System. Object, e kui System. EventArgs) Käsitleb btnhlp. Klikkige 'lisa sõnum, mida soovite kirjutada "" "vahele, see on praegu tühi

MsgBox (kiire_sõnum)

End SubLõppklass

6. samm: õnnitleme, et teie progammimine on tehtud

nüüd saate arvutada oma KMI ja teate, kuidas oma tarkvara oma maitse järgi muuta

tarkvara esitamiseks vajutage rohelist noolt ülemisel ribal või lihtsalt vajutage F5 nautige!

teie mugavuse huvides oleme postitanud oma kalkulaatori (valmis) ja programmeerimise (.txt -failis)