Program Penghitung Luas dan Keliling Persegi

I.         Tujuan Praktikum

Praktikum ini bertujuan untuk mengenal apa itu Delphi, mengetahui user interface beserta fungsinya, dan mampu menggunakan beberapa objek beserta properties dan event.

II.      Deskripsi Program

Program ini adalah sebuah penghitung luas dan keliling dari sebuah bangun datar yaitu persegi. User hanya perlu menginputkan nilai sisi dari persegi lalu mengklik tombol untuk menampilkan luas atau tombol untuk menampilkan keliling.

III.  Interface Program

IV.   Coding Program

Nama Komponen	Event	Perintah
Button1	onClick	procedure Tform1.Button1click(Sender: TObject); begin   L:=strtofloat(edit1.Text)+ STRTOFLOAT(EDIT1.TEXT);   edit2.Text:=FLOATtostr(L); end;
Button2	onClick	procedure TForm1.Button2Click(Sender: TObject); begin     K:=strtofloat(edit1.Text)+ STRTOFLOAT(EDIT1.TEXT)+ STRTOFLOAT(EDIT1.TEXT)+ STRTOFLOAT(EDIT1.TEXT);   edit2.Text:=FLOATtostr(K); end;
Edit1	onChange	procedure TForm1.Edit1Change(Sender: TObject); begin end;
Edit2	onChange	procedure TForm1.Edit2Change(Sender: TObject); begin end;
Image1	-
Image2	-
Image3	-
Image4	-
Image5	-
Image6	-
Image7	-
Image8	-
Image9	-
Image10	-
Label1	-
Label2

V.      Output

 

Gambar 5.1. Proses Output Luas

                                      

Gambar 5.2. Output Keliling


Download Program
Miror
Download Program