Programnya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KodeBrg.Items.Add("TS001")
KodeBrg.Items.Add("TS002")
KodeBrg.Items.Add("VG001")
KodeBrg.Items.Add("VG002")
buat_tabel()
End Sub
Sub isi_tabel()
Dim lst As New ListViewItem
lst.Text = No.Text
lst.SubItems.Add(KodeBrg.Text)
lst.SubItems.Add(NamaBrg.Text)
lst.SubItems.Add(Merek.Text)
lst.SubItems.Add(HargaBrg.Text)
lst.SubItems.Add(JumlahBeli.Text)
lst.SubItems.Add(TotalHarga.Text)
LV.Items.Add(lst)
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBrg.SelectedIndexChanged
Call Cek()
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
bersih()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
End
End Sub
Private Sub Jmlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
If e.KeyChar = vbCr Then
TotalHarga.Text = JumlahBeli.Text * HargaBrg.Text
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click
isi_tabel()
bersih()
End Sub
Sub Cek()
Dim x As String
x = Microsoft.VisualBasic.Left(KodeBrg.Text, 2)
If x = "TS" Then
Merek.Text = "Toshiba"
x = Microsoft.VisualBasic.Right(KodeBrg.Text, 3)
If x = "001" Then
HargaBrg.Text = "105000"
NamaBrg.Text = "Flasdisk 4GB"
ElseIf x = "002" Then
HargaBrg.Text = "90000"
NamaBrg.Text = "Flasdisk 2GB"
End If
ElseIf x = "VG" Then
Merek.Text = "V-Gen"
x = Microsoft.VisualBasic.Right(KodeBrg.Text, 3)
If x = "001" Then
HargaBrg.Text = "75000"
NamaBrg.Text = "Flasdisk 4GB"
ElseIf x = "002" Then
HargaBrg.Text = "60000"
NamaBrg.Text = "Flasdisk 2GB"
End If
End If
End Sub
Sub buat_tabel()
LV.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Merek", 100, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub bersih()
No.Text = ""
KodeBrg.Text = ""
NamaBrg.Text = ""
Merek.Text = ""
HargaBrg.Text = ""
JumlahBeli.Text = ""
TotalHarga.Text = ""
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
LV.Items.Clear()
End Sub
Private Sub BtnHpsDplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hps_Dplih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Hasilnya :
Tidak ada komentar:
Posting Komentar