Tutorial Delphi Pengulangan Terbaru !

Sudah lama gak posting tentang program, kebetulan nemu catatan lama mengenai pengulangan dalam delphi….

Ada 3 jenis pengulangan :
1. For…. To…do
Sintaxnya :
For (nilai awal) to (nilai akhir) do
// statement yang diulang

2. While…do…
Sintaxnya :
(Inisialisasi) ——————> nilai pertama
While (kondisi ) do
// statement yang diulang
(iterasi)————————>contohnya : i + 1 (penambahan)

3. Refeat…Until
Sintaxnya :(Inisialisasi) ——————> nilai pertama
Repeat
// statement yang diulang
(iterasi)————————>contohnya : i + 1 (penambahan)
Until (kondisi)

Nah sintax diatas masih garis besarnya artinya semua bahasa pemrograman tidak jauh dari sintax tersebut (beda dikit mah wajar aja….  )

Sekarang kita coba di delphi…

---

Ceritanya kita akan buat program sederhana buat ngurutkan angka :
for…to… —-> menampilkan angka 1 -20
while…to… —->menampilkan angka 20-1
repeat…until—->menampilkan angka genap dari 1 – 20

Ini mah hanya contoh aja, setelah promramnya jalan angkanya bisa bebas diganti – ganti malahan harus, biar tambah paham… semakin banyak error semakin banyak belajar 

Pertama, bikin form kaya gini…

Kedua, atur propertinya…

Komponen	Properti
Form	Caption >> Pengulangan
Button1	Caption >> For
Button2	Caption >> While
Button3	Caption >> Repeat
Button4	Caption>>Close

Ketiga, double klik pada masing – masing button lalu masukan script berikut;

Button	Script
For	var i : integer; begin listbox1.Clear; for i := 1 to 20 do listbox1.Items.Append(inttostr(i)); end;
While	var i : integer; begin listbox1.Clear; i := 20; while i >= 1 do Begin listbox1.Items.Append(inttostr (i)); i := i – 1 ; end; end;
Repeat	var i : integer ; begin Listbox1.Clear; i := 2; repeat Listbox1.Items.Append(inttostr (i)); i := i + 2 ; until i >= 21; end;
Close	begin close; end;

Keempat : save!!!!

Kelima : Jalankan pijit F9

Keenam : Jika blom jalan cari kesalahannya…. sebagai perbandingan download script pengulangan  disini  semakin banyak error semakin banyak belajar! hehehehehe….

Ketujuh : Jika udah jalan… modifikasi nilainya sesuai selera dan keinginan….

Kedelapan : Wassalam