• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

tukith

ajudem me por favor urgente

6 mensagens neste tópico

galera, estou tentando fazer um programa para calcular o IMC (Índice de Massa Corporal), só que não funciona,

queria que dependendo da conta de peso.Text / altura.Text = resultado.Text a resposta seria :

Abaixo do Peso I

Abaixo do Peso

Peso Normal

Acima do Peso

Obesidade I

Obesidade II

mas quando consigo só aparece a primeira ou a última, vou postar uma foto mostrando um erro e vou colocar o código mais abaixo também

vb6xj9.png

Private Sub Command1_Click()

If Val(resultado.Text) = Val(peso.Text) / (altura.Text) Then

resultado.Text = "15, Abaixo do Peso I."

else resultado.Text = "15 a 18.5, Abaixo do Peso."

Elseif resultado.Text = "18.6 a 24.9, Peso Normal. Then

Else

resultado.Text = "25 a 29.9, Acima do Peso."

elseif resultado.Text = "30 a 39.9, Obesidade I."

else

resultado.Text = "40 ou mais, Obesidade II."

End If

end If

End If

End Sub

vlw galera

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

posta o programa...e de manha(minha)...eu te reenvio

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub Command1_Click()
If Val(resultado.Text) = Val(peso.Text) / (altura.Text) Then
   resultado.Text = "15, Abaixo do Peso I."
else resultado.Text = "15 a 18.5, Abaixo do Peso."
   Elseif resultado.Text = "18.6 a 24.9, Peso Normal. Then (Erro)
Else
   resultado.Text = "25 a 29.9, Acima do Peso."
      elseif resultado.Text = "30 a 39.9, Obesidade I."
else
resultado.Text = "40 ou mais, Obesidade II."
      End If
   end If
End If
End Sub

vlw galera

(Erro) Falta qualquer coisa entre if e o else.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Command1_Click()
resultado.Text = Val(peso.Text) / (altura.Text)
        If Val(resultado.Text) <= 15 Then
            resultado.Text = resultado.Text & ", Abaixo do Peso I."
        ElseIf Val(resultado.Text) > 15 And Val(resultado.Text) <= 18.5 Then
            resultado.Text = resultado.Text & ", Abaixo do Peso II."
        ElseIf Val(resultado.Text) > 18.5 And Val(resultado.Text) <= 24.9 Then
            resultado.Text = resultado.Text & ", Peso Normal."
        ElseIf Val(resultado.Text) > 24.9 And Val(resultado.Text) <= 29.9 Then
            resultado.Text = resultado.Text & ", Acima do Peso."
        ElseIf Val(resultado.Text) > 29.9 And Val(resultado.Text) <= 39.9 Then
            resultado.Text = resultado.Text & ", Obesidade I."
        ElseIf Val(resultado.Text) > 39.9 Then
            resultado.Text = resultado.Text & ", Obesidade II."
        End If
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Command1_Click()
resultado.Text = Val(peso.Text) / (altura.Text)
        Select Case Val(resultado.Text)
            Case Is < 15
                resultado.Text = resultado.Text & ", Abaixo do Peso I."
            Case 15 To 18.5
                resultado.Text = resultado.Text & ", Abaixo do Peso II."
            Case 18.6 To 24.9
                resultado.Text = resultado.Text & ", Peso Normal."
            Case 25 To 29.9
                resultado.Text = resultado.Text & ", Acima do Peso."
            Case 30 To 39.9
                resultado.Text = resultado.Text & ", Obesidade I."
            Case Is > 39.9
                resultado.Text = resultado.Text & ", Obesidade II."
        End Select
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora