Program untuk menampilkan hasil ke listview untuk kasus Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")
        rancangan_table()
    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"
            x = Microsoft.VisualBasic.Right(Kode.Text, 3)
            If x = "001" Then
                Nama.Text = "Flashdisk 4GB"