Tecnología

Inicio

Cómo calcular el índice de masa corporal utilizando Visual Basic

Cómo calcular el índice de masa corporal utilizando Visual Basic


El Índice de Masa Corporal (IMC) proporciona a los individuos y los médicos una guía para la obesidad. El cálculo del IMC determina si una persona tiene una alta proporción de grasa en comparación con la altura y el peso. Un alto índice de masa corporal indica que una persona se acerca a la obesidad, que puede conducir a problemas de salud más graves, como la diabetes, enfermedades del corazón y problemas respiratorios. Un programador puede calcular el IMC utilizando Visual Basic (VB). El cálculo se lleva a cabo utilizando el algoritmo de BMI y la sintaxis VB.

Instrucciones

1 Crear las variables de Visual Basic. Estas variables tienen los cálculos iniciales de altura y peso. Se crea una tercera variable para contener el valor de IMC. El siguiente código crea las variables VB para los cálculos:
Como la altura Dim decimal
Dim peso Como decimal
Dim IMC como número entero

2 Convertir el peso de libras a kilogramos. Kilogramos es una unidad estándar para cálculos científicos. El peso en libras se convierte multiplicándolo por 703. En este ejemplo, una persona que es de 150 libras y 5 pies y 6 pulgadas se evalúa. A continuación se convierte el peso y lo guarda en la variable altura:
peso = 150 * 703

3 Calcular la altura. La altura se convierte primero a pulgadas. Después de que se convirtió al total de pulgadas, el peso se divide por la altura dos veces. La siguiente es la forma de calcular la altura para el cálculo final IMC (el apóstrofe denota comentarios de código):
altura = 5

12 + 6 '(multiplicar 12 veces los pies y añadir los restantes pulgadas)
height = peso / (5 + 12 6)
height = altura (5 * 12 + 6)

4 Asignar el valor de IMC a la variable, y enviar un mensaje al usuario del software. El valor de altura es el valor decimal del índice de masa corporal. La altura se convierte en un número entero, y se asigna a la variable de índice de masa corporal. A continuación finaliza el cálculo:
IMC = Convert.ToInteger (altura)
MsgBox "El IMC es" y el IMC