[Tutorial] IMC Calculator

por bielzinx Qui maio 19, 2011 6:54 pm

Hoje Vou está ensinando a criar um programa para calculo o IMC (Indice De Massa Corporal) 1º Adicione Um Button Na Aba Standard2º Mude A Propriedade Caption Do Button Para calcular IMC3º Adicione Um Memo Na Aba Standard Deixe A Propriedade Lines em Branco3º Adicione 2 Edit Na Aba Satandard Apague A Propriedade Text Dos Dois Deichando Em Brancoo primeiro edit vai ser a altura e o segundo o peso.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 ButtonOBS: Apague Begin e o End

Quote

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;

por .:JR:. Sex Mar 30, 2012 10:22 pm

Cara edite seus posts...se você quer copiar tutoriais de outros lugares pelo menos arrume não deixe assim embolado não. Abraços!

[Tutorial] IMC Calculator

[Tutorial] IMC Calculator

Re: [Tutorial] IMC Calculator