Belajar Visual Foxpro 9

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