Lalu masukkan Listing Programnya :)
Public Class Form1
Sub BuatTabel()
lv.Columns.Add("Pembeli",
80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Barang",
100, HorizontalAlignment.Left)
lv.Columns.Add("Nama Barang",
100, HorizontalAlignment.Left)
lv.Columns.Add("Merk", 100,
HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Beli",
100, HorizontalAlignment.Left)
lv.Columns.Add("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
= pembeli.Text
lst.SubItems.Add(kdbrg.Text)
lst.SubItems.Add(nmbrg.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(jmlbeli.Text)
lst.SubItems.Add(harga.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()
kdbrg.Items.Add("TS001")
kdbrg.Items.Add("TS002")
kdbrg.Items.Add("VG001")
kdbrg.Items.Add("VG002")
End Sub
Private Sub kdbrg_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskdbrg.SelectedIndexChanged
Dim X As String
Dim y As String
X
= Microsoft.VisualBasic.Left(kdbrg.Text, 2)
y
= Microsoft.VisualBasic.Right(kdbrg.Text, 3)
Select Case X
Case "TS" :
merk.Text = "Toshiba"
Case "VG" :
merk.Text = "V-GEN"
End Select
Select Case y
Case "001" :
nmbrg.Text = "Flashdisk
4GB"
Case "002" :
nmbrg.Text = "Flashdisk
2GB"
End Select
If X = "TS" And y = "001" Then
harga.Text
= 105000
ElseIf X = "TS" And y = "002" Then
harga.Text
= 75000
ElseIf X = "VG" And y = "001" Then
harga.Text
= 50000
ElseIf X = "VG" And y = "002" Then
harga.Text
= 80000
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnhapus.Click
pembeli.Text
= ""
kdbrg.Text
= ""
nmbrg.Text
= ""
merk.Text
= ""
jmlbeli.Text
= ""
harga.Text
= ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
pembeli.Text
= ""
kdbrg.Text
= ""
nmbrg.Text
= ""
merk.Text
= ""
jmlbeli.Text
= ""
harga.Text
= ""
End Sub
End Class
Maka tampilannya akan seperti ini :
Jawaban Kuis No.1 di Mesran.net Belajar Pemrograman
Tidak ada komentar:
Posting Komentar