Microsoft Visual Basic 6.0

[Glaucco 1]

Boa tarde pessoal eu to com problema, eu to fazendo um programa para calcula IMC índice de massa corporal

ele não ta lendo os "Subnutrido" "Normal" alguem pode me ajuda eu to fazendo no Microsoft Visual Basic 6.0

 

 

Dim Altura As Double

Dim Peso As Double

Dim IMC As Double

Altura = txtAltura.Text

Peso = txtPesoAtual.Text

lblpesoideale.Caption = Peso / (Altura ^ 2)

 

 

Select Case IMC

Case IMC < 20

lblsituacao.Caption = "Subnutrido"

Case IMC > 30

lblsituacao.Caption = "Obeso"

Case Else

lblsituacao.Caption = "Normal"

End Select

lblresutado.Caption = lblpesoideal.Caption

[scorpio 7]

Boa tarde pessoal eu to com problema, eu to fazendo um programa para calcula IMC índice de massa corporal

ele não ta lendo os "Subnutrido" "Normal" alguem pode me ajuda eu to fazendo no Microsoft Visual Basic 6.0

 

Dim Altura As Double
Dim Peso As Double
Dim IMC As Double
Altura = txtAltura.Text
Peso = txtPesoAtual.Text
lblpesoideale.Caption = Peso / (Altura ^ 2)


Select Case IMC
Case IMC < 20
	lblsituacao.Caption = "Subnutrido"
Case IMC > 30
	lblsituacao.Caption = "Obeso"
Case Else
	lblsituacao.Caption = "Normal"
End Select
  lblresutado.Caption = lblpesoideal.Caption

Onde você atribuiu alguma coisa a variavel IMC ?

 

 

Tente assim:

 

Dim Altura As Double
Dim Peso As Double
Dim IMC As Double
Altura = txtAltura.Text
Peso = txtPesoAtual.Text
IMC = Peso / (Altura ^ 2)

If( IMC < 20 )Then
	lblsituacao.Caption = "Subnutrido"
elseif IMC > 30
	lblsituacao.Caption = "Obeso"
elseif
	lblsituacao.Caption = "Normal"
End if

[Glaucco 1]

Pessoa,l eu fis asim mais o programa não calcula o imc dentro do label.

 

Private Sub cmdCalcular_Click()

Dim Altura As Double

Dim Peso As Double

Dim IMC As Double

 

If txtAltura.Text = "" Then

'Mensagem ao usuário, caso o campo altura não seja informado

MsgBox ("É Preciso Informar a Altura!")

txtAltura.SetFocus

Else

'Caso a altura tenha sido informada, atribua o valor digitado pelo usuário

'à variável Altura

Altura = Val(txtAltura.Text)

End If

 

If txtPesoAtual.Text = "" Then

'Mensagem ao usuário, caso o campo Peso não seja informado

MsgBox ("É Preciso Informar a Peso!")

txtPesoAtual.SetFocus

Else

'Se o Peso Atual tiver sido informado, atribua o valor digitado à

'variável Peso e Calcule o IMC

Peso = Val(txtPesoAtual.Text)

'Calculo do IMC (Índice de massa corpórea): peso/(altura^2)

IMC = Int(CDbl(Peso / (Altura ^ 2)))

'Se o IMC for menor que 20 a pessoa está subnutrido

'Se o IMC for maior que 30 a pessoa está obeso

End If

 

If optMasculino.Value Then

'Fórmula para encontrar o Peso Ideal: Homens

lblpesoideale.Caption = Format((72.7 * Altura) - 58, "00.0 Kg")

End If

If optFeminino.Value Then

lblpesoideale.Caption = Format((72.7 * Altura) - 58, "00.0 Kg")

End If

If IMC < 20 Then

lblvoceesta.Caption = "subnutrido"

End If

 

If IMC > 30 Then

lblvoceesta.Caption = "obeso"

Else

 

'Nos outros casos a pessoa está normal

lblvoceesta.Caption = "Normal"

End If

End Sub

[Glaucco 1]

Alguem pode me ajuda agora o problema é no case quem tem vb 6.0 pra me ajuda ????????????

Quem não tem Microsoft Visual Basic 6.0 pode baixa nesse site claro quem deseja me ajuda

http://www.gforum.tv/board/580/116788/micr...ofessional.html

 

Private Sub cmdCalcular_Click()

Dim Altura As Double

Dim Peso As Double

Dim IMC As Double

 

If txtAltura.Text = "" Then

'Mensagem ao usuário, caso o campo altura não seja informado

MsgBox ("É Preciso Informar a Altura!")

txtAltura.SetFocus

Else

'Caso a altura tenha sido informada, atribua o valor digitado pelo usuário

'à variável Altura

Altura = Val(txtAltura.Text)

 

Select Case IMC#

Case IMC

If optMasculino.Value Then

Else

If optFeminino.Value Then

End If

 

 

 

If txtPesoAtual.Text = "" Then

'Mensagem ao usuário, caso o campo Peso não seja informado

MsgBox ("É Preciso Informar a Peso!")

txtPesoAtual.SetFocus

Else

'Se o Peso Atual tiver sido informado, atribua o valor digitado à

'variável Peso e Calcule o IMC

Peso = Val(txtPesoAtual.Text)

'Calculo do IMC (Índice de massa corpórea): peso/(altura^2)

IMC = Int(CDbl(Peso / (Altura ^ 2)))

'Se o IMC for menor que 20 a pessoa está subnutrido

'Se o IMC for maior que 30 a pessoa está obeso

'Nos outros casos a pessoa está normal

lblvoceesta.Caption = "Normal"

If IMC < 20 Then

lblvoceesta.Caption = "subnutrido"

Else

If IMC > 30 Then

lblvoceesta.Caption = "obeso"

 

End If

End If

If optMasculino.Value Then

'Fórmula para encontrar o Peso Ideal: Homens

lblpesoideale.Caption = Format((72.7 * Altura) - 58, "00.0 Kg")

End If

 

 

If optFeminino.Value Then

lblpesoideale.Caption = Format((72.7 * Altura) - 58, "00.0 Kg")

End If

 

End Sub

 

Private Sub cmdSair_Click()

frmpesoideal.Hide

End Sub

[scorpio 7]

qual a finalidade desse trecho ?

Select Case IMC#
Case IMC
If optMasculino.Value Then
Else
If optFeminino.Value Then
End If

 

O método Hide somente esconde o formulário

Private Sub cmdSair_Click()
frmpesoideal.Hide
End Sub

Troque por:

Private Sub cmdSair_Click()
Unload frmpesoideal
End
End Sub

Seja mais especifico nas suas duvidas, fale o erro que esta ocorrendo etc., fica mais facil do pessoal ajudar. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif