Hola denuevo.
Hace tiempo que no creaba nuevas entradas en el blog, pero aqui estamos de vuelta con un codigo sencillo, para ir despacio con los aportes :D.
Este codigo permite hacer el calculo del IMC (Indice de Masa Corporal) a traves de una funcion en Visual Basic 6, que retornara una cadena, la que se puede modificar de la forma que desees para obtener sus resultados.
Sin mas preambulos aqui esta el codigo y deben pegarlo en un modulo o en cualquier parte de un formulario :
Public Function CalculaIMC(ByVal Peso As Double, ByVal Altura As Double) As String
Dim Imc As Double
Dim Result As String
Dim Estado As String
Imc = Round(Peso / (Altura ^ 2), 1)
If Imc < 18.5 Then
result = "Bajo Peso"
estado = "Riesgo"
ElseIf Imc >= 18.5 And Imc <= 24.9 Then
Result = "Normal"
Estado = "Bajo"
ElseIf Imc >= 25 And Imc <= 29.9 Then
Result = "Sobrepeso"
Estado = "Aumentado"
ElseIf Imc >= 30 And Imc <= 34.9 Then
Result = "Obesidad Moderada"
Estado = "Moderado"
ElseIf Imc >= 35 And Imc <= 39.9 Then
Result = "Obesidad Severa"
Estado = "Severa"
ElseIf Imc >= 40 Then
Result = "Obesidad Muy Severa"
Estado = "Muy Severa"
End If
CalculaIMC = "IMC : " & CStr(Imc) & vbNewLine & _
"Resultado : " & Result & vbNewLine & _
"Estado : " & Estado & vbNewLine
End Function
Y para llamarlo deben usar el siguiente codigo en cualquier parte de un formulario :
Dim ResIMC As String
ResIMC = CalculaIMC(80, 1.70)
Bueeeno, espero les haya servido de algo y para pasarlo a otros lenguajes nada mejor que saber la unica formula importante: Peso / (Altura ^ 2)
