Proses Percabangan IF Satu Pernyataan Pemrograman Visual PERCABANGAN

Proses Percabangan IF Satu Pernyataan Pemrograman Visual

PERCABANGAN Percabangan merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada. Percabangan IF merupakan operator percabangan yang digunakan untuk menentukan pilihan atas beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah ditentukan. Ada 2 model percabangan IF a. Percabangan untuk kondisi pilihan tunggal b. Percabangan untuk kondisi majemuk

Percabangan untuk kondisi pilihan tunggal Merupakan operator percabangan yang digunakan menentukan sebuah pilihan dengan kondisi tunggal Bentuk umum If syarat Then hasil; Contoh IF nilai>80 then keterangan = ‘Lulus’; untuk

Percabangan untuk kondisi majemuk Merupakan operator percabangan yang digunakan untuk menentukan pilihan dengan kondisi yang harus dipenuhi lebih dari satu. Bentuk umum: IF syarat 1 then hasil 1 Else IF syarat 2 then hasil 2 …… …… End;

Percabangan Case Of merupakan metode lain dari sebuah percabangan, berfungsi sama seperti fungsi IF yaitu melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus dipenuhi. Secara fungsi case dan if tidak ada perbedaan tetapi untuk penulisan fungsi, case lebih mudah diterapkan untuk pilihan atau kondisi lebih dari satu.

Bentuk umum fungsi Case Of Case <variabel> of <pilihan ke 1>; hasil 1; <pilihan ke 2>; hasil 2; ………………; <pilihan ke n>; hasiln; End;

Fungsi Case Of bisa juga diberikan else untuk pilihan terakhir. Bentuk umum: Case <variabel> of <pilihan ke 1>; hasil 1; <pilihan ke 2>; hasil 2; ………………; else Hasiln; End;

a. Desain Form

b. Listing Program procedure TForm 1. Button 1 Click(Sender: TObject); begin if edit 3. Text>='60' then label 4. Caption: ='Lulus' else label 4. Caption: ='Tidak Lulus'; end;

procedure TForm 1. Button 2 Click(Sender: TObject); begin edit 1. Text: =' '; edit 2. Text: =' '; edit 3. Text: =' '; label 4. Caption: =' '; edit 1. Set. Focus; end;

procedure TForm 1. Button 3 Click(Sender: TObject); begin if (application. Message. Box('Anda yakin akan keluar', 'Informasi', MB_Yes. No)=idyes)then close; end;