Dana Ahmad Weblog

just sharing and storytelling

Program delphi pertemuan ke 3 ( fungsi case of )

Tinggalkan komentar

1

1. Buka program delphi

2. buat sebuah label dengan caption yang dikosongi dan beri nama “lrange

3. Buat sebuah Edit dan beri nama “Enilai

4. Buat sebuah button. double ckick button tersebut dan beri script seperti dibawah ini.

    nilai := StrToint (enilai.Text);
        case nilai of
            1,3,7,9 : lrange.Caption  :=  ‘nilai ganjil’ ;
             2,4,8   : lrange.caption  :=  ‘nilai genap’   ;
              10      : lrange.caption  :=  ‘ nilai anda 10’ ;
        else
     lrange.caption  :=  ‘nilai maksimal 10’ ;
     end;

//nb : jangan lupa buat variablenya

  Var
  nilai : byte ;

Jalankan programnya dengan tekan f9

2

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