Contoh Program Berat Badan Ideal pada Delphi

• Deskripsi Program
          Program ini adalah program penghitung berat badan ideal. Saat program ini dijalankan, pertama pengguna diminta untuk memasukkan tinggi badan, untuk melihat hasil berat badan ideal maka pengguna harus mengklik tombol Hitung pada program. Selain tombol hitung, pada program juga ada tombol Hapus dan tombol Tutup, tombol hapus berfungsi untuk mengosongkan kolom yang berisi tinggi badan dan hasil berat badan ideal pengguna tadi, sedangkan tombol tutup berfungsi untuk keluar dari program.

• Interface Program 

• Coding Program

  Nama Komponen	Event	Perintah
  Tombol1	OnClick	procedure TForm1.Tombol1Click(Sender: TObject); var berat:real; begin berat:=90/100*(strtofloat(edit1.Text)-100); edit2.Text:=floattostr(berat); end;
  Tombol2	OnClick	procedure TForm1.Tombol2Click(Sender: TObject); begin edit1.Clear; edit2.clear; end;
  Tombol3	OnClick	procedure TForm1.Tombol3Click(Sender: TObject); begin close; end;

   

•  Output

Gambar 1 Tampilan saat program dijalankan

Gambar 2 Tampilan ketika memasukkan nilai tinggi badan

 

Gambar 5.3 Tampilan setelah tombol Hitung di klik

 Gambar 5.4 Tampilan setelah tombol Hapus di klik

Untuk download programnya, silahkan download (DISINI)