Pemrograman Berorientasi Obyek – 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 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.

Contoh Pernyataan Case Of

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;
Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s