Oleh: admin | 05/12/2012

Belajar Visual Foxpro 9 (Latihan 3)

Untuk latihan yang ke 3 ini berhubungan dengan tipe data date, logika dan numerik. Mudah-mudahan latihan yang ke 3 ini membuat anda lebih paham lagi….. insya Allah.

Form diatas digunakan untuk mencari Tarif Nginap. Tarif Nginap berdasarkan Lama Nginap dan Jenis Kamar. Berikut source codenya :
Object Form1 procedure Init

thisform.txttglcekin.Value =ctod("--")
thisform.txttglsek.Value =DATE()
thisform.txtbiaya.Value =0
thisform.txtlama.Value =0
thisform.txtdiskon.Value = 0
thisform.txttotbayar.Value =0
 

Object cmdProses procedure Click

kmr = thisform.cbokamar.Value  
nmt = thisform.txtnama.Value  
IF EMPTY(nmt)
   =MESSAGEBOX("Nama Tamu belum diisi",0+64,"Info")
   RETURN
ENDIF
IF EMPTY(kmr)
   =MESSAGEBOX("Jenis kamar belum diisi",0+64,"Info")
   RETURN
ENDIF
IF kmr ='VIP'
   Byk = 500000
ELSE
   IF kmr ='Bisnis'
     Byk = 350000
   ELSE
      Byk = 125000
   ENDIF
ENDIF
lama = thisform.txttglsek.Value - thisform.txttglcekin.Value 
IF lama > 30 
    diskon = 0.30 * Byk
ELSE
   IF lama > 25
     diskon = 0.25 * Byk
   ELSE
   IF lama > 10
      diskon = 0.10 * Byk
   ELSE
      diskon = 0
   ENDIF
   endif
ENDIF
totalbyr = lama * Byk - Diskon
thisform.txtbiaya.Value = Byk
thisform.txtlama.Value = lama
thisform.txtdiskon.Value = Diskon
thisform.txttotbayar.Value = totalbyr

Tinggalkan Balasan

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

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

Kategori

%d blogger menyukai ini: