VB.NET Video Tutorial

#1 Video Tutorial Visual Basic .NET membuat pesan menggunakan Message Box.
#2 Video Tutorial Visual Basic .NET Menggunakan Respon Message Box.
#3 Video Tutorial Visual Basic .NET Input dan Output menggunakan Message Box.
#4 Video Tutorial Visual Basic .Net Menggunakan Operator Matematika VB.NET
#5 Video Tutorial Visual Basic .Net Pernyataan If ElseIf Else di VB.NET

Video Tutorial Pembuatan Aplikasi Data Barang menggunakan VB.Net dan MS SQL

Video Tutorial #1
Membuat Database Barang dengan MS SQL Server



Video Tutorial #2
Membuat Project Baru dan Modul Koneksi Database SQL Server menggunakan VB.Net



Video Tutorial #3
Membuat Desain Form Barang



Video Tutorial #4
Membuat Fungsi Tambah dan Tampil Data



Video Tutorial #5
Membuat Fungsi Ubah dan Hapus Data

Modul Lanjutan CRUD

Modul 1 CRUD SQL - VB.NET

Download

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