Sign in to follow this  
cseri

Ajuda

Recommended Posts

Estou precisando fazer um trabalho em VB, mas como nunca mexi nesse programa queria saber se vocês não possue o codigo fonte, ou poderia dar algumas dicas de como fazer um programa p/ calcular o indice de massa corporal de uma pessoa.

Obrigado.

Share this post


Link to post
Share on other sites

Bruno

Ai vai.

Para fazer o cálculo do IMC basta dividir seu peso em quilogramas pela altura ao quadrado (em metros). O número que será gerado deve ser comparado aos valores da tabela IMC para se saber se você está abaixo, em seu peso ideal ou acima do peso.

Por exemplo, se você pesa 60Kg e mede 1,67m, você deve utilizar a seguinte fórmula para calcular o IMC:

IMC = 60 ÷ 1,67²

IMC = 60 ÷ 2,78

IMC = 21,5

Share this post


Link to post
Share on other sites

está ai o codigo..... Pelo menos deu o mesmo valor que o lcs passou...XD

Espero que seja isso o que você quer cseri...

Dim ALTURA As Double

Dim PESO As Double

Dim IMC As Double

Private Sub CommandButton1_Click()

ALTURA = TextBox1.Text

PESO = TextBox2.Text

IMC = PESO / (ALTURA * ALTURA)

MsgBox Format(IMC, "##.##") ' o format serviu pra não aparecer um numero fracionario

' muito grande como 21,555222525

End Sub

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this