quiz vb net
program latihan hal 33
Public Class Form1
Sub BUATTABEL()
LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode Barang", 90, HorizontalAlignment.Left)
LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
LV.Columns.Add("Total Bayar", 180, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = Nomor.Text
LST.SubItems.Add(Kode.Text)
LST.SubItems.Add(Nama.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 Form1_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
Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged
Dim X As String
X = Microsoft.VisualBasic.Left(KODE.Text, 2)
If X = "TS" Then
MERK.Text = "TOSHIBA"
ElseIf X = "VG" Then
MERK.Text = "V-GEN"
Else
MERK.Text = 0
End If
X = Microsoft.VisualBasic.Mid(KODE.Text,3, 3)
If X = "001" Then
NAMA.Text = "FLASHDISK 4GB"
Else
NAMA.Text = "FLASHDISK 2GB"
End If
End Sub
Private Sub JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged
If KODE.Text = "TS001" Then
HARGA.Text = 105000
ElseIf KODE.Text = "TS002" Then
HARGA.Text = 75000
ElseIf KODE.Text = "VG001" Then
HARGA.Text = 90000
Else
HARGA.Text = 60000
End If
TOTAL.Text = JUMLAH.Text * Val(HARGA.Text)
End Sub
Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
ISITABEL()
End Sub
Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
NOMOR.Text = ""
KODE.Text = ""
NAMA.Text = ""
MERK.Text = ""
HARGA.Text = ""
JUMLAH.Text = ""
TOTAL.Text = ""
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
Private Sub BRNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRNHAPUSSEMUA.Click
LV.Items.Clear()
End Sub
Private Sub BTNHAPUSPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSPILIH.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Tidak ada komentar:
Posting Komentar