[Tutorial] Calcular IMC Indice De Massa Corportal

[josue1602 0]

[Tutorial] Calcular IMC Indice De Massa Corporal

 

Aew Hj Vo Tah Enssinando A Criar Um Programa Para Calculo De IMC (Indice De Massa Corporal)

 

1º Adicione Um Button Na Aba Standadrd

2º Mude A Propriedade Caption Do Button Para Calcular IMC

3º Adicione Um Memo Na Aba Standard Deixe A Propriedade Lines em Branco

3º Adicione 2 Edit Na Aba Satandard Apague A Propriedade Text Dos Dois Deichando Em Branco

4º Adicione Um Label Na Aba Standard E Deixe A Propriedade Text Em Branco e a Propriedade Visible Em False

 

Agora Coloce Esse Codigo No Evento Onclick Do Button:

var

A,B,C,E : Real;

D : String;

Code1 : Integer;

Code2 : Integer;

begin

Val (Edit1.Text,A,Code1);

Val (Edit2.Text,B,Code2);

if Edit1.Text = '' then ShowMessage ('A altura não foi digitada');

if Edit2.Text = '' then ShowMessage ('O peso não foi digitado');

C:=0;

E:=(A/100);

if (A>0) and (B>0) then

C := (B/(E*E)) ;

Str(C:8:2,D);

Label1.Caption := D;

if (C>0) then

with Memo1.Lines do begin

add ('O IMC é' + Label1.Caption);

if (C=0) then ShowMessage ('Tente outra vez');

if (C<=12)and (C>0) then ShowMessage ( ' Situação: Desnutrição crônica');

if (C>12) and (C<=18.4) then add ('Situação: Desnutrição ');

if (C>=18.5) and (C<20) then add ('Situação: Baixo Peso ');

if (C>=20) and (C<=25) then add ('Situação: Normal ');

if (C>25) and (C<30) then add('Situação: Sobre peso ');

if (C>=30) then ShowMessage ('Situação: Obeso ');

if (C>=30) and (C<=34.9) then add ('Tipo: Obeso grau 1 ');

if (C>34.9) and (C<=39.9) then add ('Tipo: Obeso grau 2 ');

if (C>=40) then add('Tipo: Obeso grau 3 (Obesidade mórbida) ');

end;

end;

OBS: Apague O Begin Que Já Esta Escrito

 

Deu Seu Projeto Esta Pronto

 

Gostou? Agradeça

[PoseidoN 0]

Mano, axo que tem algo errado...

pq olha soh :

if (C>12) and (C<=18.4) then add ('Situação: Desnutrição ');

if (C>=18.5) and (C<20) then add ('Situação: Baixo Peso ');

if (C>=20) and (C<=25) then add ('Situação: Normal ');

if (C>25) and (C<30) then add('Situação: Sobre peso ');

if (C>=30) then ShowMessage ('Situação: Obeso ');

if (C>=30) and (C<=34.9) then add ('Tipo: Obeso grau 1 ');

if (C>34.9) and (C<=39.9) then add ('Tipo: Obeso grau 2 ');

if (C>=40) then add('Tipo: Obeso grau 3 (Obesidade mórbida) ');

 

naum tem nada com altura...

eu coloquei minha mae ke tem 57 kilos e 1.55 de altura e deu Obeso...

axo q o codigo tah errado :D

[Boy Fenix 1]

No ! não esta errado você so nao pode colocar ponto na altura exemplo : 160 e peso 57 .!!!

Dica: coloque um button : Limpar

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

e se num haver nada no Edit um e no Edit2: no lugar de um Showmessage coloque messageBoxA

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Mas Otiimo post !

[PoseidoN 0]

@Boy Fenix

Tinha razão :D

sem vírgula foi certinho :D

Para bloquear o memo para ninguem escrever eh soh ir na propriedade ReadOnly do memo e deixar ela em True

[Boy Fenix 1]

Ou deixar Enabled: False

[josue1602 0]

A Uma Dica Boa Tmb è Vcs Adicionar Mas Esse Codigo No Botão Calcular Em Baixo Do Primeiro Begin

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Ai Toda Vez Que For Calcular Denovo Ira Apagar Oq Já Tah Escrito

[PoseidoN 0]

hm...

eu coloquei o botão limpar como o boyfenix disse :D

mas eh uma opção tbm,

mas prefiro mesmo o botão limpar, eh mais fácil :D

^^

 

Abz'

[Boy Fenix 1]

:piscadela: é mesmo !

[josue1602 0]

É Isso Fica Ao Critério De Vcs xD

[Boy Fenix 1]

Eu fiz o meu Baixem para verem !

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[josue1602 0]

Eu fiz o meu Baixem para verem !

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Muito Bom. Otimo Designer Queria Ter Essa Imaginação xD