Program Percabangan Dengan Case Delphi

KRITERIA PENILAIAN PEGAWAI DI PT. MAJU MUNDUR

STUDI KASUS  PROGRAM PERCABANGAN DENGAN CASE DELPHI

Program percabangan bersyarat CASE digunakan utk menjalankan satu pernyataan atau satu blok pernyataan, tergantung dari nilai yang diuji. Biasanya pernyataan ini digunakan utk yang mempunyai banyak pilihan.

Rumusnya :

CASE <ekspresi pilihan> OF

<daftar 1> : < pernyataan 1 >

<daftar 2> : < pernyataan 2 >

………………….

………………….

<daftar x> : < pernyataan x >

END;

Let's Go.......

1. Pertama buka aplikasi Delphi anda dan desain komponen utama seperti gambardi bawah ini :

Komponen Utama

2. Setelah anda mendesain,  ubah nama, caption komponen untuk memudahkan kita dalam menginput koding. seperti gambar di bawah ini :

3. Setelah itu masukan koding Programnya

Coding Program

TOMBOL NILAI (edit 4)

var

ket:string;

nilai:integer;

begin

nilai:=strtoint(edit4.text);

ket:=edit5.text;

case nilai of

90..100: ket:='A';

80..89 : ket:='B';

70..79 : ket:='C';

60..69 : ket:='D';

50..59 : ket:='E';

end;

edit5.text:=ket;

end;

TOMBOL HAPUS

edit1.Text:='';

edit2.text:='';

edit3.text:='';

edit4.text:='0';

edit5.text:='';

edit6.text:='';

edit1.setfocus;

end;

TOMBOLKELUAR
Close;

4. Setelah input koding, jalankan aplikasinya RUN dan liatlah hasilnya di bawah ini.

Penjelesan

- Jika nilai yang di input 90-100 dia akan mendapatkan nilai (A) 

- Jika nilai yang di input 80-89 dia akan mendapatkan nilai (B)  

- Jika nilai yang di input 70-79 dia akan mendapatkan nilai (C)  

- Jika nilai yang di input 60-69 dia akan mendapatkan nilai (B)  

- Jika nilai yang di input 50-59 dia akan mendapatkan nilai (E)  

Nb

jika di klik tombol hapus variabel nilai otomatis mendapatkan hasil (0)tanpa kita tulis secara manual.

....................SEMOGA BERMANFAAT...................