Jump to content

Calcular IMC Visual basic Ajuda


sabing
 Share

Recommended Posts

A onde eu estou errando no calculo IAC, olha abaixo

        Dim quadril As Double
        Dim altura As Double
        Dim resultado As Double


        quadril = Convert.ToDouble(TextBox1.Text)
        altura = Convert.ToDouble(TextBox2.Text)


        resultado = quadril / (altura * Math.Sqrt(altura)) - 18


        TextBox3.Text = Convert.ToDouble(resultado)

esta dando diferente da calculadora de um site que calcula IAC

http://revistaepoca.globo.com/Revista/Epoca/0,,EMI217675-15257,00-O+EXCESSO+DE+GOSTOSURA+VIROU+GORDURA+SITE.html

EDIT: GeSHi adicionado

Link to comment
Share on other sites

        Dim resultado As Double

        ...

        TextBox3.Text = Convert.ToDouble(resultado)

resultado ja é um Double. Porque é que convertes de Double para Double? ???

esta dando diferente da calculadora de um site

Atencao aos arredondamentos. A diferenca dos teus resultados e do site (tem Flash: nao consigo ver) é da ordem dos milésimos ou na ordem das dezenas?

What have you tried?

Não respondo a dúvidas por PM

A minha bola de cristal está para compor; deve ficar pronta para a semana.

Torna os teus tópicos mais atractivos e legíveis usando a tag CODE para colorir o código!

Link to comment
Share on other sites

Esta certo o calculo?, fica muito diferente do site! o que esta de errado

Dim quadril As Double

        Dim altura As Double

        Dim resultado As Double

        quadril = Convert.ToDouble(TextBox1.Text)

        altura = Convert.ToDouble(TextBox2.Text)

        resultado = quadril / (altura * Math.Sqrt(altura)) - 18

        TextBox3.Text = resultado

Link to comment
Share on other sites

A conversao para o quadril e altura foi bem feita? Verifica os valores metendo-os noutra textbox.

Verifica tambem se estas a usar as unidades de medida correctas:

cm para o quadril e m para a altura.

quadril = 80 ' cm
altura = 1.78 ' m
resultado = quadril / (altura * Math.Sqrt(altura)) - 18

TextBox3.Text = resultado
TextBoxQUADRIL.Text = quadril ' novas Textbox
TextBoxALTURA.Text = altura

What have you tried?

Não respondo a dúvidas por PM

A minha bola de cristal está para compor; deve ficar pronta para a semana.

Torna os teus tópicos mais atractivos e legíveis usando a tag CODE para colorir o código!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.