Praktikum Pemvis 4 [PERULANGAN]

I.     Deskripsi Program

Program ini merupakan program perulangan. Dalam program ini terdapat combobox yang di dalamnya kita bias memilih antara langkah perulangan secara repeat until atau dengan while do. Dalam program ini kita terlebih dulu menginputkan nilai edit1.text dan dikonversikan menjadi variabel a yang nantinya akan dipakai untuk decrement maupun increment nya. Dalam program ini terdapat 3 tombol yaitu close,proses dan clear. Tombol close berfungsi untuk mengakhiri atau keluar dari program . Tombol Proses untuk memproses dan menampilkan hasilnya pada memo. Tombol clear digunakan untuk membersihkan data inputan kita da nisi memo.

II.  Interface Program

'

III.        Coding Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var a:integer; begin a:=strtoint(edit1.Text); if combobox1.ItemIndex=0 then repeat memo1.Lines.Add('Data ke-'+inttostr(a)); a:=a-1; until a=0; if combobox1.ItemIndex=1 then while a<=10 do begin memo1.Lines.add('Data ke-'+inttostr(a)); a:=a+1; end; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin application.Terminate; end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin edit1.Clear; combobox1.ItemIndex:=-1; memo1.Clear; end;

Untuk Download Aplikasi KLIK DISINI