Oleh: admin | 05/12/2012

Belajar Visual Foxpro 9 (Latihan 1)

Mungkin anda suka dengan pemrograman visual foxpro 9.0, Pemrograman visual foxpro tidak bedah jauh dengan bahasa pemrograman visual lainnya.
Kali ini saya posting Latihan 1 Bahasa pemrograman visual foxpro 9.0 yang pernah saya ajarkan pada madyasiswa Program Pendidikan komputer 1 Tahun Jurusan komputer programming.
Disini saya tidak menjelaskan banyak tentang object dan properties visual foxpro 9.0 karena saya lebih cenderung ke pengkodean program, mudah-mudahan anda dapat memahaminya


Form diatas menampilkan Total gaji berdasarkan Golongan (IIA, IIB, IIC) dan Tunjangan Rumah (25%) dan Harian (35%).
Berikut kodenya :

Object cmdhitunggaji procedure click


a = ALLTRIM(thisform.txtnamapeg.Value)
b = thisform.cbogol.Value
c = thisform.check1.Value
d = thisform.check2.Value 
IF b = 'IIA'
    gp = 1500000
ELSE
    IF b = 'IIB'
       gp = 1750000
    ELSE
       IF b = 'IIC'
          gp = 2000000
       ELSE
          =MESSAGEBOX("Golongan tersebut tidak terdaftar",0+64,"Info")
          RETURN
       ENDIF
    ENDIF
 ENDIF
 IF c = 1 .and. d = 0
      tj = 25 / 100 * gp
 ELSE
    IF c = 0 .and. d = 1
       tj = 35 / 100 * gp
    ELSE
       IF c = 1 .and. d = 1
           ab = 25 / 100 * gp
           ac = 35 / 100 *  gp
           tj = ab + ac
       ELSE
           tj = 0  
       ENDIF
    ENDIF
 ENDIF
 tg = gp + tj
 thisform.txtgapok.Value = gp
 thisform.txttotgaji.Value = tg           


Responses

  1. Tq banget.. semoga ini dapat membantu saya yg sedang mempelajari foxpro 09.

    • sama-sama. semangat belajar. sy juga terus belajar


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: