Untuk anda yang mungkin baru mengenal visual basic, tidak ada salahnya jika anda memperhatikan postingan saya kali ini.
Silahkan dicoba !! 🙂
Private Sub Batal_Click()
Call bersih
End SubPrivate Sub Close_Click()
End
End SubPrivate Sub Form_Load()
Call isino
Call buattabel
Call kdpel
Call isikdbrg
Call bersih
End SubSub bersih()
nomor.Text = “Pilih”
tgl.Value = Now
kodepel.Text = “”
namapel.Text = “”
kode_barang.Text = “”
nama_barang.Text = “”
harga.Text = “”
stok.Text = “”
total.Text = “”
jumlah.Text = “”End Sub
Sub isino()
For i = 1 To 100
nomor.AddItem Right(“00” & i, 3)
Next iEnd Sub
Sub buattabel()
tabel.GridLines = True
tabel.View = lvwReport
tabel.ColumnHeaders.Add , , “No. Transaksi”, 1500
tabel.ColumnHeaders.Add , , “Kode Barang”, 1500
tabel.ColumnHeaders.Add , , “Nama Barang”, 1500
tabel.ColumnHeaders.Add , , “Harga”, 1500
tabel.ColumnHeaders.Add , , “Stok”, 1500
tabel.ColumnHeaders.Add , , “Jumlah”, 1500
tabel.ColumnHeaders.Add , , “Total Bayar”, 1500
End Sub
Sub kdpel()
For j = 1 To 100
kodepel.AddItem “P” & Right(“00” & j, 3)
Next j
End SubPrivate Sub Hapus_Click()
tabel.ListItems.Remove tabel.SelectedItem.Index
End SubPrivate Sub jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If CCur(stok.Text) < CCur(jumlah.Text) Then
MsgBox “Maaf, Stok tidak mencukupi”, vbCritical, “Perhatian”
Else
total.Text = Format(harga.Text * jumlah.Text, “###,###,###”)
End If
End If
End SubPrivate Sub kode_barang_Click()
If kode_barang.Text = “B-001” Then
nama_barang.Text = “Laptop”
harga.Text = 5000000
stok.Text = 100
Me.Image2.Picture = LoadPicture(App.Path & “\laptop.jpeg”)
ElseIf kode_barang.Text = “B-002” Then
nama_barang.Text = “Komputer”
harga.Text = 3000000
stok.Text = 150
Me.Image2.Picture = LoadPicture(App.Path & “\komputer.jpeg”)
ElseIf kode_barang.Text = “B-003” Then
nama_barang.Text = “Printer”
harga.Text = 2000000
stok.Text = 200
Me.Image2.Picture = LoadPicture(App.Path & “\printer.jpeg”)
ElseIf kode_barang.Text = “B-004” Then
nama_barang.Text = “Handphone”
harga.Text = 1200000
stok.Text = 300
Me.Image2.Picture = LoadPicture(App.Path & “\hp.jpeg”)
ElseIf kode_barang.Text = “B-005” Then
nama_barang.Text = “Kamera”
harga.Text = 400000
stok.Text = 50
Me.Image2.Picture = LoadPicture(App.Path & “\kamera.jpeg”)
End If
End SubPrivate Sub kodepel_Click()
If kodepel.Text = “P001” Then
namapel.Text = “Joko”
Me.Image1.Picture = LoadPicture(App.Path & “\2.jpg”)
ElseIf kodepel.Text = “P002” Then
namapel.Text = “Indra”
Me.Image1.Picture = LoadPicture(App.Path & “\tor.jpeg”)
ElseIf kodepel.Text = “P003” Then
namapel.Text = “Imam”
Me.Image1.Picture = LoadPicture(App.Path & “\123.jpg”)
ElseIf kodepel.Text = “P004” Then
namapel.Text = “Sandy”
Me.Image1.Picture = LoadPicture(App.Path & “\cr.jpg”)
ElseIf kodepel.Text = “P005” Then
namapel.Text = “Hendro”
Me.Image1.Picture = LoadPicture(App.Path & “\lampard.jpg”)
End If
End Sub
Sub isikdbrg()
For j = 1 To 100
kode_barang.AddItem “B-” & Right(“00” & j, 3)
Next j
End SubPrivate Sub Simpan_Click()
Set ls = tabel.ListItems.Add(, , nomor.Text)
ls.SubItems(1) = kode_barang.Text
ls.SubItems(2) = nama_barang.Text
ls.SubItems(3) = harga.Text
ls.SubItems(4) = stok.Text
ls.SubItems(5) = jumlah.Text
ls.SubItems(6) = total.Text
End Sub
Wahhhhhh,, banyak sekali yahh? Hmmmm..
Seperti inilah hasil setelah programnya di jalankan :
Semoga dapat bermanfaat ! 🙂