pemograman delpi – pertemuan pertama ( fungsi IF )

Oktober 21, 2013 by danapress Tinggalkan komentar

misal kita disuruh membuat seperti ini :

jika nilai antara 91-100 maka akan muncul pesan ‘grade nilai anda adalah a’

jika nilai antara 81-90 maka akan muncul pesan ‘grade nilai anda adalah b’

jika nilai antara 71-80 maka akan muncul pesan ‘grade nilai anda adalah b-‘

jika nilai antara 65-70 maka akan muncul pesan ‘grade nilai anda adalah c’

jika nilai antara 0-64maka akan muncul pesan ‘grade nilai anda adalah d’

jika nilai yang muncul diatas 100 maka muncul pesan ‘nilai maksimal anda adalah 100’

langkah-langkahnya sebagai berikut :

1. buka program delphi

2. buat sebuah label.

3. pada properties cari caption kemudian ganti dengan kata “nilai”.

4. buat lagi sebuah “edit” lalu pada properties cari menu text dan hapus semua kata di text tersebut. pada name beri nama “enilai”.

5. buat sebuah button. dan pada caption beri nama check.

6. double klick button tersebut dan mulai mengisi script.

7. pertama kita buat variable dulu. kita buat variabel nilai dengan mengetik nilai : integer ; ( kalo bisa pakai byte, ya pakai byte aja)

8. kemudaian isi script seperti ini.

nilai := StrToInt (Enilai.Text) ;
   if nilai > 100 then
   ShowMessage (‘nilai maksimal anda adalah 100’)
   else if nilai >= 91 then
   ShowMessage (‘grade nilai anda adalah a’)
    else if nilai >= 81 then
   ShowMessage (‘grade nilai anda adalah b’)
    else if nilai >= 71 then
   ShowMessage (‘grade nilai anda adalah b-‘)
    else if nilai >= 65 then
   ShowMessage (‘grade nilai anda adalah c’)
    else if nilai >= 0 then
   ShowMessage(‘grade nilai anda adalah d’) ;