Calculadora d’IMC: 6 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:14

Em dic Umair Bin Asim. Sóc estudiant de Perspectiva Global, fent els meus nivells d’O. Aquest projecte forma part d’una campanya de sensibilització que actualment realitzem jo i els meus companys. Reconeixem l’obesitat com un problema en augment a tot el món i animem la gent a combatre l’obesitat abans que es produeixi una catàstrofe social important. Aquest projecte és una de les nostres moltes campanyes de sensibilització.

La calculadora de l’IMC permet a les persones tenir més facilitat en calcular el seu índex de massa corporal i determinar si són obesos o no. La calculadora que hem fabricat s’estableix en els estàndards de l’American Health Association. El propòsit de publicar això és permetre a la gent no només fer una calculadora, sinó també permetre que la gent modifiqui les seves calculadores sigui quin sigui el seu estàndard nacional.

Pas 1: crear un nou projecte de Visual Studio

1. estudi visual obert
2. feu clic al nou projecte
3. seleccioneu l'aplicació del formulari de vídues
4. canviar el nom del projecte a "calculadora IMC"
5. deseu el projecte i recordeu la ubicació (l'he desat en una unitat independent)

Pas 2: dues seccions

hi ha dues seccions a l'aplicació de Windows Visual Studio

1) Form1.vb [Disseny]

aquí creeu la GUI

2) Form1.vb

aquí escriviu la vostra programació

podeu triar les pestanyes seleccionant-les

Pas 3: Dissenyeu la interfície (etiquetes i quadres de text)

en aquest pas heu de dissenyar la interfície gràfica d'usuari.

1. seleccioneu etiquetes a la caixa d'eines disponible (si no la trobeu, premeu Ctrl + Alt + x)
2. arrossegueu l’etiqueta al formulari i organitzeu-les a la dreta. necessitem tres etiquetes
3. organitzeu les etiquetes a l'esquerra
4. feu clic a les etiquetes i, a les propietats, canvieu la mida automàtica a FALS, això us permetrà canviar la mida de l'etiqueta.

5. feu clic a les etiquetes i a les propietats canvieu el text a "alçada", "pes", "el vostre IMC", respectivament.

6. també podeu canviar altres paràmetres en propietats com el color i l'efecte 3D.
7. arrossegueu tres quadres de text des de la caixa d’eines i alineeu-los al costat esquerre paral·lel a les etiquetes
8. feu clic al quadre de text i, a les propietats, canvieu la configuració del nom a "txtheight", "txtweight", "txtresults"
9. també podeu canviar altres paràmetres en propietats com el color i l'efecte 3D.
10. creeu un darrer quadre de text i alineeu-lo a la part inferior, anomeneu aquest quadre de text "txtcomment", donant un resultat sobre la base de l'IMC de les persones, ja que la comprensió només a partir dels números pot ser difícil.
11. canviar el nom és essencial, ja que haurem de convocar aquestes caixes de text al nostre programa; si preferiu posar qualsevol altre nom, també heu de canviar el nom del botó referit al programa. (els noms són segons el meu programa)

Pas 4: dissenyar la interfície (botons)

col·loqueu els botons arrossegant-los des de la caixa d'eines i alineant-los tal com es mostra a la imatge

mentre el botó està seleccionat, canvieu el nom del botó a les propietats i també podeu canviar la configuració del text.

• creeu un nom de botó "btncalc", amb el text "calcular l'IMC"
• creeu un nom de botó "btnclear", amb el text "esborra"
• creeu un nom de botó "btnexit", amb el text "exit"
• creeu un nom de botó "btnabout", amb el text "apreneu sobre nosaltres"
• creeu un nom de botó "btnhlp", amb el text "necessiteu ajuda?" (No ho he fet servir i s'ha deixat lliure per si voleu afegir un botó d'ajuda)

alineeu els botons del formulari GUI segons convingueu

canviar el nom és essencial, ja que haurem de convocar aquests botons al nostre programa; si preferiu posar qualsevol altre nom, també heu de canviar el nom del botó referit al programa. (els noms són segons el meu programa)

Pas 5: programació de la calculadora

Classe pública Form1

Private Sub btncalc_Click (remitent com a System. Object, i com a System. EventArgs) Gestiona btncalc. Click

Dism. Altura com a doble = 0 'crea una variable anomenada alçada Dism. Pes Com a doble = 0' crea variable amb nom de pes.

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'llegeix els números del text txtheight del quadre de text i el desa en el pes variable respectiu = Double. Parse (txtweight. Text)' llegeix els números del pes txt del quadre de text i els desa a la variable respectiva altura = altura * 0,0254 "converteix l'alçada en metres pes = pes * 0,4535924" converteix el pes en quilograms alçada = alçada * alçada "quadrats longitud i l'estalvia en alçada variable

Si ((alçada <= 0) O (pes <= 0)) Llavors 'comprovació de validesa per assegurar-se que no s'introdueixen dades no naturals neteja () MsgBox ("si us plau inseriu valors realistes") Surt Subfinit Si

IMC = pes / alçada 'càlcul de l'IMC

IMC = Format (IMC, "0,00") 'escriu l'IMC a dos txtresults decimals. Text = IMC' escriu l'IMC al quadre de text txtresults txtcomment. Text = "" buida el comentari de la caixa de text per permetre l'entrada de dades

'calcula l'estat segons l'IMC

Si l'IMC <18,5, llavors, la condició pot variar al vostre país

txtcomment. Text = "teniu poc pes"

ElseIf ((IMC> = 18,5) I (IMC 24,9) I (IMC 29,9) A continuació, txtcomment. Text = "esteu obesos, preneu les precaucions" Finalitzar si

Finalitzar sub

Private sub btnexit_Click (remitent com a System. Object, i com a System. EventArgs) Gestiona btnexit. Click

Funció Close () per a la sortida End SubPrivate Sub btnclear_Click (remitent com System. Object, i com System. EventArgs) Maneja btnclear. Click cleanup () 'crida neteja sub rutina Finalitza neteja sub sub ()' neteja cada quadre de text txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (remitent com a System. Object, i com a System. EventArgs) Gestiona btnabout. Click

'aquest és el missatge que es mostra en una altra caixa de missatges

'podeu afegir qualsevol cosa que vulgueu després del signe "=" que apareix a continuació, però ha d'estar entre comes dobles ("")

Dim message As String = "Aquest programari va ser creat per Umair Bin Asim per al coneixement social sobre la salut". & vbNewLine & "Un augment mundial del nombre de persones obeses ha provocat un pànic de salut, ja que el nombre de casos de malalties cardíaques i diabetis augmenta." & vbNewLine & "Malgrat tot, un gran nombre de persones no saben si són obesos o no com contrarestar-ho". & vbNewLine & "En resposta a això, hem fet una calculadora per determinar el vostre IMC i si sou obesos o no". & vbNewLine & "Aquests estàndards són segons l'American Heart Association".

MsgBox (missatge)

End Sub Private Sub btnhlp_Click (remitent com a System. Object, i com a System. EventArgs) Gestiona btnhlp. Click 'afegeix qualsevol missatge que vulguis escriure entre el ""' que està buit per ara Dim urgent_message As String = ""

MsgBox (missatge_urgent)

Finalitzar subClasse final

Pas 6: Enhorabona: s'ha acabat la programació

ara podeu calcular el vostre IMC i ja sabeu com editar el vostre programari al vostre gust

per reproduir el programari, premeu la fletxa verda a la barra superior o simplement premeu F5 gaudir!

per a la vostra comoditat, hem publicat la nostra pròpia calculadora (ja feta) i la programació (en un fitxer.txt)