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;
Selesai......

Leave a Reply

You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -