Cara Membuat Program Aplikasi Persegi Menggunakan Borland Delphi

Adapun langkah-langkah membuat program aplikasi Persegi menggunakan Delphi.

Pertama, ambillah atribut pallete: 3 LabeledEdit dan 2 BitButton.

Kedua, gantilah caption LabeledEdit melalui EditLabel di Object Inspector, untuk LabeledEdit1 menjadi "Sisi", LabeledEdit2 menjadi "Luas", LabeledEdit3 menjadi "Keliling".

Ketiga, gantilah caption BitButton melalui Caption di Object Inspector, untuk BitButton 1 menjadi 'Hitung", BitButton2 menjadi "Hapus".

Keempat, double click tombol Hitung, ketikkan scribs berikut.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var s,L,K:real;
begin
s:=strtofloat(LabeledEdit1.Text);
L:=s*s;
K:=4*s;
LabeledEdit2.Text:=floattostr(L);
LabeledEdit3.Text:=floattostr(K);

Kelima, double click tombol Hapus, ketikkan scribs berikut.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
LabeledEdit1.Clear;
LabeledEdit2.Clear;
LabeledEdit3.Clear;
LabeledEdit1.SetFocus;
end;

Keenam, tekan F9 di keyboard.

Semoga bermanfaat. Jangan isi email Anda di Form Subscriber for Letter. Silahkan tinggalkan komentar jika ada pertanyaan.