PROGRAM HITUNG LUAS DAN KELILING PERSEGI

Kali ini kita akan buat program seperti gambar di atas, yaitu program tentang menghitung luas dan keliling persegi. Pertama, kita letakkan komponen-komponen yang diperlukan, yaitu terdapat label, edit, BitButton dan button. Selanjutnya untuk label hanya cukup mengubah caption (propertis) sesuai gambar di atas. Sedangkan untuk edit, kita ubah name (propertis) sesuai keinginan anda dan bisa di mengerti oleh anda serta text (propertis) dikosongkan. Selanjutnya klik 2x button Proses, selanjutnya tuliskan coding berikut:

procedure TForm1.btProsesClick(Sender: TObject);
var
sisi,luas,keliling:integer;
begin
sisi:=StrToInt(edSisi.Text);
luas:=sisi*sisi;
keliling:=4*sisi;
edLuas.Text:=IntToStr(luas);
edKeliling.Text:=IntToStr(keliling);
end;

untuk bitbutton Mulai, sama seperti button Proses, klik 2x bitbutton Mulai, kemudian ketik coding berikut:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  edSisi.Clear;
  edLuas.Clear;
  edKeliling.Clear;
  edSisi.SetFocus;
end;

untuk bitbutton Close klik 2x, kemudian ketik koding berikut:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if MessageDlg('Anda yakin akan KELUAR?',mtInformation,[mbYes]+[mbNo],0)=mrYes then close;
end;

itulah proses-prosesnya.. SELAMAT MENCOBA..!!!