Percabangan Case pada Delphi

Perintah percabangan Case fungsinya tidak jauh beda seperti percabangan IF. Hanya saja percabangan Case digunakan pada kondisi yang mempunyai range data dan baik digunakan untuk menangani kondisi yang jumlahnya cukup banyak. Bentuk umum penulisan logika Case seperti ini :

Logika Percabangan Case

case {Variabel} of

{Range 1} : {Pernyataan 1}

{Range 2} : {Pernyataan 2}

{Range 3} : {Pernyataan 3}

else

{Pernyataan n}

end;

Pada praktek kali ini, kita cukup membuka form pada latihan pada Percabangan IF yang terdahulu.

 

Hanya saja keterangannya yang sedikit berubah menjadi :

Jika nilai dari 90 s/d 100 maka keterangan = “A”

Jika nilai dari 80 s/d 89 maka keterangan = “B”

Jika nilai dari 70 s/d 79 maka keterangan = “C”

Jika nilai dari 60 s/d 69 maka keterangan = “D”

Selain itu akan tampil sebuah pesan “Maaf, nilai tidak sah”.

Dobel klik tombol “Proses”, lalu ubah kodenya seperti berikut :

procedure TForm1.Button2Click(Sender: TObject);
var
  Nilai : Integer;
  Keterangan : String;
begin
  Nilai := StrToInt(Edit2.Text);
  Case Nilai of
    90..100 : Keterangan := ‘A’;
    80..89   : Keterangan := ‘B’;
    70..79   : Keterangan := ‘C’;
    60..69   : Keterangan := ‘D’;
  Else
  ShowMessage(‘Maaf, nilai tidak sah’ ) ;
    Edit2.SetFocus;
    End;
  Edit3.Text := Keterangan;
end;

Coba jalankan programnya dengan F9, pastikan sebelumnya tidak ada error ya.

Jangan lupa untuk menyimpan hasil latihannya ya! Kalau ada yang ingin ditanyakan, jangan sungkan untuk bertanya.