Madriva: Beberapa Fungsi Perulangan Pada Delphi

Beberapa Fungsi Perulangan Pada Delphi

Posted by : Rhyf Ahmad Thursday, March 29, 2012

Perulangan pada Delphi merupakan sebuah fungsi yang digunakan untuk memberikan kontrol pada sebuah proses yang berjalan secara terus menerus. Di dalam Delphi mengenal 4 jenis perulangan, dan akan dibahas sedetil mungkin di dalam postingan kali ini.

Tenang aja sob, materi ini gag dapet nyontek dari tetangga sebelah koq.

Untuk mempraktekkannya, sediakan satu buah TButton dan 1 buah TEdit.

Perulangan For-To-Do
Perulangan macam ni, digunakan untuk perulangan dari angka dengan nilai terkecil ke nilai yang terbesar. Listing kode untuk TButtonnya adalah:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 1 to 9 do //kode untuk memunculkan angka dari 1 ke 9
Edit1.SelText:=IntToStr(i);
end;
Perulangan For-Down-To

Perulangan ini adalah kebalikan dari fungsi perulangan For-To-Do, yaitu untuk menghitung angka dari angka dengan nilai tertinggi menuju ke angka yang mempunyai nilai terendah. Listing kodenya adalah:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 9 Downto 1 do //kode untuk memunculkan angka dari 9 ke 1
Edit1.SelText:=IntToStr(i);
end;

Perulangan While-Do
Digunakan untuk perulangan yang akan terus melakukan proses sampai kondisi bernilai seperti yang dituliskan oleh programmer. Listingnya adalah.

procedure TForm1.Button1Click(Sender:TObject);
var i:integer;
begin
i:=0;
while i < 6 do //kode agar nilai i berhenti di angka 5 dengan syarat i:=i+1
begin
Edit.SelText:=IntToStr(i);
i:=i+1;
end;
end;

Perulangan Repeat Until
Perulangan ini digunakan agar nilai yang terkandung pada i akan berhenti pada nilai yang sudah ditentukan.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

i:=1;

repeat
i := i+2;
Edit1.SelText:=IntToStr(i);
until i = 15; //nilai i akan berhenti di angka 15

end;