Wednesday, 6 November 2013

Assalamu'alikum wr.wb.

Desain Formnya menghitung luas Persegi Panjang dengan Delphi adalah sebagai berikut:



Baris Program botton1 untuk hitung, botton2 untuk reset, dan button3 untuk tutup :
procedure TForm1.Button1Click(Sender: TObject);
var Panjang, Lebar, Luas : Real;
begin
     //baca panjang dan lebar
   Panjang := StrToFloat(edit1.Text);
   Lebar := StrToInt(edit2.Text);
   //hitung luas
   Luas := Panjang * Lebar;
   //tampilkan luas
   edit3.Text := FloatToStr(Luas);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    edit1.Text := '';
    edit2.Text := '';
    edit3.Text := '';
    edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
end.

Tampilan



Sekian yang dapat saya sampaikan tentang delphi program menghitung luas persegi panjang, semoga bermanfaat. Wassalamu'alikum wr.wb.

2 comments: