Calculadora de IMC: 6 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:42

Mi nombre es Umair Bin Asim. Soy estudiante de Perspectiva Global, haciendo mis O niveles. Este proyecto es parte de una campaña de concientización que mis compañeros y yo estamos llevando a cabo actualmente. Reconocemos que la obesidad es un problema creciente en todo el mundo y estamos alentando a las personas a combatir la obesidad antes de que conduzca a una gran catástrofe social. Este proyecto es una de nuestras muchas campañas de sensibilización.

La calculadora de IMC permite a las personas calcular con mayor facilidad su índice de masa corporal y determinar si son obesas o no. La calculadora que hicimos está establecida en los estándares de la Asociación Estadounidense de Salud. El propósito de publicar esto es permitir que las personas no solo hagan una calculadora, sino que también permitan que las personas modifiquen sus calculadoras para cualquiera que sea su estándar nacional.

Paso 1: crear un nuevo proyecto de Visual Studio

1. estudio visual abierto
2. haga clic en nuevo proyecto
3. seleccione solicitud de formulario de viudas
4. cambiar el nombre del proyecto a "calculadora de IMC"
5. guarde el proyecto y recuerde la ubicación (lo he guardado en una unidad separada)

Paso 2: dos secciones

Hay dos secciones en la aplicación de formularios de Windows de Visual Studio.

1) Form1.vb [Diseño]

aquí creas la GUI

2) Form1.vb

aquí escribes tu programación

puede elegir las pestañas seleccionándolas

Paso 3: Diseñe la interfaz (etiquetas y cuadros de texto)

en este paso, debe diseñar la interfaz gráfica de usuario.

1. seleccione etiquetas de la caja de herramientas disponible (si no puede encontrar la caja de herramientas presione Ctrl + Alt + x)
2. arrastre la etiqueta al formulario y organícelas a la derecha. necesitamos tres etiquetas
3. organizar las etiquetas a lo largo de la izquierda
4. haga clic en las etiquetas y en las propiedades cambie Tamaño automático a FALSO, esto le permitirá cambiar el tamaño de la etiqueta.

5. haga clic en las etiquetas y en las propiedades cambie el texto a "altura", "peso", "su IMC", respectivamente.

6. también puede cambiar otra configuración en propiedades como el color y el efecto 3D.
7. arrastre tres cuadros de texto desde la caja de herramientas y alinéelos a lo largo del paralelo izquierdo a las etiquetas
8. haga clic en el cuadro de texto y en las propiedades cambie la configuración del nombre a "txtheight", "txtweight", "txtresults"
9. también puede cambiar otra configuración en propiedades como el color y el efecto 3D.
10. cree un último cuadro de texto y alinéelo en la parte inferior, nombre este cuadro de texto "txtcomment", esto dará un resultado sobre la base del IMC de la persona, ya que la comprensión solo con números puede ser difícil.

11. cambiar el nombre es esencial ya que tendremos que llamar a estos cuadros de texto en nuestro programa, si prefiere poner cualquier otro nombre, también debe cambiar el nombre del botón referido en el programa. (los nombres son de acuerdo a mi programa)

Paso 4: Diseñe la interfaz (botones)

coloque los botones arrastrándolos desde la caja de herramientas y alineándolos como se muestra en la imagen

mientras el botón está seleccionado, cambie el nombre del botón en las propiedades, y también puede cambiar la configuración del texto.

• cree un nombre de botón "btncalc", con el texto "calcular IMC"
• crea un nombre de botón "btnclear", con el texto "clear"
• crear un nombre de botón "btnexit", con el texto "salir"
• cree un nombre de botón "btnabout", con el texto "aprenda sobre nosotros"
• cree un nombre de botón "btnhlp", con el texto "¿necesita ayuda?" (no he usado esto y se ha dejado gratis en caso de que desee agregar un botón de ayuda)

alinee los botones en el formulario GUI como mejor le parezca

cambiar el nombre es fundamental ya que tendremos que llamar a estos botones en nuestro programa, si prefieres poner cualquier otro nombre también debes cambiar el nombre del botón referido en el programa. (los nombres son de acuerdo a mi programa)

Paso 5: Programación de su calculadora

Formulario de clase pública1

Private Sub btncalc_Click (remitente como System. Object, e As System. EventArgs) Maneja btncalc. Click

Dim altura As Double = 0 'crea una variable denominada altura Dim peso As Double = 0' crea una variable denominada peso Dim BMI As Double = 0 'crea una variable denominada BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'lee los números del cuadro de texto txtheight y los guarda en la variable respectiva weight = Double. Parse (txtweight. Text)' lee los números del cuadro de texto txtweight y los guarda en la respectiva variable height = height * 0.0254 'convierte la altura en metros peso = peso * 0.4535924' convierte el peso en kilogramos altura = altura * altura 'cuadra la altura y la guarda en altura variable

If ((altura <= 0) O (peso <= 0)) Entonces 'verificación de validez para asegurar que no se ingresen datos no naturales cleanup () MsgBox ("por favor inserte valores realistas") Salir Sub Fin Si

IMC = cálculo de peso / altura 'del IMC

BMI = Format (BMI, "0.00") 'escribe BMI en dos decimales txtresults. Text = BMI' escribe BMI en el cuadro de texto txtresults txtcomment. Text = "" 'vacía el comentario del cuadro de texto para permitir la entrada de datos

'calcula la condición de acuerdo con el IMC

Si IMC <18,5, la condición puede variar en su país.

txtcomment. Text = "tienes bajo peso"

ElseIf ((BMI> = 18.5) And (BMI 24.9) And (BMI 29.9 Then txtcomment. Text = "eres obeso, por favor toma precauciones" End If

End Sub

Private Sub btnexit_Click (remitente como System. Object, e como System. EventArgs) Maneja btnexit. Click

Función Close () 'para salir End SubPrivate Sub btnclear_Click (remitente como System. Object, e como System. EventArgs) Maneja btnclear. Click cleanup () 'llama a la limpieza de subrutina End Sub Sub cleanup ()' borra cada cuadro de texto txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (remitente como System. Object, e As System. EventArgs) Maneja btnabout. Click

'este es el mensaje que se muestra en un msgbox separado

'puede agregar cualquier cosa que desee después del signo "=" a continuación, pero debe estar entre comas dobles ("")

Dim message As String = "Este software fue creado por Umair Bin Asim en aras de la conciencia social sobre la salud". & vbNewLine & "Un aumento mundial en el número de personas obesas ha provocado un pánico de salud a medida que aumenta el número de casos de enfermedades cardíacas y diabetes". & vbNewLine & "A pesar de todo esto, un gran número de personas no saben si son obesas o no o cómo contrarrestarlo". & vbNewLine & "En respuesta a eso, hemos creado una calculadora para determinar su IMC y si es obeso o no". & vbNewLine & "Estos estándares están de acuerdo con la Asociación Estadounidense del Corazón".

MsgBox (mensaje)

End Sub Private Sub btnhlp_Click (remitente como System. Object, e As System. EventArgs) Maneja btnhlp. Click 'agregar cualquier mensaje que desee escribir entre el ""' está vacío por ahora Dim Urgente_message As String = ""

MsgBox (mensaje_urgencia)

End SubClase final

Paso 6: Felicitaciones, su programación está lista

ahora puedes calcular tu IMC y sabes como editar tu software a tu gusto

para reproducir el software presione la flecha verde en la barra superior o simplemente presione F5 ¡disfrute!

para su conveniencia, hemos publicado nuestra propia calculadora (lista para usar), así como la programación (en un archivo.txt)