Dana Ahmad Weblog

just sharing and storytelling


Tinggalkan komentar

Modul Delphi

silahkan download modulnya disini

Iklan


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


Tinggalkan komentar

program delphi pertemuan kedua ( membuat program penghitung segitiga dan persegi)

1. buat sebuah panel dan captionnya diganti “rumus menghitung luas. kemudian align nya diganti al top

a

2. kemudian buat panel lagi dengan 2 radio button didalamnya. alignnya juga pakai al top.

1. radio button dengan caption rumus segitiga dan name rsegitiga

2. radio button dengan caption rumus persegi dan name rpersegi

b

3.  buat sebuah panel lagi dengan nama psegitiga. dan buat sebuat edit didalamnya dengan nama ealas dan etinggi.

c

4.  buat sebuah panel lagi dengan nama ppersegi. dan buat sebuat edit didalamnya dengan nama esisi.

d

5. buat sebuah panel lagi dengan align al client yang didalamnya ada label dengan nama lhasil dan sebuah button.

 

e

6. double klick radio button yang segitiga lalu beri script

if rsegitiga.Checked = True then
  begin
   rpersegi.Checked := False;
   PPERSEGI.Visible := False;
   PSEGITIGA.Visible := True;
  end;

7. double klick radio button yang persegi lalu beri script

if rpersegi.Checked = True then
  begin
   rsegitiga.Checked := False;
   PSEGITIGA.Visible := False;
   PPERSEGI.Visible := True;
  end;

8. double klick button dan beri script.

If rsegitiga.Checked = true Then
       begin
          a := StrToFloat(ealas.Text);
          t := StrToFloat(etinggi.Text);
          lsegitiga := 0.5 * a* t;
          lhasil.Caption := ‘Luas Segitiga = ‘+FloatToStr(lsegitiga);
       end

       else
       begin
          s := StrToFloat(esisi.Text);
          lpersegi := s * s;
          lhasil.Caption := ‘Luas Persegi = ‘+FloatToStr(lpersegi);
       end;

jangan lupa buat variablenya

var
  lsegitiga,lpersegi,a,t,s : Double;

f

lalu tekan f9 untuk menjalankan program.

pertanyaan via twitter @ahmaddana18


Tinggalkan komentar

pemograman delpi – pertemuan pertama ( fungsi IF )

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”.

1

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

2

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

3

 

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)

5

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’) ;

6

9. kalo suda jalankan programnya dengan tekan f9