Delphi: Pernyataan Case Of

Flowchart Case Of

Flowchart Case Of

Pernyataan Case dapat berbentuk struktur Case—Of atau Case—Of…. Else.

Struktur Case—Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah pernyataan yang diawali dengan suatu label permasalahan yang mempunyai tipe sama dengan selector. Pernyataan yang mempunyai label permasalahan yang bernilai sama dengan nilai selector akan diproses sedang pernyataan yang lainnya tidak.

Perberdaan dengan struktur If adalah bila pernyataan If menyeleksi suatu kondisi yang terpenuhi, setelah memproses pernyataan dalam lingkungan yang terpenuhi tersebut, proses penyeleksian masih dilakukan terhadap pernyataan If berikutnya yang lain. Sedang pada struktur Case—Of bila salah satu kondisi terpenuhi dan pernyataan tersebut telah diproses, selanjutnya pernyataan-pernyataan yang lainnya dalam lingkungan Case tidak akan diseleksi lagi.

Bentuk umum

Bentuk umum dari struktur Case—Of adalah:

Case ungkapan Of
 daftar case-label1:pernyataan1;
 daftar case-label2:pernyataan2;
 daftar case-label3:pernyataan3;
 daftar case-label4:pernyataan4;
 .
 .
 daftar case-labeln:pernyataann;
 End;

Klausa Case Of

Klausa Case Of

Daftar case label (label permasalahan) dapat berupa konstanta, atau range (himpunan) dari konstanta yang bukan bertipe real.

Latihan 1

Buat program menerntukan jenis sebuah karakter. Desain Form Sebagai Berikut:

Desain Form: Latihan 8 - Jenis Karakter

Desain Form: Latihan 8 – Jenis Karakter

Pengkodean:

procedure TForm1.Button1Click(Sender: TObject);
var kar : char;
    jenis : string;
begin
   kar := Edit1.text[1];
   Case kar of
     'a','e','o','u' :
         Jenis :=  'Vokal';
     'b'..'d', 'f'..'h','j'..'n','p'..'t','v'..'z' :
         Jenis := 'Konsonan';
     '0'..'9' :
          Jenis := 'Angka'
      else
          Jenis := 'Tidak terdefinisi'
   end;
   Edit2.Text := jenis

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Text  := '';
   Edit2.Text :='';
   Edit.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

Latihan 2

Buat Program untuk menghitung Biaya menginap dihotel. Dengan input kelas kamar dan lama menginap. Dengan ketentuan sebagai berikut:

Kelas Biaya Perhari
1

150000

2

100000

3

75000

Ketentuan Diskon:

Lama Menginap Diskon
1 – 7 0
8 – 15 5%
>15 10%

Desain Form

Desain Form: Latihan 10 - Reservasi Hotel

Desain Form: Reservasi Hotel

Latihan 10: Reservasi Hotel

Desain Form Reservasi Hotel setelah pengaturan properti

procedure TForm1.Button1Click(Sender: TObject);
var Kelas, LamaInap : Integer;
    BiayaInap, Diskon, Total : Real;

begin
    Kelas:= StrToInt(Combobox1.Text);
    LamaInap := StrToInt(Edit1.Text);
    case Kelas of
      1 : BiayaInap:= 150000;
      2 : BiayaInap:= 100000;
      3 : BiayaInap:= 75000;
    end;
    case Lamainap of
      1..7 : Diskon:=0;
      8..15: Diskon:=5;
      else
           Diskon:= 10;
    end;
    Total:=BiayaInap*LamaInap * (1 - Diskon/100);
    Edit2.Text := FloatToStr(BiayaInap);
    Edit3.Text := FloatToStr(Diskon);
    Edit4.Text := FloatToStr(Total);
end;
end.

Tuliskan komentar anda

Komentar

Tinggalkan Balasan