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
