Delphi : Menghitung Luas Persegi Panjang

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2
Jurusan       : Teknik Informatika
STIMIK YADIKA BANGIL 2015 

Membuat Program Sederhana Menghitung Luas Persegi Panjang dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya : 

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.BTNPROSESClick(Sender: TObject);

var
panjang,lebar,luas:integer;
begin

PANJANG:= StrToInt(txtpanjang.text);
lebar:=StrToInt(txtlebar.text);
luas:=panjang*lebar;
txtluas.text:=IntToStr(luas);
LBEXE.CAPTION:=IntToStr(luas);
end;

5.Kemudian Double Klik Button Quit dan Sisipkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
HALT;
end;

6. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini : 

7. Ketika program di coba untuk menghitung maka akan tampil seperti di bawah ini : 

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung