Sehubungan dengan berlangsungnya Ujian Final hari ini tgl 31/07/12 jadi saya ingin posting jawaban soal PBD I kelas C & D . . . .
Ok pertama tama kita bikin tabelnya dulu ya...bikin pke free table aja dlu...nih field"y..
*ket : tabel_transaksi adalah untuk soal nomor 1 kalau tabel_sewa adalah untuk soal nomor 2
nah kalau udah selesai bikin tabelnya maka kita kerjakan dulu soal nomor 1,untuk tabelnya kita gunakan tabel_transaksi.soalnya seperti berikut
jika kode barang=BRG01 maka nama barang = Flashdisk harga barang = 100000
jika kode barang=BRG02 maka nama barang = Printer harga barang = 500000
jika kode barang=BRG03 maka nama barang = Monitor harga barang = 750000
bayar = harga barang * Jumlah beli
jika bayar >= 250000 maka mendapat diskon 5% dari bayar
total bayar = bayar * diskon
desain formnya seperti berikut.
kalau udah selesai silahkan isi properties dari textbox 4 dan 6 - 10 seperti berikut
text4 = maxlength = 5
text6 = inputmask =Rp 999,999,999
value =0
text7 = value =0
text8 = inputmask = Rp 999,999,999
value =0
text9 = inputmask = 99%
value =0
text10 = inputmask = Rp 999,999,999
value =0
nah kalau udah silahkan klik form kosong lalu ganti procedurenya menjadi activate
thisform.text2.Value=DATE()
SET CENTURY ON
SET DATE ITALIAN
setelah itu klik beberapa kali di text4 smpai muncul tempat penulisan codingnya trs ganti procedurenya menjadi lostfocus.
IF thisform.text4.Value="BRG01" then
thisform.text5.Value="Flashdisk"
thisform.text6.Value=100000
ELSE
IF thisform.text4.Value="BRG02" then
thisform.text5.Value="Printer"
thisform.text6.Value=500000
ELSE
IF thisform.text4.Value="BRG03" then
thisform.text5.Value="Monitor"
thisform.text6.Value=750000
ENDIF
ENDIF
ENDIF
setelah ini selesai klik lagi di text7 trus procedurenya sama ganti dengan lostfocus juga
thisform.text8.Value=thisform.text6.value*thisform.text7.Value
selanjutnya di text8,procedurenya lostfocus juga
IF THISFORM.Text8.Value>=250000 THEN
THISFORM.Text9.Value=5
THISFORM.Text10.Value=THISFORM.Text8.Value*0.5
ENDIF
klik tombol simpan beberapa kali lalu isikan code berikut.
SELECT tabel_transaksi
APPEND BLANK
replace kd_trans WITH thisform.text1.Value
replace tgl_trans WITH thisform.text2.Value
replace nm_pembeli WITH thisform.text3.Value
replace kd_brg WITH thisform.text4.Value
replace nm_brg WITH thisform.text5.Value
replace hrg WITH thisform.text6.Value
replace jumlah WITH thisform.text7.Value
replace bayar WITH thisform.text8.Value
replace diskon WITH thisform.text9.Value
replace total WITH thisform.text10.Value
MESSAGEBOX("Data Tersimpan",64+0,"EITS")
THISFORM.GRId1.Refresh
THISFORM.Text1.Value=""
THISFORM.Text3.Value=""
THISFORM.Text4.Value=""
THISFORM.Text5.Value=""
THISFORM.Text6.Value=0
THISFORM.Text7.Value=0
THISFORM.Text8.Value=0
THISFORM.Text9.Value=0
THISFORM.Text10.Value=0
THISFORM.Text1.SetFocus
tombo bersih
THISFORM.Text1.Value=""
THISFORM.Text3.Value=""
THISFORM.Text4.Value=""
THISFORM.Text5.Value=""
THISFORM.Text6.Value=0
THISFORM.Text7.Value=0
THISFORM.Text8.Value=0
THISFORM.Text9.Value=0
THISFORM.Text10.Value=0
THISFORM.Text1.SetFocus
tombol keluar
MESSAGEBOX("TERIMAKASIH SUDAH BERKUNJUNG",64+0,"EITS")
THISFORM.Release
setelah selesai silahkan dijalankan maka hasilnya kurang lebeih seperti punya saya
nah bagaimana apa kah yang anda kerjakan sama seperti punya saya,.kalau udh sama silahkan kerjakan soal nomor 2 lagi...
untuk soal nomor 2 kita menggunakan tabel_sewa, untuk soal nomor 2 adalah sebagai berikut
jika type = DEL maka harga_sewa = 300000
jika type = STAND maka harga_sewa = 400000
jika type = EXTRA maka harga_sewa = 500000
biaya sewa = harga_sewa * lama_inap
jika lama_inap >= 4 mendapatkan diskon 5% dari biaya sewa
total = biaya sewa * diskon
desain formnya seperti berikut.
nh kalo udah didesain seperti di atas lalu isi properties textboxnya seperti dibawah ini.
text4 = inputmask =Rp 999,999,999
value =0
text5 = value =0
text6 = inputmask =Rp 999,999,999
value =0
text7 = inputmask = 99%
value =0
text8 = inputmask =Rp 999,999,999
value =0
Nah kalo udh di isi properties textboxnya maka klik beberapa kali di text3 lalu procedurenya lostfocus dan isi kode berikut.
IF Thisform.text3.Value="DEL" then
thisform.text4.Value=300000
ELSE
IF thisform.text3.Value="STAND" then
thisform.text4.Value=400000
ELSE
IF thisform.text3.Value="EXTRA" then
thisform.text4.Value=500000
ENDIF
ENDIF
ENDIF
code di text5 procedure lostfocus
WITH thisform
.text6.value=.text4.value*.text5.value
IF .TEXT5.VALUE >= 4 THEN
.TEXT7.VALUE=5
.TEXT8.VALUE=.TEXT6.VALUE*0.5
ENDIF
ENDWITH
code di tombol SIMPAN
SELECT tabel_sewa
APPEND BLANK
replace kd_penyewa WITH thisform.text1.Value
replace nm_penyewa WITH thisform.text2.Value
replace type WITH thisform.text3.Value
replace hrg_sewa WITH thisform.text4.value
replace lm_inap WITH thisform.text5.Value
replace biaya_sw WITH thisform.text6.Value
replace diskon WITH thisform.text7.Value
replace byr WITH thisform.text8.Value
MESSAGEBOX("Data Tersimpan",64+0,"EITS")
thisform.grid1.Refresh
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""
THISFORM.Text3.Value=""
THISFORM.Text4.Value=0
THISFORM.Text5.Value=0
THISFORM.Text6.Value=0
THISFORM.Text7.Value=0
THISFORM.Text8.Value=0
THISFORM.Text1.SetFocus
code di tombol BERSIH
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""
THISFORM.Text3.Value=""
THISFORM.Text4.Value=0
THISFORM.Text5.Value=0
THISFORM.Text6.Value=0
THISFORM.Text7.Value=0
THISFORM.Text8.Value=0
THISFORM.Text1.SetFocus
code di tombol KELUAR
MESSAGEBOX("TERIMAKASIH SUDAH BERKUNJUNG",64+0,"EITS")
THISFORM.Release
Nah kalo udh selesai silahkan di jalankan dan hasilnya akan seperti ini
nah kira - kira seperti di ini lah jawabah soal final PBD I Kelas C dan D menurut saya,..
silahkan di coba dirumah,apabila ada kesalahan dalam penulisan silahkan di benarkan sendiri ya dan kalau ada yang kurang paham silahkan di tanya di bawah ya...
Tidak ada komentar:
Posting Komentar