Tutorial Membuat Program Kasir Dengan VB.Net (Visual Studio 2010)

Komponen toolbox 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.SelectedIndex = ComboBox1.SelectedIndex
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(“Flashdisk 2 GB”)
.Items.Add(“Hardisk Internal 500 GB”)
.Items.Add(“Hardisk eksternal 500GB”)
.Items.Add(“Flashdisk 4GB”)
.Items.Add(“Cooler Pad”)
.Items.Add(“Fan Casing”)
.Items.Add(“Thermal Grease”)
End With
With ComboBox2
.Items.Add(“20000”)
.Items.Add(“500000”)
.Items.Add(“550000”)
.Items.Add(“60000”)
.Items.Add(“20000”)
.Items.Add(“10000”)
.Items.Add(“25000”)
End With

Ini digunakan untuk mencantumkan nama PC yang menggunakan program ini

Dim machineName As String
machineName = System.Environment.MachineName
Label9.Text = machineName

End Sub

Ini digunakan untuk memberikan potongan dalam jumlah tertentu

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim jumlah As Integer
jumlah = Val(TextBox2.Text)
If jumlah >= 0 And jumlah = 21 And jumlah = 41 And jumlah = 61 Then TextBox3.Text = (“45”)
End Sub

Ini digunakan untuk menghitung kembalian pada program

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim kembalian As Double
Dim total_uang As Double
Dim total_biaya As Integer
total_biaya = Val(TextBox4.Text)
total_uang = Val(TextBox5.Text)
If total_uang = vbEmpty Then
MsgBox(“Maaf Anda Belum Memasukkan Uangnya”)
ElseIf total_uang total_biaya Then
kembalian = TextBox5.Text – TextBox4.Text
TextBox6.Text = Format(kembalian, “#,#”)
MsgBox(“Terima Kasih”)
End If
End Sub

Ini digunakan untuk membuat tombol refresh (clean)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
End Sub

Ini digunakan untuk membuat tombol keluar dari program

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

Ini digunakan untuk menghitung total pembelian yang telah dimasukkan

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Math.Round(CSng(TextBox2.Text), 0)
Dim total, total1, diskon As Double
Dim jumlah As Double
Dim harga As Integer
harga = Val(ComboBox2.Text)
If jumlah > 0 Then
diskon = (harga * TextBox2.Text * TextBox3.Text) / 100
total = (harga * TextBox2.Text – diskon)
TextBox4.Text = Format(total, “#,#”)
ElseIf jumlah = 0 Then
total1 = harga * TextBox2.Text
TextBox4.Text = Format(total1, “#,#”)
End If
End Sub

Ini digunakan untuk menampilkan form1 dalam program

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form1.Show()
End Sub

Ini digunakan untuk mengkoneksikan combobox2 dengan combobox1

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
ComboBox1.SelectedIndex = ComboBox2.SelectedIndex
End Sub
End Class

Tampilan pertama program

Tampilan sesudah diinput oleh user namun tidak di isi uang (textbox pembayaran dokosongkan)

Tampilan sesudah diinput oleh user namun pembayaran lebih kecil dari total pembelian

Tampilan akhir ketika semua kondisi dipenuhi oleh user

Ketika tombol kelompok 39 di klik, maka akan keluar form1

Flow Chart Program :