BMI -kalkylator: 6 steg

2024 Författare: John Day | [email protected]. Senast ändrad: 2024-01-30 12:45

Jag heter Umair Bin Asim. Jag är student i globalt perspektiv och gör mina O -nivåer. Detta projekt är en del av en medvetenhetskampanj som jag och mina klasskamrater för närvarande genomför. Vi erkänner fetma som ett stigande problem över hela världen och uppmuntrar människor att bekämpa fetma innan det leder till en stor social katastrof. Detta projekt är en av våra många medvetenhetskampanjer.

BMI -kalkylatorn ska göra det lättare för människor att beräkna sitt kroppsmassindex och avgöra om de är feta eller inte. Kalkylatorn vi har gjort är fastställd i standarderna för American Health Association. Syftet med att lägga upp detta är att låta människor inte bara göra en miniräknare utan också att låta människor ändra sina räknare till vad deras nationella standard är.

Steg 1: Skapa ett nytt Visual Studio -projekt

1. öppen visuell studio
2. klicka på nytt projekt
3. välj änkor från ansökan
4. byt namn på projektet till "BMI -kalkylator"
5. spara projektet och kom ihåg platsen (jag har sparat det i en separat enhet)

Steg 2: Två sektioner

det finns två sektioner i Visual studio windows form ansökan

1) Form1.vb [Design]

här skapar du GUI

2) Form1.vb

här skriver du din programmering

du kan välja flikarna genom att välja dem

Steg 3: Utforma gränssnittet (etiketter och textboxar)

i detta steg måste du designa det grafiska användargränssnittet.

1. välj etiketter från den tillgängliga verktygslådan (tryck på Ctrl+Alt+x om du inte hittar verktygslådan)
2. dra etiketten till formuläret och ordna dem till höger. vi behöver tre etiketter
3. ordna etiketterna längs vänster
4. klicka på etiketterna och i egenskaperna ändra Autosize till FALSE, så kan du ändra storlek på etiketten.

5. klicka på etiketterna och i egenskaperna ändra texten till "höjd", "vikt", "ditt BMI", respektive.

6. Du kan också ändra andra inställningar i egenskaper som färg och 3D -effekt.
7. dra tre textrutor från verktygslådan och justera dem längs den vänstra parallellen med etiketterna
8. klicka på textrutan och i egenskaperna ändra namninställningarna till "txtheight", "txtweight", "txtresults"
9. Du kan också ändra andra inställningar i egenskaper som färg och 3D -effekt.
10. skapa en sista textruta och justera den längst ner, namnge denna textruta "txtcomment", detta kommer att ge ett resultat på grundval av personernas BMI eftersom förståelse från siffror ensam kan vara svårt.
11. att byta namn är viktigt eftersom vi måste ringa upp dessa textrutor i vårt program. Om du föredrar att ange något annat namn måste du också ändra namnet på den hänvisade knappen i programmet. (namnen är enligt mitt program)

Steg 4: Utforma gränssnittet (knappar)

placera knapparna genom att dra dem från verktygslådan och justera dem som visas på bilden

medan knappen är markerad ändrar du namnet på knappen i egenskaperna, och du kan också ändra textinställningen.

• skapa ett knappnamn "btncalc", med texten "beräkna BMI"
• skapa ett knappnamn "btnclear", med texten "clear"
• skapa ett knappnamn "btnexit", med texten "exit"
• skapa ett knappnamn "btnabout", med texten "lär dig om oss"
• skapa ett knappnamn "btnhlp", med texten "behöver du hjälp?" (jag har inte använt det här och det har lämnats gratis om du vill lägga till en hjälpknapp)

justera knapparna i GUI -formuläret som du tycker passar

att byta namn är viktigt eftersom vi kommer att behöva kalla upp dessa knappar i vårt program. Om du föredrar att lägga ett annat namn måste du också ändra namnet på den hänvisade knappen i programmet. (namnen är enligt mitt program)

Steg 5: Programmering av din räknare

Public Class Form 1

Privat sub btncalc_Click (avsändare som System. Object, e As System. EventArgs) Hanterar btncalc_Click

Dim höjd som dubbel = 0 'skapar variabel med namnet höjd Dim vikt som dubbel = 0' skapar variabel med namnet vikt Dim BMI som dubbel = 0 'skapar variabel som heter BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'läser siffror från textruta txthight och sparar det i respektive variabel vikt = Double. Parse (txtweight. Text)' läser siffror från textruta txtweight och sparar det i respektive variabel höjd = höjd * 0,0254 'omvandlar höjd till meter vikt = vikt * 0,4535924' omvandlar vikt till kilogram höjd = höjd * höjd 'kvadrater höjd och sparar den i variabel höjd

Om ((höjd <= 0) Eller (vikt <= 0)) Sedan 'giltighetskontroll för att säkerställa att onaturliga data inte skrivs in rensning () MsgBox ("lägg till realistiska värden") Avsluta Sub End Om

BMI = vikt / höjd 'beräkning av BMI

BMI = Format (BMI, "0.00") 'skriver BMI till två decimaler txtresults. Text = BMI' skriver BMI i textruta txtresults txtcomment. Text = "" 'tömmer textboxkommentar för att tillåta datainmatning

'beräknar tillstånd enligt BMI

Om BMI <18,5 Då kan tillståndet variera i ditt land

txtcomment. Text = "du är under vikt"

ElseIf ((BMI> = 18,5) Och (BMI 24,9) Och (BMI 29,9 Sedan txtcomment. Text = "du är fet, vänligen vidta försiktighetsåtgärder" Sluta om

Avsluta Sub

Private Sub btnexit_Click (avsändare som System. Object, e As System. EventArgs) Hanterar btnexit. Click

Stäng () -funktion för avsluta Avsluta SubPrivate Sub btnclear_Click (avsändare som System. Object, e As System. EventArgs) Hanterar btnclear. Click cleanup () 'ringer sub rutinrensning End Sub Sub cleanup ()' rensar varje textruta txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Privat sub btnabout_Click (avsändare som System. Object, e Som System. EventArgs) Hanterar btnabout. Click

'detta är meddelandet som visas i en separat msgbox

'du kan lägga till vad du vill efter "=" -tecknet nedan men det måste vara mellan dubbla kommatecken ("")

Dim meddelande As String = "Denna programvara gjordes av Umair Bin Asim för social medvetenhet om hälsa." & vbNewLine & "En världsomfattande ökning av antalet överviktiga har väckt en hälsopanik eftersom antalet fall av hjärtsjukdomar och diabetes ökar." & vbNewLine & "Trots allt detta vet ett stort antal människor inte om de är feta eller hur de ska motverka det." & vbNewLine & "Som svar på att vi har gjort en kalkylator för att bestämma ditt BMI och om du är fet eller inte." & vbNewLine & "Dessa standarder är enligt American Heart Association."

MsgBox (meddelande)

End Sub Private Sub btnhlp_Click (avsändare som System. Object, e Som System. EventArgs) Hanterar btnhlp. Click 'lägg till ett meddelande du vill skriva mellan "" "det är tomt för tillfället Dim urgent_message As String =""

MsgBox (urgent_message)

Avsluta SubSlutklass

Steg 6: Grattis Din framsteg är klar

nu kan du beräkna ditt BMI och du vet hur du redigerar din programvara efter eget tycke

för att spela programvaran, tryck på den gröna pilen i det övre fältet eller tryck helt enkelt på F5 njut!

För din bekvämlighet har vi lagt ut vår egen kalkylator (färdiggjord) samt programmeringen (i en.txt -fil)