Sekarang kita akan membahas tentang Perulangan pada Delphi , setelah mengetahui Percabangan dan Operator Logika pada Delphi. Perulangan pada Delphi digunakan untuk menjalankan suatu statment secara berulang-ulang dengan kondisi yang ditentukan. Ada 4 perulangan pada Delphi yaitu “For To Do” , “For DownTo Do” , “Repeat Until” dan “While Do”.
Pertama buat lah 4 buah List Box dan 1 buah button.
Kemudian klik 2x pada Button dan masukkan script seperti berikut ini :
Dengan catatan I disini akan bertambah 1 pada setiap perulangannya.
Akan menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
Dengan catatan I disini akan berkurang 1 pada setiap perulangannya.
Akan menbahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 5 sampai 1.
Menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
Karena tidak adanya counter I, maka dibuatlah counter I-nya dengan script seperti ini (I:=I+1;) , dimana Nilai I akan digati dengan nilai I sebelumnya ditambah dengan 1 sampai I bernilai kurang dari 5.
Jika I kurang dari atau samadengan 5 maka menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
Karena tidak adanya counter I, maka dibuatlah counter I-nya dengan script seperti ini (I:=I+1;) , dimana nilai I akan diganti dengan nilai I sebelumnya ditambah dengan 1.
Anda dapat mendownload projectnya Disini
Sekian penjelasan tentang Perulangan pada Delphi , semoga anda bisa mengerti dan memahami tentang materi ini dan juga tutorial ini dapat bermanfaat bagi anda. Jangan lupa juga bagikan artikel ini kepada teman anda di social media dengan klik tombol share on di bawah dan jangan lupa berikan komentar anda
Pertama buat lah 4 buah List Box dan 1 buah button.
Kemudian klik 2x pada Button dan masukkan script seperti berikut ini :
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
For i := 1 To 5 Do
Begin
listbox1.Items.Add(‘Item ‘ + inttostr(i) ) ;
End;
For i := 5 DownTo 1 Do
Begin
listbox2.Items.Add(‘Item ‘ + inttostr(i) ) ;
End;
i:=1;
Repeat
listbox3.Items.Add(‘Item ‘ + inttostr(i) ) ;
i:=i+1;
Until i>5;
i:=1;
While i<=5 do
Begin
listbox4.Items.Add('Item ' + inttostr(i) ) ;
i:=i+1;
End;
end;
- for to do
Dari I bernilai 1 sampai dengan I bernilai 5.Dengan catatan I disini akan bertambah 1 pada setiap perulangannya.
Akan menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
- for down to
Dari I bernilai 5 sampai dengan I bernilai 1.Dengan catatan I disini akan berkurang 1 pada setiap perulangannya.
Akan menbahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 5 sampai 1.
- repeat until
Karena tidak adanya deklarasi nilai pada bagian perulangan ini, maka deklarasikan terlebih dahulu I-nya.Menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
Karena tidak adanya counter I, maka dibuatlah counter I-nya dengan script seperti ini (I:=I+1;) , dimana Nilai I akan digati dengan nilai I sebelumnya ditambah dengan 1 sampai I bernilai kurang dari 5.
- while do
Karena tidak adanya deklarasi nilai pada bagian perulangan ini, maka deklarasikan terlebih dahulu nilai I-nya.Jika I kurang dari atau samadengan 5 maka menambahkan item berupa text “ITEM” ditambah text yang berupa counter I-nya disini dari 1 sampai 5.
Karena tidak adanya counter I, maka dibuatlah counter I-nya dengan script seperti ini (I:=I+1;) , dimana nilai I akan diganti dengan nilai I sebelumnya ditambah dengan 1.
Anda dapat mendownload projectnya Disini
Sekian penjelasan tentang Perulangan pada Delphi , semoga anda bisa mengerti dan memahami tentang materi ini dan juga tutorial ini dapat bermanfaat bagi anda. Jangan lupa juga bagikan artikel ini kepada teman anda di social media dengan klik tombol share on di bawah dan jangan lupa berikan komentar anda
