- Back to Home »
- delphi »
- Percabangan dan Perulangan pada delphi
Posted by : Nur Rokhman
Jumat, 05 Oktober 2012
Dalam Delphi terdapat beberapa percabangan yaitu :
1.If
2. case
kita bahas yang if terlebih dahulu..
bentuk umum :
if <kondisi> then
<pernyataan>
untuk percabangan if ada 2 jenis, yaitu : if dengan 1 pernyataan dan if lebih dari 1 pernyataan. if dengan 1 pernyataan.
bentuk umum :
if <kondisi> then
<pernyataan>
else
if <kondisi> then
<pernyataan>
else
<pernyataan>
- struktur penulisan untuk if dengan 1 pernyataan
<kondisi> didalam if tidak menggunakan titik dua sama dengan “:= “
di setiap akhir <pernyataan> tidak perlu menggunakan titik koma “;” dengan catatan tidak ada pernyataan lagi setelah if. Jika ada pernyataan setalah if (misal edit3.Setfocus), tambahkan titik koma “;” hanya di <pernyataan> yang paling akhir saja.
if lebih dari 1 pernyataan
bentuk umum :
if <kondisi> then
begin
<pernyataan>;
<pernyataan>;
end
else
if <kondisi> then
begin
<pernyataan>;
<pernyataan>;
end
else
begin
<pernyataan>;
<pernyataan>;
end
- struktur penulisan untuk if dengan 1 pernyataan
<kondisi> didalam if tidak menggunakan titik dua sama dengan “:= “
sebelum <pernyataan> diawali begin ditutup dengan end
setiap <pernyataan> diakhiri dengan titik koma “;”
Lalu ada lagi Nested if atau if didalam if, jika sudah paham tentang penulisan if dengan 1 pernyataan dan if lebih dari 1 pernyataan, maka untuk nested if tidaklah sulit. contohnya :
if ComboBox1.Text=’D1′ then
if edit3.Text=’Training’ then
edit4.Text:=’1500000′
else if edit3.Text=’Kontrak’ then
edit4.Text:=’2750000′
else
edit4.Text:=’3500000′
Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu. Percabangan merupakan salah struktur kendali yang memungkinkan pemilihan atas perintah yang akan dijalankan.
Dalam Delphi terdapat beberapa perulangan yaitu :
Perulangan menggunakan For To Do : perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.Bentuk umum dari perulangan ini adalah :
For counter := nilai awal To Nilai akhir Do
Begin
Perintah;
Perintah;
End;
Perulangan menggunakan 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 menggunakan 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;
Perulangan menggunakan 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;
thanks...
BalasHapus