Posted by : Rhyf Ahmad Sunday, May 13, 2012

Loop merupakan sebuah istilah programming yang menyatakan suatu proses akan dilakukan secara berulang-ulang. Pada postingan terdahulu saya memberikan artikel tentang beberaa fungsi perulangan pada Delphi. Namun fungsi tersebut masih bersifat dasar, dan kali ini saya akan mencoba memberikan fungsi intermediate pelengkap bagi sobat Blogger yang memang ingin mendalami pemrogramman Delphi secara lebih lanjut.
Mari masuk.... :)

  • Looping "Continue"
    Kode Continue digunakan untuk proses Looping ketika pada suatu ketika suatu proses dihentikan dan hendak dijalankan kembali. Contoh listing kodenya adalah sebagai berikut:

    procedure TForm1.Button1Click(Sender:TObject)
    var
        
    i : integer;
        s : string;
    begin
        s := '';
        for i := 1 to 9 do
        begin
          //Loncat perulangan pada kondisi ini
          if (i = 2) or (i = 4) then Continue;
          s := s + IntToStr(i);
          s := s + '';
        end;
        //Memunculkan hasil
        ShowMessage('s = '+s);
    end


    Hasilnya adalah sebagai berikut :

    s = 1 3 5 6 7 8 9
  • Looping "Goto"
    Fungsi Looping Goto digunakan untuk melakukan proses lain setelah proses looping berada pada kondisi tertentu. Contoh listing kode programnya adalah sebagai berikut.

    procedure TForm1.Button1Click(Sender:TObject)
    var
        i : integer;
    label
        GotoLabel;
    begin
        for i := 1 to 9 do
        begin
          ShowMessage('i = '+IntToStr(i));
          //Looping akan berhenti pada kondisi ini
          if i = 5 Goto GotoLabel;
        end;
        ShowMessage('The Loop Finished OK');
    //Memunculkan hasil
    GotoLabel :
        ShowMessage('Looping selesai dengan i = ' IntToStr(i));
    end;


    Hasilnya adalah :

    i = 1
    i = 2
    i = 3
    i = 4
    i = 5
    Looping selesai dengan i = 5

Fungsi perulangan di atas digunakan untuk melengkapi fungsi perulangan yang sudah saya posting sebelumnya. Sooo.. Semoga bermanfaat..

Baca Juga :

{ 1 comments... read them below or add one }

  1. revisi if i=5 goto gotolabel kurang then....

    menjadi if=5 then gotolabel..

    ReplyDelete

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 :)

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

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