Kasir Statis VB.net

1. Mengatur Properties sebagai berikut:
- Form (Name : frmKasir, Text = Kosongkan)
- TextBox: (txtKodeBarang, txtNamaBarang, txtHargaJual, txtJumlahJual, txtSubTotal, txtUangBayar, txtUang Kembali)
- Label : (Default, Sesuaikan dengan TextBox, txtGrandTotal, lblTotal)
- Button : (Name : btnTambah)
- DataGridView: (Name : dgvPenjualan)

2. Tambahkan Kode Berikut:
Sub txtKodeBarang, ganti event menjadi KeyPress

1. Private Sub txtKodeBarang_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKodeBarang.KeyPress
3.         If e.KeyChar = Chr(13) Then
4.             If txtKodeBarang.Text = "MR01" Then
5.                 txtNamaBarang.Text = "MotherBoard PC"
6.                 txtHargaJual.Text = 300000
7.             ElseIf txtKodeBarang.Text = "KR01" Then
8.                 txtNamaBarang.Text = "Keyboard"
9.                 txtHargaJual.Text = 45000
10.             ElseIf txtKodeBarang.Text = "LD01" Then
11.                 txtNamaBarang.Text = "LCD"
12.                 txtHargaJual.Text = 120000
13.             End If
14.         End If
15.     End Sub

Sub txtJumlahJual, ganti event menjadi KeyPress

1. Private Sub txtJumlahJual_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtJumlahJual.KeyPress
2.         If e.KeyChar = Chr(13) Then
3.             txtSubTotal.Text = Val(txtHargaJual.Text) * Val(txtJumlahJual.Text)
4.         End If
5.     End Sub

Sub btnTambah:

1. Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.Click
2.         dgvPenjualan.RowCount = dgvPenjualan.RowCount + 1
3.         dgvPenjualan(0, dgvPenjualan.RowCount - 2).Value = txtKodeBarang.Text
4.         dgvPenjualan(1, dgvPenjualan.RowCount - 2).Value = txtNamaBarang.Text
5.         dgvPenjualan(2, dgvPenjualan.RowCount - 2).Value = txtHargaJual.Text
6.         dgvPenjualan(3, dgvPenjualan.RowCount - 2).Value = txtJumlahJual.Text
7.         dgvPenjualan(4, dgvPenjualan.RowCount - 2).Value = txtSubTotal.Text
9.         If dgvPenjualan.RowCount > 1 Then
10.             Dim totalharga As Integer = 0
11.             For index As Integer = 0 To dgvPenjualan.RowCount - 1
12.                 totalharga += Convert.ToInt32(dgvPenjualan.Rows(index).Cells(4).Value)
13.             Next
14.             txtGrandTotal.Text = Val(txtGrandTotal.Text) + totalharga
16.         End If
17.     End Sub

Sub txtUangBayar, ganti event menjadi KeyPress

1. Private Sub txtUangBayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUangBayar.KeyPress
2.         If e.KeyChar = Chr(13) Then
3.             txtUangKembali.Text = Val(txtUangBayar.Text) - Val(txtGrandTotal.Text)
5.         End If
6.     End Sub