Archive for the ‘Visual Foxpro 9.0’ Category

Goyang Lidah

Posted: 6 Juli 2010 in Visual Foxpro 9.0
0

Tampilan :

Hasil Tampilan :

Ketentuan :

1. Input Nama Customer dan jumlah

2. Jika Kode = ” NS01 ” maka
Nama Menu = ” NASI ”
Harga           = 2000

Jika Kode      = ” RN01 ” maka
Nama Menu = ” RENDANG ”
Harga            = 5000

Jika Kode      = ” AY01 ” maka
Nama Menu = ” AYAM ”
Harga           = 4500

3. jika Option YA
maka akan dapat diskon 10% Dari harga * jumlah beli
jika option TIDAK maka Diskon = 0

4. PPN = 5% dari harga * Jumlah beli
5. Total = harga * jumlah beli + ppn – diskon
6. Click HITUNG Maka PPN dan Total Akan Muncul
7. Click Bersih maka form akan bersih
8. Click keluar maka keluar dari form

Listing :

Form1                                                                                                 Aktivate
========================================================
thisform.cmbkode.AddItem(“NS01”)
thisform.cmbkode.AddItem(“RN01”)
thisform.cmbkode.AddItem(“AY01″)

cmbkode                                                                                             Click
========================================================
IF thisform.cmbkode.Value=”NS01″
thisform.txtnamen.Value=”NASI”
thisform.txtharga.Value=2000
ELSE
IF thisform.cmbkode.Value=”RN01″
thisform.txtnamen.Value=”RENDANG”
thisform.txtharga.Value=5000
ELSE
thisform.txtnamen.Value=”AYAM”
thisform.txtharga.Value=4500
ENDIF
ENDIF

Timer1                                                                                                Timer
========================================================
thisform.txttgl.Value=DATE()
thisform.txtjam.Value=TIME()

Optiongroup1                                                                                          Click
========================================================
IF thisform.optiongroup1.Value=1
thisform.txtdiskon.Value=ROUND(0.1*val(thisform.txtjumlah.Value)*thisform.txtharga.Value,0)
ELSE
thisform.txtdiskon.Value=0
ENDIF

cmdhitung                                                                                             Click
========================================================
thisform.txtppn.Value=ROUND(0.05*VAL(thisform.txtjumlah.Value)*thisform.txtharga.Value,0)
thisform.txttotal.Value=ROUND(VAL(thisform.txtjumlah.Value)*(thisform.txtharga.Value)
+thisform.txtppn.Value-thisform.txtdiskon.Value,0)

cmdbersih                                                                                             Click
========================================================
thisform.txtnc.Value=””
thisform.cmbkode.Value=””
thisform.txtnamen.Value=””
thisform.txtharga.Value=””
thisform.txtjumlah.Value=””
thisform.txtdiskon.Value=””
thisform.txtppn.Value=””
thisform.txttotal.Value=””
thisform.txtnc.SetFocus

cmdkeluar                                                                                              Click
========================================================
thisform.Release

Penjualan Barang

Posted: 6 Juli 2010 in Visual Foxpro 9.0
0

Tampilan :



Hasil Tampilan :


Ketentuan :
kode barang,nama barang,Harga,Jumlah beli di INPUT

Bonus Didapat dari :
Jika Jumlah Beli>=10 Mendapatkan “JAKET”
Jika Jumlah Beli>=5  Mendapatkan “PAYUNG CANTIK”
Selain Itu Tidak dapat bonus

Listing :

cmdproses                                                                                                   Click
========================================================
thisform.txttotbay.Value=ROUND(VAL(thisform.txtharga.Value)*VAL(thisform.txtjumbel.Value),0)
jumbel=VAL(thisform.txtjumbel.Value)
IF jumbel>=10
thisform.txtbonus.Value=”JAKET”
ELSE
IF jumbel>5
thisform.txtbonus.Value=”PAYUNG CANTIK”
ELSE
thisform.txtbonus.Value=”TIDAK DAPAT BONUS”
ENDIF
ENDIF

cmdlagi                                                                                                        Click
========================================================
thisform.txtkd.Value=””
thisform.txtnabar.Value=””
thisform.txtharga.Value=””
thisform.txtjumbel.Value=””
thisform.txttotbay.Value=””
thisform.txtbonus.Value=””
thisform.txtkd.SetFocus

cmdkeluar                                                                                                     Click
========================================================
thisform.Release

Data Nilai Ujian

Posted: 5 Juli 2010 in Visual Foxpro 9.0
0

Tampilan :

Hasil Tampilan :

Listing :

cmdproses                                                                                                 Click
========================================================
nilai=VAL(thisform.txtnilai.Value)
IF nilai>=60
thisform.txtket.Value=”LULUS”
ELSE
thisform.txtket.Value=”GAGAL”
ENDIF
thisform.txtnilai.SetFocus

cmdlagi                                                                                                      Click
========================================================
thisform.txtnilai.Value=””
thisform.txtket.value=””
thisform.txtnilai.SetFocus

cmdselesai                                                                                                  Click
========================================================
thisform.Release

Perhitungan Operator

Posted: 5 Juli 2010 in Visual Foxpro 9.0
0

Tampilan :

Hasil Tampilan :

LISTING :

cmdtambah                                                                                                                      Click
==========================================================
thisform.txthasil.Value=ROUND(VAL(thisform.txta.Value)+VAL(thisform.txtb.Value),0)

cmdkali                                                                                                                             Click
==========================================================
thisform.txthasil.Value=ROUND(VAL(thisform.txta.Value)*VAL(thisform.txtb.Value),0)

cmdkurang                                                                                                                        Click
==========================================================
thisform.txthasil.Value=ROUND(VAL(thisform.txta.Value)-VAL(thisform.txtb.Value),0)

cmdbagi                                                                                                                            Click
==========================================================
thisform.txthasil.Value=ROUND(VAL(thisform.txta.Value)/VAL(thisform.txtb.Value),2)

cmdlagi                                                                                                                              Click
==========================================================
thisform.txta.Value=””
thisform.txtb.Value=””
thisform.txthasil.Value=””
thisform.txta.SetFocus

cmdkeluar                                                                                                                         Click
==========================================================
thisform.Release

Older Entries