BMI kalkulator: 6 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:07

Moje ime je Umair Bin Asim. Student sam Globalne perspektive, radim svoje O nivoe. Ovaj projekat je dio kampanje podizanja svijesti koju ja i moji kolege trenutno vodimo. 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 projekt je 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 gojazni ili ne. Kalkulator koji smo napravili postavljen je u standardima američkog zdravstvenog udruženja. Svrha objavljivanja ovoga je omogućiti ljudima ne samo da naprave kalkulator, već i omogućiti ljudima da svoje kalkulatore prilagode bilo kojem nacionalnom standardu.

Korak 1: Kreiranje novog projekta Visual Studio

1. otvoreni vizuelni studio
2. kliknite na novi projekat
3. odabir udovica iz aplikacije
4. preimenujte projekat u "BMI kalkulator"
5. spremite projekt i zapamtite lokaciju (spremio sam ga na zasebnom pogonu)

Korak 2: Dvije sekcije

postoje dva odjeljka u prozorima Visual Studio koji čine aplikaciju

1) Form1.vb [Dizajn]

ovdje kreirate GUI

2) Form1.vb

ovdje pišete svoj program

kartice možete izabrati izborom 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 okvira s alatima (ako ne možete pronaći okvir s alatima, pritisnite Ctrl+Alt+x)
2. povucite oznaku na obrazac i rasporedite je s desne strane. trebaju nam tri etikete
3. rasporedite oznake s lijeve strane
4. kliknite na oznake i u svojstvima promijenite Autosize 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 poput boje i 3D efekta.
7. povucite tri okvira za tekst 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 poput boje i 3D efekta.
10. stvorite posljednji okvir za tekst i poravnajte ga pri dnu, imenujte ovo polje za tekst "txtcomment", to će dati rezultat na osnovu BMI -ja osoba jer razumijevanje samo iz brojeva može biti teško.
11. promjena imena je bitna jer ćemo ove tekstualne okvire morati pozvati u naš program, ako želite staviti bilo koje drugo ime, morate promijeniti i naziv navedenog gumba u programu. (imena su prema mom programu)

Korak 4: Dizajnirajte sučelje (tipke)

postavite dugmad tako što ćete ih povući iz alata i poravnati kao što je prikazano na slici

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

• kreirajte naziv dugmeta "btncalc", s tekstom "izračunajte BMI"
• kreirajte naziv dugmeta "btnclear", s tekstom "clear"
• kreirajte naziv dugmeta "btnexit", s tekstom "exit"
• kreirajte 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 dugme za pomoć)

poravnajte gumbe u GUI obliku kako smatrate prikladnim

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

Korak 5: Programiranje vašeg kalkulatora

Obrazac za javnu klasu1

Private Sub btncalc_Click (pošiljalac kao System. Object, e As 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 brojeve iz tekstualnog okvira 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 varijablu height = height * 0,0254 'pretvara visinu u metre težina = težina * 0,4535924' pretvara težinu u kilograme visina = visina * visina 'raspona kvadrata i sprema je u promjenjivu visinu

Ako ((visina <= 0) Ili (težina <= 0)) Tada se provjerava valjanost kako bi se osiguralo da se ne unose neprirodni podaci cleanup () MsgBox ("unesite realne vrijednosti") Izlaz iz potkraj Ako

BMI = težina / visina 'izračunavanje BMI

BMI = Format (BMI, "0.00") 'zapisuje BMI na dva decimalna mjesta txtresults. Text = BMI' upisuje BMI u okvir za tekst 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 = "gojazni ste, molimo vas da preduzmete mjere opreza")

End Sub

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

Zatvori () 'funkciju za izlaz End SubPrivatni Sub btnclear_Click (pošiljalac kao System. Object, e Kao System. EventArgs) Rukuje btnclear. Click cleanup () 'poziva čišćenje potprograma End Sub Sub cleanup ()' briše svako tekstualno polje txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

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

'Ovo je poruka prikazana u zasebnom sandučiću za poruke

'možete dodati bilo šta š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 oboljenja i dijabetesa." & vbNewLine & "Unatoč svemu ovome veliki broj ljudi ne zna jesu li gojazni ili ne ili kako se tome suprotstaviti." & vbNewLine & "Kao odgovor na to što smo napravili kalkulator za određivanje vašeg BMI -a i da li ste gojazni ili ne." & vbNewLine & "Ovi standardi su prema Američkom udruženju za srce."

MsgBox (poruka)

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

MsgBox (hitna_poruka)

End SubKraj 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)