I.
Tujuan Praktikum
Tujuan dari
praktikum ini adalah untuk mengenali bagian-bagian pada Delphi, memahami
fungsinya, dan mulai mencoba menggunakannya dengan program sederhana.
II. Deskripsi Program
Program Menghitung Keliling Persegi Panjang
Program ini
dibuat untuk mempermudah seseorang menghitung keliling persegi panjang. Untuk
menjalankan program ini, pertama-tama pengguna harus menginputkan nilai panjang
dan lebar kemudian klik HASIL untuk mengetahui keliling persegi panjang dengan
menggunakan rumus Keliling = 2 * (Panjang + Lebar). Ketika pengguna ingin
melihat tampilan gambar berdasarkan data yang telah diinputkan klik LIHAT
GAMBAR HASIL maka program akan menampilkan form baru berupa gambar persegi
panjang dengan data yang telah diinputkan.Pada form baru ketika pengguna ingin kembali
menginputkan data maka klik KEMBALI dan jika ingin keluar klik KELUAR. Pada
form awal (form1) ketika pengguna ingin mengisi data lagi klik ISI DATA LAGI
dan jika ingin keluar klik KELUAR.
III.
Interface Program
a. Form1
b. Form2
IV.
Coding
Program
Program Perhitungan Keliling Persegi Panjang
a. Form1
Nama
Komponen
|
Event
|
Perintah
|
btn1
|
Onclick
|
Procedure TForm1.btn1Click(Sender: TObject);
var
nilai : integer;
begin
nilai := 2* ( strtoint (edt1.Text) + strtoint
(edt2.Text));
edt3.Text := inttostr(nilai);
end;
|
btn2
|
Onclick
|
Procedure TForm1.btn2Click(Sender: TObject);
begin
form2.show;
form2.label8.caption := edt1.Text;
form2.Lbl3.caption := edt2.Text;
form2.label10.caption := edt3.Text;
end;
|
btn3
|
Onclick
|
Procedure TForm1.btn3Click(Sender: TObject);
begin
edt1.Text:='0';
edt2.Text:='0';
edt3.Text:='0';
end;
|
btn4
|
Onclick
|
Procedure TForm1.btn4Click(Sender: TObject);
begin
close;
end;
|
b.
Form2
Nama
Komponen
|
Event
|
Perintah
|
btn2
|
Onclick
|
Procedure TForm2.btn2Click(Sender: TObject);
begin
form1.show;
end;
|
btn1
|
Onclick
|
Procedure TForm2.btn1Click(Sender: TObject);
begin
close;
end;
|
V.
Output
a.
Tampilan saat program dijalankan
b.
Tampilan saat memasukkan nilai panjang dan lebar
c.
Tampilan ketika tombol HASIL di klik
d. Tampilan ketika tombol LIHAT
GAMBAR HASIL di klik
e. Tampilan ketika tombol Kembali
di klik pada Form2
f. Tampilan ketika tombol ISI DATA LAGI di klik pada
Form1
