Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
Selesaikan Kasus Berikut:
KasusPemrograman : latihan listview perhitungan penjualan barang
Hasil Program:
Demikianlah Postingan Saya:
Nama :Ari Ramadani
Npm : 13110975
Selamat Belajar Pemrograman VB NET
KasusPemrograman : latihan listview perhitungan penjualan barang
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Kode_Barang.Items.Add("TS001")
Kode_Barang.Items.Add("TS002")
Kode_Barang.Items.Add("VG001")
Kode_Barang.Items.Add("VG002")
Call
buattabel()
End Sub
Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Kode_Barang.SelectedIndexChanged
Jumlah_Beli.Focus()
Dim x As String
x =
Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
If x = "TS"
Then
Merk.Text = "Toshiba"
ElseIf
x = "VG" Then
Merk.Text = "V-Gen"
End If
x =
Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)
If x = "001" Then
Nama_Barang.Text = "Flashdisk 4Gb"
Harga.Text = 105000
ElseIf
x = "002" Then
Nama_Barang.Text = "Flashdisk 2Gb"
Harga.Text = 75000
ElseIf
x = "001" Then
Nama_Barang.Text = "Flashdisk 4Gb"
Harga.Text = 90000
ElseIf
x = "002" Then
Nama_Barang.Text = "Flashdisk 2GB"
Harga.Text = 60000
End If
End Sub
Private Sub Jumlah_Beli_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Jumlah_Beli.KeyPress
If
Asc(e.KeyChar) = 13 Then
Total_Harga.Text = Jumlah_Beli.Text
* Harga.Text
End If
End Sub
Sub
buattabel()
Lv.Columns.Add("No",
30, HorizontalAlignment.Left)
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("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
isitabel()
Dim lst
As New
ListViewItem
lst.Text = No_Pembelian.Text
lst.SubItems.Add(Kode_Barang.Text)
lst.SubItems.Add(Nama_Barang.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jumlah_Beli.Text)
lst.SubItems.Add(Total_Harga.Text)
Lv.Items.Add(lst)
No_Pembelian.Text = ""
Kode_Barang.Text = ""
Nama_Barang.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah_Beli.Text = ""
Total_Harga.Text = ""
End Sub
Private Sub Simpan_keListview_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Simpan_keListview.Click
Call
isitabel()
End Sub
Private Sub Bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Bersih.Click
No_Pembelian.Text = ""
Kode_Barang.Text = ""
Nama_Barang.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah_Beli.Text = ""
Total_Harga.Text = ""
End Sub
Private Sub Hapus_semua_Data_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Hapus_semua_Data.Click
Lv.Items.Clear()
End Sub
Private Sub Hapus_Data_yg_dipilih_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Hapus_Data_yg_dipilih.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
End Class
0 komentar:
Posting Komentar