BMI -laskin: 6 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:02

Nimeni on Umair Bin Asim. Olen globaalin näkökulman opiskelija ja teen O -tasojani. Tämä projekti on osa tietoisuuskampanjaa, jota minä ja luokkatoverini parhaillaan toteutamme. Tunnistamme lihavuuden nousevana ongelmana kaikkialla maailmassa ja kannustamme ihmisiä torjumaan lihavuutta ennen kuin se johtaa suureen sosiaaliseen katastrofiin. Tämä projekti on yksi monista tiedotuskampanjoistamme.

BMI -laskimen avulla ihmiset voivat helpommin laskea painoindeksinsä ja määrittää, ovatko he lihavia vai eivät. Valmistamamme laskin on asetettu amerikkalaisen terveysyhdistyksen standardeihin. Tämän julkaisemisen tarkoituksena on antaa ihmisten tehdä laskin lisäksi myös mahdollisuus muokata laskimia kansallisten standardiensa mukaisesti.

Vaihe 1: Uuden Visual Studio -projektin luominen

1. avoin visuaalinen studio
2. klikkaa uutta projektia
3. valitse leskiä hakemuslomake
4. nimeä projekti uudelleen "BMI -laskin"
5. tallenna projekti ja muista sijainti (olen tallentanut sen erilliseen asemaan)

Vaihe 2: Kaksi osaa

Visual Studio -ikkunoissa on kaksi osaa

1) Lomake1.vb [Suunnittelu]

täällä luot GUI: n

2) Lomake 1.vb

täällä kirjoitat ohjelmointisi

voit valita välilehdet valitsemalla ne

Vaihe 3: Suunnittele käyttöliittymä (tarrat ja tekstiruudut)

tässä vaiheessa sinun on suunniteltava grafiikan käyttöliittymä.

1. valitse tarrat käytettävissä olevasta työkalupakista (jos et löydä työkalulaatikkoa, paina Ctrl+Alt+x)
2. vedä tarra lomakkeelle ja järjestä ne oikealle. tarvitsemme kolme tarraa
3. järjestä tarrat vasemmalle
4. napsauta tarroja ja muutat ominaisuuksissa Automaattinen koko arvoksi EPÄTOSI, jolloin voit muuttaa tarran kokoa.

5. napsauta tarroja ja muuta ominaisuuksissa teksti "pituudeksi", "painoksi" ja "BMI: si".

6. Voit myös muuttaa muita ominaisuuksia, kuten värejä ja 3D -tehosteita.
7. vedä kolme tekstiruutua työkalupakista ja kohdista ne vasemmalle rinnakkain tarrojen kanssa
8. napsauta tekstiruutua ja muuta ominaisuuksissa nimeasetuksiksi "txtheight", "txtweight", "txtresults"
9. Voit myös muuttaa muita ominaisuuksia, kuten väriä ja 3D -tehostetta.
10. luo viimeinen tekstiruutu ja kohdista se alareunaan, nimeä tämä tekstiruutu "txtcomment", tämä antaa tuloksen henkilöiden BMI: n perusteella, koska pelkästään numeroiden ymmärtäminen voi olla vaikeaa.
11. nimen muuttaminen on välttämätöntä, koska meidän on kutsuttava nämä tekstiruudut esiin ohjelmassamme, jos haluat lisätä jonkin muun nimen, sinun on myös muutettava mainitun painikkeen nimi ohjelmassa. (nimet ovat ohjelmani mukaan)

Vaihe 4: Suunnittele käyttöliittymä (painikkeet)

Aseta painikkeet vetämällä niitä työkalupakista ja kohdistamalla ne kuvan osoittamalla tavalla

kun painike on valittuna, muuta painikkeen nimeä ominaisuuksissa ja voit muuttaa myös teksti -asetusta.

• luo painikkeen nimi "btncalc" ja teksti "laske BMI"
• luo painikkeen nimi "btnclear" ja teksti "clear"
• luo painikkeen nimi "btnexit" ja teksti "exit"
• luo painikkeen nimi "btnabout" ja teksti "opi meistä"
• luo painikkeen nimi "btnhlp" ja teksti "tarvitsetko apua?" (en ole käyttänyt tätä ja se on jätetty vapaaksi, jos haluat lisätä ohjepainikkeen)

kohdista graafisen käyttöliittymän painikkeet haluamallasi tavalla

nimen muuttaminen on välttämätöntä, koska meidän on kutsuttava nämä painikkeet esiin ohjelmassamme, jos haluat käyttää muuta nimeä, sinun on myös muutettava mainitun painikkeen nimi ohjelmassa. (nimet ovat ohjelmani mukaan)

Vaihe 5: Laskimen ohjelmointi

Julkisen luokan lomake 1

Yksityinen osa btncalc_Click (lähettäjä System. Object, e System. EventArgs) Käsittelee btncalc. Click

Himmennä korkeus kaksinkertaisena = 0 'luo muuttujan nimeltä korkeus himmennä paino kuin kaksinkertainen = 0' luo muuttujan nimeltä paino Dim BMI Kuten Double = 0 'luo muuttujan nimeltä BMI

txtresults. Text = ""

korkeus = Double. Parse (txtheight. Text) 'lukee numerot tekstiruudusta txtheight ja tallentaa sen vastaavaan muuttuvaan painoon = Double. Parse (txtweight. Text)' lukee numerot tekstiruudusta txtweight ja tallentaa sen vastaavaan muuttujan korkeuteen = korkeus * 0,0254 'muuntaa korkeuden metreiksi paino = paino * 0,4535924' muuntaa painon kilogrammoiksi korkeus = korkeus * korkeus neliöinä ja tallentaa sen muuttuvaksi korkeudeksi

Jos ((korkeus <= 0) Tai (paino <= 0)) Sitten 'pätevyyden tarkistus, jolla varmistetaan, että luonnotonta tietoa ei syötetä puhdistus () MsgBox ("lisää realistiset arvot") Poistu alapäästä Jos

BMI = paino / pituus 'laskeminen BMI

BMI = Format (BMI, "0.00") 'kirjoittaa BMI kahden desimaalin tarkkuudella txtresults. Text = BMI' BMI in textbox txtresults txtcomment. Text = "" 'tyhjentää tekstikentän kommentin salliakseen tietojen syöttämisen

'laskee kunnon BMI: n mukaan

Jos BMI <18,5, niin tila voi vaihdella maassasi

txtcomment. Text = "olet alipainoinen"

MuutenJos ((BMI> = 18,5) ja (BMI 24,9) ja (BMI 29,9) Sitten txtcomment. Text = "olet lihava, noudata varotoimia" Lopeta

End Sub

Yksityinen osa btnexit_Click (lähettäjä System. Object, e System. EventArgs) Käsittelee btnexit. Click

Sulje () '-toiminto poistuaksesi End SubYksityinen osa btnclear_Click (lähettäjä System. Objectina, e As System. EventArgs) Käsittelee btnclear. Click cleanup () '-puheluiden alirutiinipuhdistusta End Sub Sub cleanup ()' tyhjentää tekstikentän txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () Loppuosa

Yksityinen osa btnabout_Click (lähettäjä System. Object, e System. EventArgs) Käsittelee btnabout. Click

Tämä on viesti, joka näkyy erillisessä viestilaatikossa

Voit lisätä haluamasi asiat alla olevan "=" -merkin jälkeen, mutta niiden on oltava kaksoispilvien välissä ("")

Dim message As String = "Tämän ohjelmiston on luonut Umair Bin Asim terveyden sosiaalisen tietoisuuden vuoksi." & vbNewLine & "Lihavien ihmisten määrä on maailmanlaajuisesti lisännyt terveyspaniikkia, kun sydänsairauksien ja diabeteksen tapausten määrä kasvaa." & vbNewLine & "Tästä huolimatta suuri joukko ihmisiä ei tiedä, ovatko he lihavia vai eivät, tai miten sitä voidaan torjua." & vbNewLine & "Vastauksena siihen, että olemme tehneet laskimen BMI: n määrittämiseksi ja oletko lihava vai et." & vbNewLine & "Nämä standardit ovat American Heart Associationin mukaan".

MsgBox (viesti)

Lopeta Sub Yksityinen osa btnhlp_Click (lähettäjä System. Object, e As System. EventArgs) Käsittelee btnhlp. Napsauta 'lisää kaikki viestit, jotka haluat kirjoittaa "" "väliin, se on tyhjä toistaiseksi Dim skub_message As String =""

MsgBox (kiireellinen_viesti)

End SubLoppu luokka

Vaihe 6: Onnittelut, että ohjelmointisi on suoritettu

nyt voit laskea BMI: si ja tiedät, miten voit muokata ohjelmistoasi mieleiseksesi

Jos haluat pelata ohjelmistoa, paina vihreää nuolta yläpalkissa tai paina F5 nauti!

avuksesi on lähetetty oma laskin (valmis) sekä ohjelmointi (.txt -tiedostona)