Jump to content
sabing

Calcular IMC Visual basic Ajuda

Recommended Posts

sabing

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

Share this post


Link to post
Share on other sites
pmg

        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!

Share this post


Link to post
Share on other sites
sabing

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

Share this post


Link to post
Share on other sites
pmg

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!

Share this post


Link to post
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

×
×
  • 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.