Rabu, 30 Januari 2013

PERULANGAN PADA DELPHI



Asslamu’alaikum,,,
Selamat datang di blog saya,,,, kali ini saya akan menjelaskan perulangan pada Delphi…
Pengulangan memungkinkan untuk mengulang perintah yang diketikkan sebanyak beberapa kali sampai kondisi yang diinginkan tercapai




 Jenis-jenis dari perulangan dapat dibagi sebagai berikut:
1. for…to..do dan for…downto…do
2. repeat…until
3. while…do


Untuk lebih jelasnya akan dibahas masing – masing dari proses pengulangan tersebut beserta contoh sederhana yang akan memudahkan dalam pengaplikasiannya.

1. for…to…do dan for…down…to
Perulangan for dibagi lagi menjadi 2 jenis yaitu:
a. for…to…do
b. for…downto…do
Keduanya mempunyai fungsi yang sama bedanya for…to…do untuk mengulang dri terkecil ke besar,,, sementara for…downto…do sebaliknya,, dengan sintaks program seperti berikut ini.

for variable := nilai_awal to nilai_akhir do pernyataan
for variable := nilai_awal downto nilai_akhir do pernyataan
Sebagai contoh for…to…do:
Buat form yang terdiri 1 edit dan 1 button,,
Klik 2 kali buttonya,,, dan ketikkan script di bawah ini..

Procedure Tform1.Button1click(sender: TObject);
Var
I:integer;
Begin
For I := 1 to 5 do
Edit1.SelText := inttostr(i);
End;
End.

Klu sudah silahkan di Run


Untuk contoh for…downto…do,, coba ganti script di buttonnya seperti di bawah ini:
Procedure Tform1.Button1click(Sender: Tobject);
Var
I: integer;
Begin
For I := 5 Downto 1 do
Edit1.SelText := inttostr(i);
End;
End.


2. repeat…until
Jenis pengulangan ini digunakan untuk pengulangan dengan sampai dengan batas yang ditentukan setelah pernyataan until. Sintaks dari jenis pengulangan ini dapat dilihat seperti dibawah ini:

Procedure Tform1.Button1click(sender: Tobject);
Var
I:integer;
Begin
I:=1;
Repeat
I:=i+1;
Edit1.SelText:=inttostr(i);
Until i=15;
End;
End.


3. while…do
Jenis pengulangan ini hampir sama dengan jenis pengulangan repeat…until. Beda dari kedua jenis pengulangan ini adalah jika pada pengulangan repeat…until dilakukan proses dahulu baru dilihat syarat mengakhiri pengulangan masih memenuhi atau tidak. Jika memenuhi maka proses pengulangan akan berhenti tapi kalau tidak maka pengulangan akan terus berjalan sedangkan pada jenis pengulangan while…do syarat melakukan pengulangan diajukan terlebih dahulu jika memenuhi maka proses akan dilakukan tapi jika tidak maka pengulangan tidak dilakukan.
Sintaks dari jenis pengulangan ini adalah sebagai berikut:

Procedur Tform1.Button1click(sender: Tobject);
Var
I:integer;
Begin
I:=0;
While I < 5 do
Begin
Edit1.SelText := inttostr(i);
I:= i+1;
End;
End;
End.

Mungkin itu dulu dari saya,,, mungkin anda dapat memodifikasinya lagi apabila ada pertanyaan silahkan koment,,,,, terimakasih apabila ada salah kata saya mohon ma’af,,, selamat belajar dan jangan lupa baca bismillah………………

Reaksi:

2 komentar:

  1. THANKS GAN SANGAT BERMANFAAT NI,

    BalasHapus
  2. belom paham kalau gk ada design nya,,,,

    BalasHapus