Aplikasi Pembayaran Toko Alat Tulis VB .NET Sederhana

                       Aplikasi Pembayaran Toko Alat Tulis VB .NET Sederhana  - Pada kali ini saya akan memberi contoh aplikasi pembayaran sederhana .langsung sadja.....

             1. Layout

             Buat dengan 9 label,5 textbox ,4 button dan 1 combobox sesuai kegunaan masing masing 

             2. Script 

          Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With ComboBox1

            .Items.Add("Buku Tulis")

            .Items.Add("Buku Gambar")

            .Items.Add("Pulpen Boxy")

            .Items.Add("Pensil Mekanik")

            .Items.Add("Penggaris Rotring")

            .Items.Add("Rautan Pensil")

        End With

    End Sub

-  Digunakan Untuk mengisi nama barang pada combobox

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = ("Buku Tulis") Then

            Label9.Text = ("2000")

        ElseIf ComboBox1.Text = ("Buku Gambar") Then

            Label9.Text = ("3000")

        ElseIf ComboBox1.Text = ("Pulpen Boxy") Then

            Label9.Text = ("2500")

        ElseIf ComboBox1.Text = ("Pensil Mekanik") Then

            Label9.Text = ("2000")

        ElseIf ComboBox1.Text = ("Penggaris Rotring") Then

            Label9.Text = ("3000")

        ElseIf ComboBox1.Text = ("Rautan Pensil") Then

            Label9.Text = ("15000")

        End If

    End Sub

-  digunakan apabila kita pilih barang pada comobox ,maka akan keluar harga pada barang dilabel 9 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim total As Single

            total = (Label9.Text * TextBox1.Text)

            TextBox2.Text = Format(total, "#,#")

    End Sub

- Script di atas untuk button total,perhitungan dengan cara nominal pada label 9 akan dikali jumlah barang pada textbox 1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox2.Text <= TextBox3.Text Then

            TextBox4.Text = TextBox3.Text - TextBox2.Text

        ElseIf TextBox2.Text > TextBox3.Text Then

            TextBox4.Text = ("Uang Anda Tidak Cukup")

        End If

    End Sub

-  Button 2 untuk menghitung kembalian dengan cara hasil textbox 3 dikurangi dengan textbox2 .dan apabila textbox3 kurang dari textbox 2 maka akan muncul "uang anda tidak cukup"  

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ComboBox1.SelectedIndex = -1

        TextBox1.Text = String.Empty

        ComboBox1.Text = String.Empty

        Label9.Text = String.Empty

        TextBox2.Text = String.Empty

        TextBox3.Text = String.Empty

        TextBox4.Text = String.Empty

    End Sub

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

        Close()

    End Sub

End Class

- Script yg digunakan pada tombol refresh dan exit 

Sekian semoga bermanfaat ------------------------------------------------------