Aplikasi Penjualan Sederhana dengan VB6.0

Nah, di awal pembahasan visual Bassic, saya akan mencoba share tentang bagaimana membuat sebuah aplikasi penjualan sederhana menggunakan visual bassic 6.0. Aplikasi yang akan kita buat ingin sangatlah sederhana, yaitu hanya bisa menghitung jumlah pembelian barang yang di beli. Aplikasi ini belum memiliki sebuah database untuk menyimpan ataupun mengambil data dari database. Jadi tidak bisa di gunakan untuk menyimpan data ataupun mengambil data melainkan cukup untuk menghitungnya. 

Langsung saja kita praktikan bagaimana membuat aplikasi penjualan sederhana menggunakan visual basic 6.0. Sekarang coba buka program vb nya. Kemudian siapkan satu buah form dengan tambahan beberapa
komponen berikut :

No	Komponen	Name	Text	Caption
1	Text1	txtHarga	-	-
2	Text2	txtJumlah	-	-
3	Text3	txtInput	-	-
4	Label1	Label1	-	Aplikasi Penjualan Sederhana
5	Label2	Label2	-	Harga Barang
6	Label3	Label3	-	Jumlah
7	Label4	Label4	-	Pembayaran
8	Label5	Label5	-	Total Bayar
9	Label6	Label6	-	Kembalian
10	Label7	lblTotal	-	0
11	Label8	lblKembali	-	0
12	CommandButton1	cmdHitung	-	&Hitung
13	CommandButton2	cmdBersih	-	&Bersih

Setelah itu susun masing-masing komponen hingga membentuk sebuah user interface seperti ini :

Setelah itu coba tuliskan listing berikut pada masing-masing tombol :

Tombol Hitung ( cmdHitung )

Private Sub cmdHitung_Click()

    Dim Bayar, Kembali

    Bayar = txtHarga.Text * txtJumlah.Text

    Kembali = txtInput.Text - Bayar

    lblTotal.Caption = Bayar

    lblKembali.Caption = Kembali

End Sub

Tombol Bersih ( cmdBersih )

Private Sub cmdBersih_Click()

    txtHarga.Text = ""

    txtJumlah.Text = ""

    txtInput.Text = ""

    lblTotal.Caption = "0"

    lblKembali.Caption = "0"

    txtHarga.SetFocus

End Sub

Coba Jalankan dan lihat hasilnya ...

Happy Coding ...