CONTOH VISUAL BASIC NET 2008

PROGRAM KASIR

Sebelum masuk ke listingnya desain terlebih dahulu di form nya :
1. label1 utk buat tulisan KASIR
2. label2 utk buat Nama Barang, textbox1 utk kotaknya
3. dibawah label2, buat label3 utk Harga Satuan, textbox2 utk kotaknya
4. dibawahnya, label4 utk Banyak, utk ini kita menggunakan numericupdown1 utk mendptkan banyaknya
5. button1 utk Hitung Belanja
6. label4 utk Total Belanja (dicari dengan rumus nantinya), textbox3 utk kotaknya
7. label5 utk Uang yang Diberikan (diinput sendiri nantinya), textbox4 utk kotaknya
8. label6 utk Uang Kembalian (dicari dengan rumus), textbox5 utk kotaknya
9. label7 utk Detail Pecahan dari Uang Kembalian, menggunakan listbox1 utk menguraikan secara detail pecahan uang kembalian
10. button2 utk Hitung Kembalian
11. button3 utk Ulang (mengkosongkan data yang diinput)
12. button4 utk menu Keluar

Setelah kita membuat desain spt diatas,, maka langkah selanjutnya akan kita buatkan listing untk program kasir tersebut.. listingnya sebagai berikut.......!!!

Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = " "
        TextBox5.Text = " "
        ListBox1.Items.Clear()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = TextBox2.Text * NumericUpDown1.Value

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox5.Text = TextBox4.Text - TextBox3.Text
        Dim PECAHAN() As Integer = {5000000, 1000000, 500000, 100000, 50000, 30000, 20000, 10000, 5000, 2000, 1000, 500, 100, 50, 10}
        Dim HASIL, TEMP, I As Integer
        HASIL = TextBox5.Text
        ListBox1.Items.Clear()
        For I = 0 To PECAHAN.GetUpperBound(0)
            TEMP = Int(HASIL / PECAHAN(I))
            HASIL -= PECAHAN(I) * TEMP
            ListBox1.Items.Add("PECAHAN : " & PECAHAN(I) & "SEBANYAK : " & TEMP)

        Next
    End Sub
End Class