Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Judul Soal : Penjualan Barang

Public Class Form1

    Sub RancangTabel()

        ListView1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama Barang", 150, HorizontalAlignment.Center)

        ListView1.Columns.Add("Merek", 150, HorizontalAlignment.Center)

        ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        ListView1.View = View.Details

        ListView1.FullRowSelect = True

        ListView1.GridLines = True

    End Sub

    Sub IsiTabel()

        Dim list As New ListViewItem

        list.Text = no_pembelian.Text

        list.SubItems.Add(kode_barang.Text)

        list.SubItems.Add(nama_barang.Text)

        list.SubItems.Add(merek.Text)

        list.SubItems.Add(harga.Text)

        list.SubItems.Add(jumlah_beli.Text)

        list.SubItems.Add(total_harga.Text)

        ListView1.Items.Add(list)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode_barang.Items.Add("KP001")

        kode_barang.Items.Add("KP002")

        kode_barang.Items.Add("PS001")

        kode_barang.Items.Add("PS002")

        RancangTabel()

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)

        Select Case x

            Case "KP"

                merek.Text = "LG"

            Case "PS"

                merek.Text = "Toshiba"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Right(kode_barang.Text, 3)

        Select Case j

            Case "001"

                nama_barang.Text = "Flashdisk 8 GB"

            Case "002"

                nama_barang.Text = "Flashdisk 4 GB"

        End Select

        Select Case x & j

            Case "KP" & "001"

                harga.Text = 95000

            Case "KP" & "002"

                harga.Text = 75000

            Case "PS" & "001"

                harga.Text = 90000

            Case "PS" & "002"

                harga.Text = 70000

        End Select

    End Sub

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress

        Dim x As Integer = Asc(e.KeyChar)

        If x = 13 Then

            total_harga.Text = harga.Text * jumlah_beli.Text

        End If

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        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 = ""

        merek.Text = ""

        harga.Text = ""

        jumlah_beli.Text = ""

        total_harga.Text = ""

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        ListView1.Items.Clear()

    End Sub

    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

End Class

Demikilahlah postingan saya Nama : KHOIRUL PAHOTAN SITORUS NPM : 13110745
Selamat Belajar Pemrograman VB NET