BMI kalkulator: 6 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:35

Moje ime je Umair Bin Asim. Student sam Globalne perspektive, radim svoje O razine. Ovaj projekt dio je kampanje podizanja svijesti koju ja i moji kolege trenutno provodimo. Pretilost prepoznajemo kao rastući problem u cijelom svijetu i potičemo ljude na borbu protiv pretilosti prije nego što ona dovede do velike društvene katastrofe. Ovaj je projekt jedna od mnogih naših kampanja podizanja svijesti.

BMI kalkulator omogućuje ljudima lakše izračunavanje indeksa tjelesne mase i utvrđivanje jesu li pretili ili ne. Kalkulator koji smo napravili postavljen je u standardima američke zdravstvene udruge. Svrha objavljivanja ovoga je omogućiti ljudima ne samo izradu kalkulatora, već i omogućiti ljudima da svoje kalkulatore prilagode bilo kojem nacionalnom standardu.

Korak 1: Izrada novog projekta Visual Studio

1. otvoreni vizualni studio
2. kliknite na novi projekt
3. odabir udovica obrazac za prijavu
4. preimenujte projekt u "BMI kalkulator"
5. spremite projekt i zapamtite lokaciju (spremio sam ga na zasebnom pogonu)

Korak 2: Dva odjeljka

postoje dva odjeljka u prozorima Visual Studija koji čine aplikaciju

1) Form1.vb [Dizajn]

ovdje stvarate GUI

2) Obrazac1.vb

ovdje pišete svoje programiranje

kartice možete odabrati odabirom na njima

Korak 3: Dizajnirajte sučelje (oznake i okviri za tekst)

u ovom koraku morate dizajnirati grafičko korisničko sučelje.

1. odaberite oznake iz dostupnog alata (ako ne možete pronaći okvir s alatom pritisnite Ctrl+Alt+x)
2. povucite oznaku na obrazac i rasporedite je s desne strane. trebaju nam tri oznake
3. rasporedite oznake uz lijevu stranu
4. kliknite na oznake i u svojstvima promijenite Automatsku veličinu u FALSE, to će vam omogućiti da promijenite veličinu oznake.

5. kliknite na oznake i u svojstvima promijenite tekst u "visina", "težina", "vaš BMI".

6. možete promijeniti i druge postavke u svojstvima kao što su boja i 3D efekt.
7. povucite tri tekstualna okvira iz okvira s alatima i poravnajte ih lijevo paralelno s oznakama
8. kliknite na okvir za tekst i u svojstvima promijenite postavke imena u "txtheight", "txtweight", "txtresults"
9. možete promijeniti i druge postavke u svojstvima kao što su boja i 3D efekt.
10. stvorite posljednji okvir za tekst i poravnajte ga pri dnu, imenujte ovaj okvir za tekst "txtcomment", to će dati rezultat na temelju BMI -ja osoba jer razumijevanje samo iz brojeva može biti teško.
11. promjena naziva je bitna jer ćemo te tekstualne okvire morati pozvati u naš program. Ako želite staviti bilo koji drugi naziv, morate promijeniti i naziv navedenog gumba u programu. (imena su prema mom programu)

Korak 4: Dizajnirajte sučelje (gumbi)

postavite gumbe povlačenjem iz okvira s alatima i poravnavanjem kao što je prikazano na slici

dok je gumb odabran promijenite naziv na gumbu u svojstvima, a možete promijeniti i postavku teksta.

• stvorite naziv gumba "btncalc", s tekstom "izračunajte BMI"
• stvorite naziv gumba "btnclear", s tekstom "clear"
• stvorite naziv gumba "btnexit", s tekstom "exit"
• stvorite naziv gumba "btnabout", s tekstom "saznajte o nama"
• stvorite naziv gumba "btnhlp" s tekstom "treba li pomoć?" (ovo nisam koristio i ostalo je besplatno u slučaju da želite dodati gumb za pomoć)

poravnajte gumbe u GUI obliku kako smatrate prikladnim

promjena naziva je bitna jer ćemo ove tipke morati pozvati u naš program, ako želite staviti bilo koji drugi naziv, morate promijeniti i naziv navedenog gumba u programu. (imena su prema mom programu)

Korak 5: Programiranje kalkulatora

Obrazac za javnu klasu1

Private Sub btncalc_Click (pošiljatelj kao System. Object, e Kao System. EventArgs) Rukuje btncalc. Click

Dim height As Double = 0 'stvara varijablu imenovanu visinu Dim weight As Double = 0' stvara varijablu imenovanu težinu Dim BMI As Double = 0 'stvara varijablu s imenom BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'čita brojke iz okvira za tekst txtheight i sprema ih u odgovarajuću promjenjivu težinu = Double. Parse (txtweight. Text)' čita brojeve iz tekstualnog okvira txtweight i sprema ih u odgovarajuću promjenjivu height = height * 0,0254 'pretvara visinu u metre težina = težina * 0,4535924' pretvara težinu u kilograme visina = visina * visina 'kvadrata po visini i sprema je u promjenjivu visinu

Ako ((visina <= 0) Ili (težina <= 0)) Zatim provjerite valjanost kako biste osigurali da se ne unose neprirodni podaci cleanup () MsgBox ("unesite realne vrijednosti") Izlaz iz potkraj Ako

BMI = težina / visina 'izračun BMI -a

BMI = Format (BMI, "0.00") 'zapisuje BMI na dva decimalna mjesta txtresults. Text = BMI' zapisuje BMI u tekstualni okvir txtresults txtcomment. Text = "" 'prazni komentar u okvir za tekst kako bi omogućio unos podataka

'izračunava stanje prema BMI

Ako je BMI <18,5, tada se stanje može razlikovati u vašoj zemlji

txtcomment. Text = "pod težinom ste"

Inače ((BMI> = 18,5) I (BMI 24,9) I (BMI 29,9 Zatim txtcomment. Text = "imate pretilost, poduzmite mjere opreza" Prekini ako

Kraj podm

Privatni pod btnexit_Click (pošiljatelj kao System. Object, e Kao System. EventArgs) Rukuje btnexit. Click

Zatvori () 'funkciju za izlaz End SubPrivate Sub btnclear_Click (pošiljatelj kao System. Object, e As System. EventArgs) Rukuje btnclear. Click cleanup () 'poziva čišćenje potprograma End Sub Sub cleanup ()' briše svaki tekstni okvir txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

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

'ovo je poruka prikazana u zasebnom okviru za poruke

'možete dodati bilo što što želite nakon znaka "=" ispod, ali to mora biti između dvostrukih zareza ("")

Dim message As String = "Ovaj softver je napravio Umair Bin Asim radi društvene svijesti o zdravlju." & vbNewLine & "Svjetski porast broja pretilih ljudi izazvao je zdravstvenu paniku jer je sve veći broj slučajeva srčanih bolesti i dijabetesa." & vbNewLine & "Unatoč svemu tome veliki broj ljudi ne zna jesu li pretili ili se tome mogu suprotstaviti." & vbNewLine & "Kao odgovor na to što smo napravili kalkulator za utvrđivanje vašeg BMI -a i jeste li pretili ili niste." & vbNewLine & "Ovi standardi su u skladu s Američkom udrugom za srce."

MsgBox (poruka)

End Sub Private Sub btnhlp_Click (pošiljatelj kao System. Object, e As System. EventArgs) Rukuje btnhlp. Click 'dodajte bilo koju poruku koju želite upisati između ""' za sada je prazna Dim urgent_message As String = ""

MsgBox (hitna_poruka)

Kraj podmKraj klase

Korak 6: Čestitamo, vaše programiranje je završeno

sada možete izračunati svoj BMI i znate urediti softver po svom ukusu

za reprodukciju softvera pritisnite zelenu strelicu na gornjoj traci ili jednostavno pritisnite F5 uživajte!

radi vaše udobnosti objavili smo vlastiti kalkulator (gotov), kao i programiranje (u.txt datoteci)