Body Mass Index

Body Mass Index (BMI) adalah suatu cara untuk mengetahui apakah orang tersebut mempunyai berat badan ideal. BMI didapat dengan membagi berat badan dalam kg dengan tinggi kali tinggi.

BMI = Berat Badan / (TinggiBadan * TinggiBadan)

Hasil BMI tersebut kemudian digolong-golongkan sebagai berikut:

untuk Pria:

BMI	Hasil
< 17	Kurus
17-22	Normal
23-27	Kegemukan
> 27	Obesitas

untuk Wanita:

BMI	Hasil
< 18	Kurus
18-25	Normal
26-27	Kegemukan
> 27	Obesitas

Untuk membuat aplikasi seperti contoh, buatlah form seperti dibawah ini:

Pengguna akan mengisi tinggi badan dan berat badan di TEdit edtTinggi dan edtBeratBadan serta memilih jenis kelamin di TRadioButton.

Aplikasi mulai menghitung setelah pengguna menekan tombol "Kerjakan" yang berisi kode program berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
  bb, tinggi, BMI : single;
  hasil           : string;
begin
    tinggi:= StrToFloat(edtTinggi.Text) / 100;
    bb := StrToFloat(edtBeratBadan.Text);

    BMI := bb / ( tinggi * tinggi) ;

    if rbPria.Checked then
    begin
        if BMI < 17 then
            hasil := 'Kurus'
        else
        if (BMI >= 17) and (BMI < 23) then
            hasil := 'Normal'
        else
        if (BMI >= 23) and (BMI <= 27) then
            hasil := 'Kegemukan'
        else
        if BMI > 27 then
            hasil := 'Obesitas';
    end

    else

    begin
        if BMI < 18 then
            hasil := 'Kurus'
        else
        if (BMI >= 18) and (BMI < 25) then
            hasil := 'Normal'
        else
        if (BMI >= 25) and (BMI <= 27) then
            hasil := 'Kegemukan'
        else
        if BMI > 27 then
            hasil := 'Obesitas';
    end;

    ShowMessage(
       'BMI anda = ' + FormatFloat('#,##0.00;;0',BMI) + #13#10 +
       'Anda ' + hasil
     );

end;


Kode Selengkapnya: 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; edtTinggi: TEdit; edtBeratBadan: TEdit; Label3: TLabel; rbPria: TRadioButton; rbWanita: TRadioButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure edtTinggiEnter(Sender: TObject); procedure edtBeratBadanEnter(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin edtTinggi.Text := '0'; edtBeratBadan.Text := '0'; end; procedure TForm1.Button1Click(Sender: TObject); var bb, tinggi, BMI : single; hasil : string; begin tinggi:= StrToFloat(edtTinggi.Text) / 100; bb := StrToFloat(edtBeratBadan.Text); BMI := bb / ( tinggi * tinggi) ; if rbPria.Checked then begin if BMI < 17 then hasil := 'Kurus' else if (BMI >= 17) and (BMI < 23) then hasil := 'Normal' else if (BMI >= 23) and (BMI <= 27) then hasil := 'Kegemukan' else if BMI > 27 then hasil := 'Obesitas'; end else begin if BMI < 18 then hasil := 'Kurus' else if (BMI >= 18) and (BMI < 25) then hasil := 'Normal' else if (BMI >= 25) and (BMI <= 27) then hasil := 'Kegemukan' else if BMI > 27 then hasil := 'Obesitas'; end; ShowMessage( 'BMI anda = ' + FormatFloat('#,##0.00;;0',BMI) + #13#10 + 'Anda ' + hasil ); end; procedure TForm1.edtTinggiEnter(Sender: TObject); begin PostMessage(edtTinggi.Handle, EM_SETSEL, 0, Length(edtTinggi.Text)); end; procedure TForm1.edtBeratBadanEnter(Sender: TObject); begin PostMessage(edtBeratBadan.Handle, EM_SETSEL, 0, Length(edtBeratBadan.Text)); end; end.

Unduh Kode Program (Delphi 7)

Body Mass Index 2014-05-21T12:26:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer