BMI -kalkulator: 6 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:23

Mitt navn er Umair Bin Asim. Jeg er student i globalt perspektiv og gjør mine O -nivåer. Dette prosjektet er en del av en bevissthetskampanje som jeg og mine klassekamerater gjennomfører for tiden. Vi anerkjenner fedme som et økende problem over hele verden og oppfordrer folk til å bekjempe fedme før det fører til en stor sosial katastrofe. Dette prosjektet er en av våre mange bevissthetskampanjer.

BMI -kalkulatoren skal gjøre det lettere for folk å beregne kroppsmasseindeksen og bestemme om de er overvektige eller ikke. Kalkulatoren vi har laget er satt i standardene til American Health Association. Hensikten med å legge ut dette er å la folk ikke bare lage en kalkulator, men også å tillate folk å endre kalkulatorene sine til hva deres nasjonale standard er.

Trinn 1: Opprette et nytt Visual Studio -prosjekt

1. åpent visuelt studio
2. klikk på nytt prosjekt
3. velg enker fra søknad
4. gi prosjektet nytt navn til "BMI -kalkulator"
5. lagre prosjektet og husk plasseringen (jeg har lagret det i en egen stasjon)

Trinn 2: To seksjoner

Det er to seksjoner i Visual Studio Windows -skjemaapplikasjon

1) Form1.vb [Design]

her oppretter du GUI

2) Skjema1.vb

her skriver du programmeringen din

du kan velge fanene ved å velge på dem

Trinn 3: Utform grensesnittet (etiketter og tekstbokser)

i dette trinnet må du designe det grafiske brukergrensesnittet.

1. velg etiketter fra tilgjengelig verktøykasse (hvis du ikke finner verktøykassen, trykk Ctrl+Alt+x)
2. dra etiketten til skjemaet og ordne dem til høyre. vi trenger tre etiketter
3. ordne etikettene langs venstre
4. klikk på etikettene og i egenskapene endre Autosize til FALSE, vil dette tillate deg å endre størrelsen på etiketten.

5. klikk på etikettene og i egenskapene endre teksten til henholdsvis "høyde", "vekt", "din BMI".

6. du kan også endre andre innstillinger i egenskaper som farge og 3D -effekt.
7. dra tre tekstbokser fra verktøykassen og juster dem langs venstre parallell med etikettene
8. klikk på tekstboksen og i egenskapene endrer du navninnstillingene til "txtheight", "txtweight", "txtresults"
9. du kan også endre andre innstillinger i egenskaper som farge og 3D -effekt.
10. lag en siste tekstboks og juster den på bunnen, navngi denne tekstboksen "txtcomment", dette vil gi et resultat på grunnlag av personens BMI, da forståelse fra tall alene kan være vanskelig.
11. Det er viktig å endre navnet, da vi må kalle disse tekstboksene opp i programmet vårt. Hvis du foretrekker å sette et annet navn, må du også endre navnet på den refererte knappen i programmet. (navnene er i henhold til programmet mitt)

Trinn 4: Utform grensesnittet (knapper)

plasser knappene ved å dra dem fra verktøykassen og justere dem som vist på bildet

mens knappen er valgt, endre navnet på knappen i egenskapene, og du kan også endre tekstinnstillingen.

• lag et knappnavn "btncalc", med teksten "beregne BMI"
• lag et knappnavn "btnclear", med teksten "clear"
• lag et knappnavn "btnexit", med teksten "exit"
• lag et knappnavn "btnabout", med teksten "lær om oss"
• lage et knappnavn "btnhlp", med teksten "trenger du hjelp?" (jeg har ikke brukt dette, og det har stått ledig i tilfelle du vil legge til en hjelpeknapp)

juster knappene i GUI -skjemaet slik du synes

Det er viktig å endre navnet, da vi må kalle disse knappene opp i programmet vårt. Hvis du foretrekker å sette et annet navn, må du også endre navnet på den refererte knappen i programmet. (navnene er i henhold til programmet mitt)

Trinn 5: Programmering av kalkulatoren

Offentlig klasse skjema1

Private Sub btncalc_Click (sender som System. Object, e As System. EventArgs) Håndterer btncalc_Click

Dim høyde som dobbel = 0 'oppretter variabel med navn høyde Dim vekt som dobbel = 0' oppretter variabel med navn vekt Dim BMI som dobbel = 0 'oppretter variabel som heter BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'leser tall fra tekstboks txtheight og lagrer det i respektive variabel vekt = Double. Parse (txtweight. Text)' leser tall fra tekstboks txtweight og lagrer det i respektive variabel høyde = høyde * 0,0254 'konverterer høyde til meter vekt = vekt * 0,4535924' konverterer vekt til kilogram høyde = høyde * høyde 'kvadrater høyde og lagrer den i variabel høyde

Hvis ((høyde <= 0) Eller (vekt <= 0)) Så 'validitetskontroll for å sikre at unaturlige data ikke er angitt opprydding () MsgBox ("vennligst sett inn realistiske verdier") Avslutt Sub End Hvis

BMI = vekt / høyde 'beregning av BMI

BMI = Format (BMI, "0.00") 'skriver BMI til to desimaler txtresults. Text = BMI' skriver BMI i tekstboks txtresults txtcomment. Text = "" 'tømmer tekstbokskommentar for å tillate dataregistrering

'beregner tilstanden i henhold til BMI

Hvis BMI <18,5 Så kan tilstanden variere i ditt land

txtcomment. Text = "du er under vekt"

ElseIf ((BMI> = 18,5) Og (BMI 24,9) Og (BMI 29,9 Deretter txtcomment. Text = "du er overvektig, vennligst ta forhåndsregler" Slutt hvis

Slutt Sub

Private Sub btnexit_Click (sender som System. Object, e As System. EventArgs) Håndterer btnexit. Click

Lukk () -funksjonen for avslutning End SubPrivate Sub btnclear_Click (sender som System. Object, e As System. EventArgs) Håndterer btnclear. Click cleanup () 'call sub routine cleanup End Sub Sub cleanup ()' sletter hver tekstboks txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (sender som System. Object, e As System. EventArgs) Håndterer btnabout. Click

'Dette er meldingen som vises i en egen melding

'du kan legge til alt du vil etter "=" - tegnet nedenfor, men det må være mellom dobbelt komma ("")

Dim melding As String = "Denne programvaren ble laget av Umair Bin Asim av hensyn til sosial bevissthet om helse." & vbNewLine & "En verdensomspennende økning i antall overvektige har vekket en helsepanikk ettersom antallet tilfeller av hjertesykdommer og diabetes er på vei oppover." & vbNewLine & "Til tross for alt dette vet et stort antall mennesker ikke om de er overvektige eller ikke." & vbNewLine & "Som svar på at vi har laget en kalkulator for å bestemme BMI og om du er overvektig eller ikke." & vbNewLine & "Disse standardene er ifølge The American Heart Association."

MsgBox (melding)

End Sub Private Sub btnhlp_Click (sender som System. Object, e As System. EventArgs) Håndterer btnhlp. Click 'legg til en melding du vil skrive mellom "" "den er tom for nå Dim urgent_message As String =""

MsgBox (urgent_message)

Slutt SubSluttklasse

Trinn 6: Gratulerer med fremdriften din

nå kan du beregne BMI, og du vet hvordan du redigerer programvaren slik du vil

For å spille av programvaren, trykk på den grønne pilen på den øvre linjen eller bare trykk på F5, nyt!

For enkelhets skyld har vi lagt ut vår egen kalkulator (ferdiglaget) samt programmeringen (i en.txt -fil)