Belajar Visual Basic Dasar Bagian 18 : Contoh Program Sederhana

1. Buatlah sebuah Form baru.

2. Database nya masih seperti yang ada di tutorial 1 (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 :

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

- 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.

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

- 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.

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

- 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

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

- 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

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

- 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

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

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

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

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

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

- 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.

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

- Unload Me adalah kode untuk keluar dari form.

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

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

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

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

OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com