Senin, 07 Maret 2016

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

Sabtu, 16 Januari 2016

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

Kamis, 07 Mei 2015

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