[Tugas Praktikum 1 Pemvis] Pengenalan Delphi (Program Mencari Keliling Persegi Panjang)

17.11 |

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;