aplikasi Penjualan

Untuk para adik adik yang sekolah menengah kejuruan jurusan informatika khususnya Rekayasa Perangkat Lunak dan untuk para abang abangku yang sudah semester 4 atau 3, berikut saya posting aplikasi penjualan yang sangat sederhana dengan menggunakan visual basic 6.0 yang saya pelajari dulu di Smkn 2 langsa tercinta =D.

Langsung saja saya praktikan bagaimana membuat aplikasi penjualan sederhana menggunakan visual basic 6.0. Sekarang coba buka program visual basic 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 kode 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 ...