listing program :
Public Class Form1
Sub buattabel()
LV.Columns.Add("no pembelian", 100, HorizontalAlignment.Center)
LV.Columns.Add("kode barang", 100, HorizontalAlignment.Left)
LV.Columns.Add("nama barang", 100, HorizontalAlignment.Left)
LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
LV.Columns.Add("jumlah beli", 100, HorizontalAlignment.Left)
LV.Columns.Add("total harga", 100, HorizontalAlignment.Left)
lv.View = View.Details
LV.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nopembelian.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(namabarang.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Total.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
nopembelian.Text = ""
kode.Text = ""
namabarang.Text = ""
merk.Text = ""
harga.Text = ""
Jumlah.Text = ""
Total.Text = ""
nopembelian.Focus()
End Sub
Private Sub pembelianbarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
End Sub
Sub clearisian()
nopembelian.Clear()
kode.Text = ""
NamaBarang.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah.Text = ""
Total.Text = ""
nopembelian.Focus()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("maaf anda belum memilih yang mana mau di hapus")
End If
End Sub
Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim x As String
Dim i As String
x = Microsoft.VisualBasic.Left(kode.Text, 2)
i = Microsoft.VisualBasic.Right(kode.Text, 3)
Select Case x & i
Case "TS" & "001" : Merk.Text = "Toshiba"
NamaBarang.Text = "Flashdisk4GB" : Harga.Text = 105000
Case "TS" & "002" : Merk.Text = "Toshiba"
NamaBarang.Text = "Flashdisk2GB" : Harga.Text = 75000
Harga.Text = 105000
Case "VG" & "001" : Merk.Text = "V-Gen"
NamaBarang.Text = "Flashdisk4GB" : Harga.Text = 90000
Case "VG" & "002" : Merk.Text = "V-Gen"
NamaBarang.Text = "Flashdisk2GB" : Harga.Text = 60000
End Select
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Total.Text = Harga.Text * Jumlah.Text
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Call clearisian()
End Sub
Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
Total.Text = Val(Harga.Text) * Val(Jumlah.Text)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
hasil program :
Tidak ada komentar:
Posting Komentar