Program Penjualan Batu Akik berbasis Visual Basic Net 2008
Mungkin zaman sekarang Batu Akik sudah tidak asing lagi bagi warga indonesia (bahkan internasional). Batu akik bisa dikatakan Batu yang memiliki harga jual yang mahal (Sampai jutaan). Untuk Postingan ini saya
bukan bermaksud mengiklankan atau berjualan Batu Akik tetapi membuat Program Penjualan Batu Akik berbasis Visual Basic Net 2008.
Adapun ketentuan dari Program ini adalah :
bukan bermaksud mengiklankan atau berjualan Batu Akik tetapi membuat Program Penjualan Batu Akik berbasis Visual Basic Net 2008.
Adapun ketentuan dari Program ini adalah :
- 5 Buah Label (kode, Jenis, Harga, Jumlah Beli, Total Bayar)
- 2 Buah Combobox (kode, jumlah)
- 4 Buah Button (simpan,batal,hapus,keluar)
- 1 Buah ListView (lv)
- 1 Buah PictureBox Batu Akik
Teks dalam kurung adalah namenya (Atur di Propeties)
- Desain pada Form anda seperti gambar di bawah ini
- Setelah mendesain, Atur Name Combobox
- Kalau Atur Name Combobox sudah selesai, silahkan ketik koding di bawah ini pada masing-masing tempatnya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("A01")
kode.Items.Add("A02")
kode.Items.Add("A03")
kode.Items.Add("A04")
kode.Items.Add("A05")
For i = 1 To 10 Step 1
jumlah.Items.Add(i)
Next
Call buattabel()
End Sub
Sub bersih()
kode.Text = ""
jenis.Text = ""
harga.Text = ""
jumlah.Text = ""
totalbayar.Text = ""
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = "A01" Then
jenis.Text = "Cincin Bacan Doko 4"
harga.Text = 225000
ElseIf kode.Text = "A02" Then
jenis.Text = "Bacan Falema Fido"
harga.Text = 800000
ElseIf kode.Text = "A03" Then
jenis.Text = "Batu Akik Borongan"
harga.Text = 3250000
ElseIf kode.Text = "A04" Then
jenis.Text = "Cincin Bacan Cincau"
harga.Text = 2000000
Else
jenis.Text = "Bacan Elektrik"
harga.Text = 30000
End If
End Sub
Sub buattabel()
lv.Columns.Add("Kode", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jenis", 120, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 110, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
lv.Columns.Add("Total Bayar", 110, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = kode.Text
Lst.SubItems.Add(jenis.Text)
Lst.SubItems.Add(harga.Text)
Lst.SubItems.Add(jumlah.Text)
Lst.SubItems.Add(totalbayar.Text)
lv.Items.Add(Lst)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call isitabel()
Call bersih()
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
Call bersih()
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged
totalbayar.Text = jumlah.Text * harga.Text
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
End Class - Jalankan Program (Tekan F5)
Sekian artikel Program Penjualan Batu Akik berbasis Visual Basic Net 2008 . Semoga Bermanfaat.