Dasar 18. Contoh Program Sederhana

1. Buatlah sebuah Form baru.
2. Database nya masih seperti yang ada di tutorial (DBbarang / Table_Barang).
3. Masukan objek objek berikut ini :

NAME
CAPTION
TOOL
Label1 TOKO "ABC" Label
Label2 Pembeli Label
Label3 Tanggal Beli Label
Label4 Pilih Barang Label
Label5 Kode Barang Label
Label6 Nama Barang Label
Label7 Harga Barang Label
Label8 Jumlah Beli Label
Label9 Total Harga Label
Label10 Uang Bayar Label
Label11 Uang Kembali Label
Tanggal
-
Label
Jam
-
Label
TxtNama
-
TextBox
TxtHarga
-
TextBox
TxtPembeli
-
TextBox
Txtjumlah
-
TextBox
TxtTotal
-
TextBox
TxtBayar
-
TextBox
TxtKembali
-
TextBox
DTpicker1 - DTpicker
DBcombo1 - DBcombo
ChkBaju Baju Rp.25000 CheckBox
ChkCelana Celana Rp.15000 CheckBox
ChkDasi Dasi Rp.5000 CheckBox
OptKirim Dikirim (Biaya 5000) OptionButton
OptTidak Tidak dikirim OptionButton
Timer1
-
Timer
Data1
-
Data
CmdTutup Tutup CommandButton


4. Cara pemakaian program ini (lihat gambar) :
- Tanggal dan jam akan muncul otomatis
- Masukan nama pembeli dengan menulisnya secara manual.
- Masukan tanggal pembelian dengan memilih tanggal pada DTpicker1.
- Masukan kode barang yang ingin dibeli pada DBcombo1 maka nama barang dan harga barang akan muncul secara otomatis.
- Masukanlah jumlah barang yang dibeli lalu tekan tombol ENTER pada keyboard anda.
- Beri tanda checklist pada CheckBox yang ada jika anda ingin membeli seragam tambahan.
- Pilihlah cara pengiriman barang apakah barang yang dibeli ingin dikirim atau tidak dengan menggunakan OptionButton.
- Total bayar akan muncul otomatis.
- Masukanlah uang bayar maka uang kembali akan muncul secara otomatis.
- Tekan tombol TUTUP untuk menutup program dan nanti akan muncul pesan "SELAMAT TINGGAL !".
 
5. Listing Program :

'Tahap 1
Private Sub DBCombo1_Click(Area As Integer)
Data1.Recordset.FindFirst "Kode=’" & DBCombo1.Text & "’"
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub

'Tahap 2
Private Sub TXTJUMLAH_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL.Text = Val(TXTJUMLAH.Text) * Val(TXTHARGA.Text)
End If
End Sub

'Tahap 3
Private Sub CHKBAJU_Click()
If CHKBAJU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 25000
Else
If CHKBAJU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 25000
End If
End If
End Sub

'Tahap 4
Private Sub CHKCELANA_Click()
If CHKCELANA.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 15000
Else
If CHKCELANA.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 15000
End If
End If
End Sub

'Tahap 5
Private Sub CHKDASI_Click()
If CHKDASI.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
Else
If CHKDASI.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 5000
End If
End If
End Sub

'Tahap 6
Private Sub OPTKIRIM_Click()
If OPTKIRIM.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
End If
End Sub

'Tahap 7
Private Sub OPTTIDAK_Click()
If OPTTIDAK.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 0
End If
End Sub

'Tahap 8
Private Sub TXTBAYAR_Change()
TXTKEMBALI.Text = Val(TXTBAYAR.Text) – Val(TXTTOTAL.Text)
End Sub

'Tahap 9
Private Sub CMDTUTUP_Click()
MsgBox "SELAMAT TINGGAL"
Unload Me
End Sub

'Tahap 10
Private Sub Timer1_Timer()
TANGGAL.Caption = Date
JAM.Caption = Time
End Sub
    


6. Keterangan :

Keterangan Tahap 1

- Ketika DBcombo di klik maka akan terjadi pencarian data yang field Kode database nya sama dengan yang dipilih di DBcombo.

- Setelah itu maka data yang berhubungan dengan kode yang dipilih (nama dan harga) akan ditampilkan pada TextBox TextBox yang ada.

- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi data dari TXTKODE adalah isi dari field Kode yang ada di database.

Keterangan Tahap 2

- KeyAscii = 13 (KeyPress) ini digunakan untuk perintah menekan tombol ENTER pada keyboard.

- Disini terjadi perhitungan yaitu TXTJUMLAH dikalikan dengan TXTHARGA yang hasilnya diletakan pada TXTTOTAL.

Keterangan Tahap 3

- Maksudnya jika CHKBAJU dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 25000

- tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 25000

Keterangan Tahap 4

- Maksudnya jika CHKCELANA dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 15000

- tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 15000

Keterangan Tahap 5

- Maksudnya jika CHKDASI dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 5000

- tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 5000

Keterangan Tahap 6

- Maksudnya jika OPTKIRIM dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 5000

Keterangan Tahap 7

- Maksudnya jika OPTTIDAK dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 0

Keterangan Tahap 8

- Change digunakan agar ketika kita menulis suatu data maka data yang lain akan tertulis pada suatu objek yang telah ditentukan.

disini maksudnya jika kita menulis angka pada TXTBAYAR maka TXTKEMBALI akan tertulis secara otomatis.

- Disini terjadi perhitungan TXTBAYAR dikurangi TXTTOTAL yang hasilnya akan muncul pada TXTKEMBALI.


Keterangan Tahap 9

- Unload Me adalah kode untuk keluar dari form.

- Msgbox maksudnya adalah Kotak Suara (Message Box) yang berisi suatu pesan.

Keterangan Tahap 10

- Label TANGGAL caption (tulisannya) akan diisi dengan tanggal hari ini.

- Label JAM caption (tulisannya) akan diisi dengan jam sekarang.






Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....



0 komentar:

Posting Komentar