tutorial membuat program kasir sederhana vb.net

komponen yang dipakai :

Public Class Form3

ini digunakan untuk mengkoneksikan combobox1 dengan combobox2
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Focus()
End Sub

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

Ini digunakan untuk mengisi item item yang dibutuhkan pada combobox1 dan combobox2

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
With ComboBox2
.Items.Add(“2000”)
.Items.Add(“3000”)
.Items.Add(“2500”)
.Items.Add(“2000”)
.Items.Add(“3000”)
.Items.Add(“15000”)
End With
Ini digunakan untuk menghitung potongan.
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.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
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class

Tampilan pertama program

Tampilan sesudah diinput oleh user.