PERULANGAN PROSES DALAM
BAHASA DHELPI
Salah satu kegunaan dari komputer
adalah untuk melakukan proses yang berulang. Bagi manusia proses berulang bisa
menjadi satu hal yang melelahkan, sehingga bisa membuat proses menghasilkan
kesalahan karena ketidakkonsentrasian atau kelalaian. Oleh karena itu di semua
bahasa pemrograman pasti memiliki mekanisme untuk melakukan perulangan.
Demikian dengan juga dengan Delphi.
Di Delphi perulangan dapat dilakukan
dengan beberapa cara, diantaranya :Perulangan menggunakan Counter/Pencacah
sebagai kendali perulangannya.Perulangan dengan cara ini dapat dilakukan dengan
menggunakan pernyataan :
For To Do atau For DownTo Do.
Perulangan menggunakan Kondisi
Boolean sebagai kendali perulangannya. Perulangan dengan cara ini dilakukan
dengan menggunakan pernyataan :
While Do,
atau Repeat Until.
Perulangan menggunakan Label. (cara
ini tidak disarankan untuk digunakan. Label akan diterangkan sekedar untuk
pembelajaran saja).Untuk lebih memahami perulangan, buatlah form seperti di
bawah ini yang akan digunakan untuk mendemonstrasikan berbagai jenis
perulangan.
Komponen Memo digunakan untuk
menampung data string lebih dari 1 baris. Memo bisa
Di identikan dengan program Notepad.
Memo bisa digunakan untuk membuat editor teks.
Ada beberapa metode yang dapat
digunakan untuk mengolah/memanipulasi memo yaitu :
‐ Memo.Lines.Add(s:string), digunakan
untuk menambah baris baru di baris terakhir.
Parameternya harus string. Jika ingin
menuliskan angka, maka harus dikonversi dulu.
‐ Memo.Clear, digunakan untuk
menghapus semua baris yang ada dalam memo.
Properti yang biasa dimodifikasi
diantaranya :
‐ Lines, properties yang menyimpan
baris‐baris yang ada dalam memo
‐ Alignment, digunakan untuk
menentukan alignment baris (Left, Right, Center)
‐ ScrollBars, digunakan untuk
menentukan scrollbar mana yang akan ditampilkan (None,
Vertikal, Horizontal,
Both/Keduanya)Properties :ScrollBars=ssBoth.
1.PERULANGAN
FOR TO DO
Perulangan For To Do merupakan
perulangan yang menggunakan kendali perulangannya berupa counter/pencacah.
Counter akan menjalankan perulangan dimulai dari nilai awal yang diberikan
sampai counter mencapai nilai akhirnya. Syarat terjadinya perulangan adalah
nilai awal counter harus lebih kecil atau sama dengan nilai akhir counter.
Bentuk umum dari perulangan ini adalah :
For
counter := nilai awal To Nilai akhir Do
Begin
Perintah;
Perintah;
End;
Contoh Program yang ditulis dalam
event OnClick dari tombol For To Do
procedure
TForm1.Tbl_ForToDoClick(Sender: TObject);
var
i:integer;
c:char;
begin
Memo1.Clear;
for i:=1 to 10 do
Memo1.Lines.Add(IntToStr(i));
for c:='A' to 'Z' do
Memo1.Lines.Add(c);
end;
2.PERULANGAN FOR DOWNTO DO
Perulangan ini sama seperti
perulangan dengan menggunakan For To Do tetapi arah isi counternya berkurang
(mundur/turun).
Bentuk umum dari perulangan ini
adalah :
For
counter := nilaiawal DownTo Nilaiakhir Do
Begin
Perintah;
Perintah;
End;
Perulangan ini akan berulang selama
nilai variabel counter masih lebih besar atau sama dengan nilai akhir. Nilai
awal suatu counter harus lebih besar atau sama dengan daripada nilai akhirnya.
Contoh Program yang ditulis dalam
event OnClick dari tombol For To Do
procedure
TForm1.Tbl_FormDownToDoClick(Sender: TObject);
var
i:integer;
c:char;
begin
Memo1.Clear;
for i:=10 downto 1 do
Memo1.Lines.Add(IntToStr(i));
for c:='Z' downto 'A' do
Memo1.Lines.Add(c);
end;
3.PERULANGAN REPEAT UNTIL
Perulangan ini bekerja sampai kondisi
yang diinginkan tercapai. Perulangan ini bisa digunakan sebagai perulangan yang
menggunakan banyak kondisi keluar (multi condition loop).Bentuk umum :
Repeat
Perintah;
Perintah;
Until
Kondisi;
Contoh Program
procedure
TForm1.Tbl_RepeatUntilClick(Sender: TObject);
var
i:real;
begin
Memo1.Clear;
i:=0;
repeat
i:=i+0.5;
Memo1.Lines.Add(FloatToStr(i));
until i=10;
end;
Perulangan ini berulang sampai
kondisi yang ada setelah until mempunyai nilai true. Jadi repeat until berjalan
selama kondisi salah sampai kondisi benar.Pengecekan kondisi berada di bagian
bawah yaitu setelah until sehingga semua program yang memakai perulangan ini
akan melakukan minimal 1 kali proses perulangan.
4.PERULANGAN
WHILE DO
Perulangan ini mirip dengan
perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan
proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan
bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak
dilakukan lagi.
Bentuk umum dari While Do adalah
seperti berikut :While kondisi do
Begin
Perintah;
Perintah;
End;
Contoh program while do yang ditulis
pada event onclick dari tombol While Do.
procedure
TForm1.Tbl_WhileDoClick(Sender: TObject);
var
i:real;
begin
Memo1.Clear;
i:=0;
while i<10 do
begin
i:=i+0.5;
Memo1.Lines.Add(FloatToStr(i));
end;
end;
5.PERULANGAN LABEL
Label adalah suatu perintah untuk
memandai suatu baris program. Untuk pindah ke posisi yang ditandai oleh label,
maka digunakan perintah Goto.Untuk lebih jelasnya lihatlah program berikut yang
ditulis dalam event OnClick dari tombol Label.
procedure
TForm1.Tbl_Label5Click(Sender: TObject);
label
A;
var
i:integer;
begin
Memo1.Clear;
i:=0;
A:
i:=i+1;
Memo1.Lines.Add(IntToStr(i));
if i<10 then
Goto A;
End;
6.PERULANGAN TERSARANG
Perulangan tersarang (nested loop)
adalah suatu perulangan dimana di dalam perulangan tersebut ada perulangan
lain. Perulangan yang di ada di bagian terdalam, maka akan dikerjakan dulu
sampai selesai baru mengerjakan perulangan yang ada diluarnya.Nested loop bisa
merupakan kombinasi antara For To Do, For DownTo Do, Repeat Until, While Do.
Contoh Program
procedure
TForm1.Tbl_TersarangClick(Sender: TObject);
var
i,j:integer;
begin
Memo1.Clear;
for i:=1 to 5 do
begin
j:=0;
while j<5 do
begin
j:=j+1;
Memo1.Lines.Add(IntToStr(i)+' X '+IntToStr(j)
+' = '+IntToStr(i*j));
end;
Memo1.Lines.Add('-------------------');
end;
end;
REFERENSI
http://candrajulianta.blogspot.com/2014/07/ -pengenalan-delphi.html
Tidak ada komentar:
Posting Komentar