Dana Ahmad Weblog

just sharing and storytelling


Tinggalkan komentar

Program delphi pertemuan ke 3 ( fungsi case of )

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