BMI Sakrekenaar: 6 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:26

My naam is Umair Bin Asim. Ek is 'n student van Global Perspective en doen my O -vlakke. Hierdie projek is deel van 'n bewusmakingsveldtog wat ek en my klasmaats tans voer. Ons erken vetsug as 'n toenemende probleem oor die hele wêreld en moedig mense aan om vetsug te bekamp voordat dit tot 'n groot sosiale katastrofe lei. Hierdie projek is een van ons vele bewusmakingsveldtogte.

Die BMI -sakrekenaar is om mense makliker te laat om hul liggaamsmassa -indeks te bereken en te bepaal of hulle vetsugtig is of nie. Die sakrekenaar wat ons gemaak het, is ingestel in die standaarde van die American Health Association. Die doel om dit te plaas, is om mense in staat te stel om nie net 'n sakrekenaar te maak nie, maar ook om mense toe te laat om hul sakrekenaars aan te pas volgens hul nasionale standaard.

Stap 1: Skep 'n nuwe Visual Studio -projek

1. oop visuele ateljee
2. klik op 'n nuwe projek
3. kies weduwees uit die aansoek
4. hernoem die projek na "BMI -sakrekenaar"
5. stoor die projek en onthou die ligging (ek het dit in 'n aparte skyf gestoor)

Stap 2: Twee afdelings

daar is twee afdelings in Visual studio vensters vorm aansoek

1) Vorm1.vb [Ontwerp]

hier skep u die GUI

2) Vorm1.vb

hierin skryf u u programmering

u kan die oortjies kies deur daarop te kies

Stap 3: Ontwerp die koppelvlak (etikette en teksbusse)

In hierdie stap moet u die grafiese gebruikerskoppelvlak ontwerp.

1. kies etikette uit die beskikbare gereedskapskis (druk Ctrl+Alt+x as u die gereedskapskas nie kan vind nie)
2. sleep die etiket na die vorm en rangskik dit regs. ons benodig drie etikette
3. rangskik die etikette aan die linkerkant
4. klik op die etikette en verander in die eiendomme outosize na onwaar, sodat u die grootte van die etiket kan verander.

5. klik op die etikette en verander die teks in die eienskappe in onderskeidelik "hoogte", "gewig", "u BMI".

6. u kan ook ander instellings in eienskappe soos kleur en 3D -effek verander.
7. sleep drie teksblokkies uit die gereedskapskas en pas dit langs die parallel aan die etikette
8. klik op die tekskassie en verander die naaminstellings in die eienskappe na "txtheight", "txtweight", "txtresults"
9. u kan ook ander instellings in eienskappe soos kleur en 3D -effek verander.
10. skep 'n laaste tekskassie en pas dit onderaan, noem hierdie teksblokkie 'txtcomment', dit sal 'n resultaat gee op grond van die BMI van die persone, aangesien dit slegs moeilik is om dit uit getalle te verstaan.
11. Dit is noodsaaklik om die naam te verander, aangesien ons hierdie teksblokkies in ons program moet oproep. As u 'n ander naam verkies, moet u ook die naam van die knoppie in die program verander. (die name is volgens my program)

Stap 4: Ontwerp die koppelvlak (knoppies)

plaas knoppies deur dit uit die gereedskapskas te sleep en dit in lyn te bring soos op die foto

terwyl die knoppie gekies is, verander die naam op die knoppie in die eiendomme, en u kan ook die teksinstelling verander.

• skep 'n knoppie naam "btncalc", met die teks "bereken BMI"
• skep 'n knoppie naam "btnclear", met die teks "duidelik"
• skep 'n knoppie naam "btnexit", met die teks "exit"
• skep 'n knoppie naam "btnabout", met die teks "leer meer oor ons"
• skep 'n knoppie naam "btnhlp", met die teks "hulp nodig?" (ek het dit nie gebruik nie en dit is gratis gelaat as u 'n hulpknoppie wil byvoeg)

pas die knoppies in die GUI -vorm in soos u dit goedvind

Dit is noodsaaklik om die naam te verander, aangesien ons hierdie knoppies in ons program moet oproep. As u 'n ander naam verkies, moet u ook die naam van die knoppie in die program verander. (die name is volgens my program)

Stap 5: Programmering van u sakrekenaar

Publieke klasvorm1

Private Sub btncalc_Click (sender as System. Object, e As System. EventArgs) hanteer btncalc_Click

Dim hoogte As dubbel = 0 'skep veranderlike met die naam hoogte Gewig as dubbel = 0' skep veranderlike met die naam gewig Dim BMI As Double = 0 'skep veranderlike met die naam BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'lees syfers uit die tekskassie txtheight en stoor dit in die onderskeie veranderlike gewig = Double. Parse (txtweight. Text)' lees syfers uit die teksboks txtweight en stoor dit in die onderskeie veranderlike hoogte = hoogte * 0,0254 'omskakel hoogte in meter gewig = gewig * 0,4535924' omskep gewig in kilogram hoogte = hoogte * hoogte 'kwadrate helm en stoor dit in veranderlike hoogte

As ((hoogte <= 0) Of (gewig <= 0)) Dan 'geldigheidskontrole om te verseker dat onnatuurlike data nie ingevoer word nie, opruiming () MsgBox ("voeg realistiese waardes in") Verlaat sub -einde as

BMI = gewig / lengte 'berekening van BMI

BMI = Formaat (BMI, "0.00") 'skryf BMI tot twee desimale plek txtresults. Text = BMI' skryf BMI in teksbus txtresults txtcomment. Text = "" 'maak teksbusopmerking leeg om data in te voer

'bereken die toestand volgens die BMI

As BMI <18,5 dan kan die toestand in u land wissel

txtcomment. Text = "jy is onder gewig"

Anders (as (BMI> = 18.5) En (BMI 24.9) En (BMI 29.9 Dan txtcomment. Text = "u is vetsugtig, neem voorsorgmaatreëls" Einde as

Einde Sub

Private Sub btnexit_Click (sender as System. Object, e As System. EventArgs) hanteer btnexit. Click

Sluit () funksie vir afrit Einde SubPrivate Sub btnclear_Click (sender as System. Object, e As System. EventArgs) Hanteer btnclear. Click cleanup () 'roep subroetine skoonmaak' End Sub Sub cleanup () 'maak elke teksblokkie skoon txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () Einde Sub

Private Sub btnabout_Click (sender as System. Object, e As System. EventArgs) hanteer btnabout_Click

'dit is die boodskap in 'n aparte boodskap

'u kan alles byvoeg wat u wil na die onderstaande "=" teken, maar dit moet tussen dubbele komma's ("") wees

Dim boodskap As String = "Hierdie sagteware is gemaak deur Umair Bin Asim ter wille van sosiale bewustheid oor gesondheid." & vbNewLine & "'n Wêreldwye toename in die aantal vetsugtige mense het 'n gesondheids paniek veroorsaak omdat die aantal gevalle van hartsiektes en diabetes toeneem." & vbNewLine & "Ten spyte hiervan weet 'n groot aantal mense nie of hulle vetsugtig is of nie." & vbNewLine & "In reaksie daarop het ons 'n sakrekenaar gemaak om u BMI te bepaal en of u vetsugtig is of nie." & vbNewLine & "Hierdie standaarde is volgens die American Heart Association."

MsgBox (boodskap)

Einde Sub Privaat Sub btnhlp_Click (sender as System. Object, e As System. EventArgs) Hanteer btnhlp. Click 'voeg enige boodskap by wat u wil skryf tussen die ""' dit is leeg vir nou Dim urgent_message As String = ""

MsgBox (dringende_boodskap)

Einde SubEindklas

Stap 6: Baie geluk met u vooruitgang

nou kan u u BMI bereken en u weet hoe u u sagteware na u smaak kan wysig

om die sagteware te speel, druk op die groen pyltjie in die boonste balk of druk eenvoudig op F5 geniet!

Vir u gemak het ons ons eie sakrekenaar (klaargemaak) sowel as die programmering (in 'n.txt -lêer) geplaas