BMI kalkulátor: 6 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:42

A nevem Umair Bin Asim. A Globális Perspektíva tanulója vagyok, az O szintjeimet végzem. Ez a projekt része egy figyelemfelkeltő kampánynak, amelyet én és osztálytársaim jelenleg végzünk. Felismerjük, hogy az elhízás világszerte növekvő probléma, és bátorítjuk az embereket az elhízás elleni küzdelemre, mielőtt az súlyos társadalmi katasztrófához vezetne. Ez a projekt a sok figyelemfelkeltő kampányunk egyike.

A BMI kalkulátor célja, hogy az emberek könnyebben kiszámíthassák testtömeg -indexüket, és megállapíthassák, hogy elhízottak -e vagy sem. Az általunk készített számológépet az Amerikai Egészségügyi Szövetség szabványai határozzák meg. A közzététel célja, hogy lehetővé tegye az emberek számára, hogy ne csak számológépet készítsenek, hanem lehetővé tegyék az emberek számára, hogy módosítsák számológépeiket a nemzeti szabványoknak megfelelően.

1. lépés: Új Visual Studio projekt létrehozása

1. nyílt vizuális stúdió
2. kattintson az új projektre
3. válassza ki az özvegyek űrlapot
4. nevezze át a projektet "BMI számológépre"
5. mentse el a projektet és emlékezzen a helyre (külön meghajtóra mentettem)

2. lépés: Két szakasz

két rész található a Visual Studio ablakokban

1) Form1.vb [Tervezés]

itt hozza létre a GUI -t

2) Form1.vb

itt írod a programozást

a lapok kiválasztásával kiválaszthatja azokat

3. lépés: Tervezze meg az interfészt (címkék és szövegdobozok)

ebben a lépésben meg kell terveznie a grafikus felhasználói felületet.

1. válassza ki a címkéket a rendelkezésre álló eszköztárból (ha nem találja az eszköztárat, nyomja meg a Ctrl+Alt+x)
2. húzza a címkét az űrlapra, és rendezze el őket a jobb oldalon. három címkére van szükségünk
3. rendezze el a címkéket a bal oldalon
4. kattintson a címkékre, és a tulajdonságokban módosítsa az Autosize értéket HAMIS -ra, ez lehetővé teszi a címke átméretezését.

5. kattintson a címkékre, és a tulajdonságokban módosítsa a szöveget "magasság", "súly", "BMI" értékre.

6. egyéb beállításokat is módosíthat a tulajdonságokban, mint például a szín és a 3D -effektus.
7. húzzon három szövegdobozt az eszköztárból, és igazítsa őket balra párhuzamosan a címkékkel
8. kattintson a szövegmezőre, és a tulajdonságokban módosítsa a névbeállításokat "txtheight", "txtweight", "txtresults" értékre
9. egyéb beállításokat is módosíthat a tulajdonságokban, mint például a szín és a 3D -effektus.
10. hozzon létre egy utolsó szövegdobozt, és igazítsa az aljára, nevezze el ezt a szövegdobozt "txtcomment" -nek, ez eredményt ad a személyek BMI alapján, mivel a számokból való megértés nehéz lehet.
11. a név megváltoztatása elengedhetetlen, mivel ezeket a szövegdobozokat meg kell hívnunk a programunkban, ha más nevet szeretne megadni, akkor a programban a hivatkozott gomb nevét is meg kell változtatnia. (a nevek a programom szerint vannak)

4. lépés: Tervezze meg az interfészt (gombok)

helyezze el a gombokat az eszköztárból való húzással, és igazítsa őket a képen látható módon

amíg a gomb ki van választva, változtassa meg a tulajdonság nevét a gombon, és módosíthatja a szövegbeállítást is.

• hozzon létre egy "btncalc" gombnevet, szöveggel "számítsa ki a BMI -t"
• hozzon létre egy gombnevet "btnclear", szöveggel "clear"
• hozzon létre egy "btnexit" gombnevet "exit" szöveggel
• hozzon létre egy gombnevet "btnabout", szöveggel "tudjon meg rólunk"
• hozzon létre egy "btnhlp" gombnevet, szöveggel "segítségre van szüksége?" (ezt nem használtam, és szabadon maradt, ha hozzá szeretne adni egy súgó gombot)

igazítsa a gombokat a GUI űrlapon, ahogy jónak látja

a név megváltoztatása elengedhetetlen, mivel ezeket a gombokat meg kell hívnunk a programunkban, ha más nevet szeretne megadni, akkor a hivatkozott gomb nevét is módosítani kell a programban. (a nevek a programom szerint vannak)

5. lépés: A számológép programozása

Nyilvános osztály űrlap1

Privát al btncalc_Click (feladó mint System. Object, e mint System. EventArgs) A btncalc kezelése.

Halvány magasság, mint kettős = 0 'hozza létre a változó nevű magasságot Dim súlya, mint kettős = 0' létrehozza a súly nevű változót Dim BMI Mint dupla = 0 'létrehozza a BMI nevű változót

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'beolvassa a számokat a txtheight szövegmezőből, és elmenti a megfelelő változó súlyba = Double. Parse (txtweight. Text)' beolvassa a számokat a txtweight szövegmezőből, és elmenti a megfelelő változó magasságba = magasság * 0,0254 'a magasságot méterekre alakítja át súly = súly * 0,4535924' súlyát kilogrammra alakítja magasság = magasság * magasság 'négyzetek, és változtatható magasságba menti

Ha ((magasság <= 0) Vagy (súly <= 0)) akkor 'érvényességi ellenőrzés annak biztosítására, hogy a természetellenes adatok ne kerüljenek be tisztítás () MsgBox ("kérjük, adjon meg reális értékeket") Kilépés alvég

BMI = súly / magasság”BMI számítás

BMI = Formátum (BMI, "0.00") 'írja a BMI -t két tizedes tizedes txt eredményre. Szöveg = BMI' írja a BMI -t a szövegdobozba txtresults txtcomment. Text = "" 'üríti a szövegdoboz megjegyzését, hogy lehetővé tegye az adatbevitelt

'kiszámítja az állapotot a BMI szerint

Ha a BMI <18,5, akkor az állapot országonként változhat

txtcomment. Text = "súly alatt vagy"

Máskülönben ((BMI> = 18,5) És (BMI 24,9) És (BMI 29,9, akkor txtcomment. Text = "elhízott, kérjük, tegye meg az óvintézkedéseket" Vége

End Sub

Privát al btnexit_Click (feladó mint System. Object, e mint System. EventArgs) Btnexit. Click

Bezárás () 'funkció a Kilépés a Vége al almenübőlPrivát al btnclear_Click (feladó mint System. Object, e mint System. EventArgs) Kezeli a btnclear. Click cleanup () 'hívások alrutin tisztítását End Sub Sub cleanup ()' törli az összes szövegdoboz txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Privát al btnabout_Click (feladó mint System. Object, e mint System. EventArgs) Btnabout. Click

'ez az üzenet látható egy külön üzenetküldő dobozban

'Bármit hozzáadhat az alábbi "=" jel után, de kettős vessző között kell lennie ("")

Dim üzenet As String = "Ezt a szoftvert Umair Bin Asim készítette az egészségre vonatkozó társadalmi tudatosság érdekében." & vbNewLine & "Az elhízottak számának világméretű növekedése egészségügyi pánikot keltett, mivel a szívbetegségek és a cukorbetegség száma növekszik." & vbNewLine & "Mindezek ellenére sok ember nem tudja, hogy elhízott -e vagy sem, vagy hogyan lehet ellensúlyozni." & vbNewLine & "Válaszul arra, hogy számológépet készítettünk a BMI meghatározására, és arra, hogy elhízott -e vagy sem." & vbNewLine & "Ezek a szabványok az American Heart Association szerint vannak."

MsgBox (üzenet)

End Sub Private Sub btnhlp_Click (feladó, mint System. Object, e, mint System. EventArgs) Kezeli a btnhlp. Kattintson a "Hozzáad minden üzenetet, amelyet írni szeretne a" "" közé, egyelőre üres.

MsgBox (sürgős_üzenet)

End SubVége az osztálynak

6. lépés: Gratulálunk, a programozás befejeződött

most kiszámíthatja a BMI -jét, és tudja, hogyan szerkesztheti a szoftverét tetszése szerint

a szoftver lejátszásához nyomja meg a zöld nyilat a felső sávon, vagy egyszerűen nyomja meg az F5 gombot élvezze!

az Ön kényelme érdekében közzétettük saját (kész) számológépünket, valamint a programozást (.txt fájlban)