Penulis : Muhammad Hafiz
1. Pertama-tama Buatlah Desain seperti gambar di bawah ini (Gambar.0.01)
(Gambar.0.01)
Keterangan (Gambar.0.01)
:
Ø Menggunakan 7 Buah Label è Ganti propertis text seperti gambar
diatas
Ø 6 Buah TextBox èganti propertis Name sesuai text pada
label
Ø 1 Buah ComboBox è ganti propertis Name sesuai text
pada label
Ø 1 Buah GroupBox è Ganti propertis text seperti gambar
diatas (Tombol)
Ø 5 Buah Button è ganti propertis Name & text
seperti gambar diatas
Ø Dan 1 Buah ListView è ganti propertis Name menjadi “lv”
Langkah
selanjutnya adalah:
Masukkan
Kodding Berikut :
Ket: “Doble
clik pada Form1”masukkan kodding sehingga jadi seperti di bawah
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
BuatTabel()
kode_barang.Items.Add("TS-001")
kode_barang.Items.Add("TS-002")
kode_barang.Items.Add("VG-001")
kode_barang.Items.Add("VG-002")
End Sub
Ket: “Sub BuatTabel ()” seperti di bawah berfungsi membuat tabel pada
ListView
Sub
BuatTabel()
lv.Columns.Add("No.pelanggan",
80, HorizontalAlignment.Center)
lv.Columns.Add("Kode
Barang", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Merek
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga",
80, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah
Beli", 80, HorizontalAlignment.Left)
lv.Columns.Add("Total",
80, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Ket: “Sub IsiTabel ()” seperti di bawah berfungsi memasukkan isi ke
dalam tabel ListView
Sub IsiTabel()
Dim lst
As New
ListViewItem
lst.Text = no_pembelian.Text
lst.SubItems.Add(kode_barang.Text)
lst.SubItems.Add(nama_barang.Text)
lst.SubItems.Add(merek.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah_beli.Text)
lst.SubItems.Add(total_harga.Text)
lv.Items.Add(lst)
End Sub
Ket: “Doble
clik pada ComboBox” lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub kode_barang_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kode_barang.SelectedIndexChanged
Dim x As String
x = Mid(kode_barang.Text, 1, 2)
Select Case x
Case
"TS"
merek.Text = "Toshiba"
Case
"VG"
merek.Text = "V-Gen"
End Select
x = Mid(kode_barang.Text, 4, 6)
Select Case x
Case
"001"
nama_barang.Text = "Flashdisk 4GB"
harga.Text = 105000
Case
"002"
nama_barang.Text = "Flashdisk 2GB"
harga.Text = 75000
Case
"001"
nama_barang.Text = "Flashdisk 4GB"
harga.Text = 90000
Case
"001"
nama_barang.Text = "Flashdisk 2GB"
harga.Text = 60000
End Select
jumlah_beli.Focus()
End Sub
Ket: “Doble
clik pada TextBox & Rubah Menjadi KeyPress” Lalu masukkan kodding sehingga
jadi seperti di bawah
Private Sub jumlah_beli_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlah_beli.KeyPress
If
Asc(e.KeyChar) = 13 Then
total_harga.Text = harga.Text *
jumlah_beli.Text
End If
btnsimpan.Focus()
End Sub
Private Sub jumlah_beli_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
jumlah_beli.TextChanged
End Sub
Ket: “Doble
clik pada Button Simpan” Lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
Call
IsiTabel()
MsgBox("Data
Telah Tersimpan")
Call
Bersih()
no_pembelian.Focus()
End Sub
Sub Bersih()
no_pembelian.Text = ""
kode_barang.Text = ""
nama_barang.Text = ""
merek.Text = ""
harga.Text = ""
jumlah_beli.Text = ""
total_harga.Text = ""
End Sub
Ket: “Doble
clik pada Button Bersih” Lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub btnbersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbersih.Click
Call
Bersih()
End Sub
Private Sub no_pembelian_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
no_pembelian.KeyPress
End Sub
Private Sub no_pembelian_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
no_pembelian.TextChanged
End Sub
Ket: “Doble
clik pada Button Keluar” Lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
If
MsgBox("Yakin Mau Keluar?",
MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Me.Close()
End Sub
Ket: “Doble
clik pada Button Hapus” Lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub btnhapus_semua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus_semua.Click
lv.Items.Clear()
End Sub
Ket: “Doble
clik pada Button Hapus_Pilih” Lalu masukkan kodding sehingga jadi seperti di bawah
Private Sub btnhapus_pilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus_pilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Maka Hasil
Program Akan Menjadi Seperti :
Kurang Lebih
Program yang akan jalan seperti di atas’,,,,,,,
Sekian Tugas
Online yang saya Buat’,,,,,
WasalamMualaikum
Wr.Wb.
Demikilahlah postingan saya Nama : (MUHAMMAD HAFIZ) NPM : (13110703)
