Lihat Soal disini!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kobar.Items.Add("TS001")
kobar.Items.Add("TS002")
kobar.Items.Add("VG001")
kobar.Items.Add("VG002")
buattabel()
End Sub
Private Sub kobar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobrg.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kobar.Text, 2)
If x = "TS" Then
merk.Text = "Toshiba"
ElseIf x = "VG" Then
merk.Text = "V-Gen"
End If
x = Microsoft.VisualBasic.Right(kobar.Text, 3)
If x = "001" Then
nabar.Text = "Flashdisk 4GB"
ElseIf x = "002" Then
nabar.Text = "Flashdisk 2GB"
End If
If kobar.Text = "TS001" Then
harga.Text = "105000"
ElseIf kobar.Text = "TS002" Then
harga.Text = "75000"
ElseIf kobar.Text = "VG001" Then
harga.Text = "90000"
ElseIf kobar.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub jubel_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhbrg.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
btnproses_Click(sender, e)
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(jlhbrg.Text) * Val(harga.Text)
End Sub
Sub buattabel()
With LV
.Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add("Harga", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nbeli.Text
lst.SubItems.Add(kobar.Text)
lst.SubItems.Add(nabar.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jubel.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Sub clean()
nobel.Text = ""
kobar.Text = ""
nabar.Text = ""
merk.Text = ""
harga.Text = ""
jubel.Text = ""
total.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitabel()
Call buattabel()
Call clean()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
Call clean()
End Sub
Private Sub btnhapusdatapilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatapilihan.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("Maaf, Berikan Tanda terhadap Data yang Mau di Hapus!!!")
End If
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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
End Class
Hasil Gambar:
Tidak ada komentar:
Posting Komentar