Kendali Program DELPHI

Kendali Program

Pengendalian pada alur program, dengan menggunakan pernyataan percabangan memungkinkan program dibaca tidak harus dari atas, dapat dari baris lain.

Percabangan bersyarat :

Digunakan untuk memeriksa satu pernyataan (satu block pernyataan), yaitu bagian dari program yang fungsinya untuk melakukan pemilihan di mana proses pemilihan tersebut adalah memilih salah satu dari beberapa pilihan berdasarkan suatu kondisi atau kriteria.

Contoh perintah yang di gunakan untuk proses percabangan antara lain :

PEMILIHAN dengan IF THEN ELSE

Yaitu proses pemilihan yang sudah pasti, dalam arti pilihannya merupakan nilai yang sudah ditentukan.

aturan penulisan :

if <ekspresi> then

     <statement>

else

      <statement>

PEMILIHAN dengan CASE OF

aturan penulisan :

case <id> of
     case_1 : < statement>;

       case_2 : <statement>;

       else         <statement>;

end

PENGULANGAN dengan FOR DO

Perintah For Do adalah perintah yang digunakan untuk melakukan proses pengulangan yang jumlah pengulangannya sudah pasti, karena dalam perintah For Do, nilai awal dan nilai akhirnya telah ditentukan.

Aturan penulisan :

For <var> := <start>  To <stop> Do

begin

          <statement>

end

PENGULANGAN dengan WHILE DO dan REPEAT UNTIL

perintah While Do dan Repeat Until, jumlah pengulangan yang dilakukan tidak terbatas, karena dalam perintah tersebut, pengulangan akan terhenti jika memenuhi suatu kondisi tertentu.

aturan penulisan :

while do :

WHILE <boolean_ekspresi> Do

begin

             <statement>;

end

repeat until

Repeat

            <statement>

Until <boolean_ekspresi>

implementasi  “while do,For Do dan repeat until “  pada program  aplikasi :

sebelumnya tambahkan empat button dan satu listbox pada form, ubah properties caption pada masing-masing button seperti pada gambar ini :

pada masing-masing button,ketikkan coding berikut :
button For To do

procedure TForm1.Button2Click(Sender: TObject);
var
        a : integer;
begin
        for a:=0 to 5 do
        begin
                  listbox1.Items.Add(inttostr(a));
         end;
end;

button While Do

procedure TForm1.Button1Click(Sender: TObject);
var
      a : integer;
begin
      a:=0; 
      while a < 5 do
      begin
                listbox1.Items.Add(inttostr(a));
               a:=a+1;
       end;
end;

button Repeat Until

procedure TForm1.Button3Click(Sender: TObject);
var
         a : integer;
begin
         a:=0;
         repeat
                  listbox1.Items.Add(inttostr(a));
                  inc(a);
         until a >= 5

end;

button Clear

procedure TForm1.Button4Click(Sender: TObject);
begin
          listbox1.Clear;
end;

kemudian jalankan program :

____________Selamat Mencoba__________

SUMBER: http://delphimysql.wordpress.com/category/delphi/contoh/