Contoh Program Pengulang Kata pada Delphi

•     Deskripsi Program

Program ini adalah program pengulang kata. Saat program ini dijalankan, pertama pengguna diminta untuk memasukkan kata yang ingin diulang dan jumlah pengulangan, untuk melihat hasil pengulangan maka pengguna harus mengklik tombol Proses pada program. Selain tombol proses, pada program juga ada tombol Hapus dan tombol Keluar, tombol hapus berfungsi untuk mengosongkan kolom yang berisi kata yang ingin diulang, jumlah pengulangan dan hasil pengulangan kata tadi, sedangkan tombol tutup berfungsi untuk keluar dari program.

• Interface Program

 

 

•  Coding Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin j:=strtoint(edit2.text); for i:=1 to j do listbox.Items.Add(edit1.text) end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; listbox.Clear; end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin close; end;

•  Output

 

Gambar 1 Tampilan saat program dijalankan

 

Gambar 2 Tampilan ketika memasukkan kata yang ingin diulang

 

Gambar 3 Tampilan ketika memasukkan jumlah perulangan

 Gambar 4 Tampilan setelah tombol Proses di klik

Gambar 5 Tampilan setelah tombol Hapus di klik

Untuk download programnya, silahkan download (DISINI)