Yuk! Belajar Pemrograman Visual Basic dot Net
Selesaikan soal berikut ini (memakai Listview) : Informasi Penjualan Produk.
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("kode", 40, HorizontalAlignment.Center)
LV.Columns.Add("produk", 70, HorizontalAlignment.Left)
LV.Columns.Add("harga", 80, HorizontalAlignment.Right)
LV.Columns.Add("jumlah", 80, HorizontalAlignment.Right)
LV.Columns.Add("total", 80, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
kode.Items.Add("1")
kode.Items.Add("2")
kode.Items.Add("3")
For I = 1 To 1000
jumlah.Items.Add(I)
Next
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "1" : produk.Text = "TV"
Case "2" : produk.Text = "DVD"
Case "3" : produk.Text = "CD ROOM"
End Select
If kode.Text = "1" Then
produk.Text = "TV"
harga.Text = 2000000
ElseIf kode.Text = "2" Then
produk.Text = "DVD"
harga.Text = 650000
ElseIf kode.Text = "3" Then
produk.Text = "CD ROOM"
harga.Text = 450000
End If
End Sub
Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(harga.Text) * Val(jumlah.Text)
End Sub
Private Sub btninputlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputlist.Click
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(produk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
LV.Items.Clear()
End Sub
End Class
Read more
Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("kode", 40, HorizontalAlignment.Center)
LV.Columns.Add("produk", 70, HorizontalAlignment.Left)
LV.Columns.Add("harga", 80, HorizontalAlignment.Right)
LV.Columns.Add("jumlah", 80, HorizontalAlignment.Right)
LV.Columns.Add("total", 80, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
kode.Items.Add("1")
kode.Items.Add("2")
kode.Items.Add("3")
For I = 1 To 1000
jumlah.Items.Add(I)
Next
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "1" : produk.Text = "TV"
Case "2" : produk.Text = "DVD"
Case "3" : produk.Text = "CD ROOM"
End Select
If kode.Text = "1" Then
produk.Text = "TV"
harga.Text = 2000000
ElseIf kode.Text = "2" Then
produk.Text = "DVD"
harga.Text = 650000
ElseIf kode.Text = "3" Then
produk.Text = "CD ROOM"
harga.Text = 450000
End If
End Sub
Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(harga.Text) * Val(jumlah.Text)
End Sub
Private Sub btninputlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputlist.Click
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(produk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
LV.Items.Clear()
End Sub
End Class
Demikianlah Postingan saya Nama : (Nusra Anwar) NPM : (14110165) Selamat Belajar Pemograman VB NET DI MESRAN.NET
Read more












































