Share VB 2010

pada saat praktikum teknologi informatika kemaren, saya mempelajari tentang pembuatan program penghitungan harga untuk kasir.

berikut listing dan contoh program nya.

Public Class Form1

    Dim harga_kotor, harga_awal As Integer

    Dim potongan As Integer = 0

    Dim kembalian As Integer

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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

        With ComboBox2

            .Items.Add("2000")

            .Items.Add("3000")

            .Items.Add("2500")

            .Items.Add("2000")

            .Items.Add("3000")

            .Items.Add("15000")

        End With

    End Sub

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

        ComboBox2.Focus()

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        TextBox3.Focus()

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged,

        RadioButton3.CheckedChanged, RadioButton2.CheckedChanged

        potongan = sender.text

    End Sub

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

        Dim diskon As Single

        Dim total As Single

        diskon = (ComboBox2.Text * TextBox1.Text * potongan) / 100

        total = (ComboBox2.Text * TextBox1.Text - diskon)

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

    End Sub

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

        ComboBox1.ResetText()

        ComboBox2.ResetText()

        TextBox1.ResetText()

        RadioButton1.Select()

        TextBox2.ResetText()

        TextBox3.ResetText()

        TextBox4.ResetText()

    End Sub

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

        Close()

    End Sub

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

        Dim kembalian As Single

        kembalian = (TextBox3.Text - TextBox2.Text)

        TextBox4.Text = (kembalian)

    End Sub

End Class

semoga bermanfaat,,,,,,

dI_