Memahami Logika Bercabang menggunakan Case ..Of Di Delphi

Pada tutorial sebelumnya kita telah membahas penggunaan fungsi IF Bercabang di Delphi Studi kasus Menghitung Grade. Setelah dilakukan analisa memang lebih efektif jika kondisinya banyak kita gunakan fungsi Logika Case. Fungsi Case merupakan alternatif yang lebih mudah dibaca dari pada if yang lebih kompleks, fungsi logika case sama dengan logika if yang juga digunakan untuk menyelesaikan persoalan, pada artikel kali ini saya akan mencontohkan penggunaan logika case pada delphi 7.0.

Syntak Dasar

Statment Case

Case Parameter of

kondisi 1:keterangan1 ;

.........

kondisi n:keterangan n ;

end;

atau Statment Case menggunakan Else

Case Parameter of

kondisi 1:keterangan1 ;

.........

kondisi n:keterangan n ;

else

Keterangan

end;

Contoh Kasus Mengetahui Informasi Usia

Langkahnya:

1.       Desain Form Seperti berikut

2.       Selanjutnya Buat Coding di tombol Cek sbb:

 procedure Ttugas5.bt_cekClick(Sender: TObject);
var
usia : integer;
begin
if ed_usia.Text = '' then
 Begin
  application.MessageBox ('Usia Tidak Boleh Kosong..','Aplikasi',
  MB_OK+ MB_NOFOCUS + MB_ICONERROR);
  exit;
 end
else
  usia := strtoint(ed_usia.Text);
case usia of
  0..5 :keterangan.Caption := 'BALITA';
  6..10 :keterangan.Caption := 'Anak-Anak';
  11..20 : keterangan.Caption := 'Remaja';
  21..40 : keterangan.Caption := 'Pemuda';
  41..60 : keterangan.Caption := 'Orang Tua';
  61..70 : keterangan.Caption := 'Manula'
else
   keterangan.Caption := 'Anda Berumur Panjang';
end;
end;

Output Program

HASIL FUNGSI CASE OF M,ENAMPILKAN
KETERANGAN USIA

Selamat Mencoba

PADEPOKAN IT COURSES
IT Tutorial, Training Center & IT Solution

www.padepokanit.com