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

ber0x88

[VB 6.0] - Índice Massa Corporal

1 mensagem neste tópico

Boas  :confused:

Aqui está um programa, que calcula o Índice de Massa Corporal...

imcdasfas.jpg

Caso ocorra algum erro, o programa pára e mostra uma mensagem com a descrição do erro.

Não aceita valores com "." apenas vírgulas, alterando os pontos pelas vírgulas.

Private Sub cmdSobre_Click()

MsgBox "Programa desenvolvido por:" & vbCrLf & vbCrLf & "El Diablo", vbInformation, "Sobre"

End Sub

Private Sub cmdTotal_Click()
Dim dblPeso As Double
Dim dblAltura As Double
Dim dblTotal As Double

On Error GoTo Erro

lbl2.Visible = False
lbl3.Visible = False
lbl4.Visible = False
lbl5.Visible = False
lbl6.Visible = False
lbl7.Visible = False


txtPeso.Text = Replace(txtPeso.Text, ".", ",")
txtAltura.Text = Replace(txtAltura.Text, ".", ",")

dblPeso = txtPeso.Text
dblAltura = txtAltura.Text


dblTotal = dblPeso / (dblAltura * dblAltura)
lblTotal = dblTotal

lblTotal = Left(dblTotal, 4)

Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case 18, 5 To 24, 9
        lbl3.Visible = True
    Case 25 To 29, 9
        lbl4.Visible = True
    Case 30 To 34, 9
        lbl5.Visible = True
    Case 35 To 39, 9
        lbl6.Visible = True
    Case Is > 40
        lbl7.Visible = True

End Select
Exit Sub

Erro:
MsgBox "Ocorreu o seguinte erro:" & vbCrLf & Err.Description, vbCritical, "Erro..."

End Sub

Cumps...  :ipool:

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