Kasir Statis

Output Program

1. Mengatur Properties sebagai berikut:
- Form (Name : frmKasir, Text = Kosongkan)
- TextBox: (txtKodeBarang, txtNamaBarang, txtHargaJual, txtJumlahJual, txtSubTotal)
- Label : (Default, Sesuaikan dengan TextBox)
- 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
2.         If e.KeyChar = Chr(13) Then
3.             If txtKodeBarang.Text = "MR01" Then
4.                 txtNamaBarang.Text = "MotherBoard PC"
5.                 txtHargaJual.Text = 300000
6.             ElseIf txtKodeBarang.Text = "KR01" Then
7.                 txtNamaBarang.Text = "Keyboard "
8.                 txtHargaJual.Text = 45000
9.             ElseIf txtKodeBarang.Text = "LD01" Then
10.                 txtNamaBarang.Text = "LCD"
11.                 txtHargaJual.Text = 120000
12.             End If
13.         End If
14.     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
8. End Sub