pemograman visual

Public Class Form1
    Sub BuatTabel()
        LV.Columns.Add("No pembelian", 50, HorizontalAlignment.Center)
        LV.Columns.Add("kode barang", 150, HorizontalAlignment.Center)
        LV.Columns.Add("nama barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("merk", 70, HorizontalAlignment.Center)
        LV.Columns.Add("harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("jumlah beli", 70, HorizontalAlignment.Center)
        LV.Columns.Add("total harga", 70, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = no.Text()
        Lst.SubItems.Add(kode.Text)
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(total.Text)
        LV.Items.Add(Lst)
    End Sub

    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")
        BuatTabel()
    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"
        ElseIf x = "TS" Then
            merk.Text = "Toshiba"
        End If
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        If x = "001" Then
            nama.Text = "flashdisk 4GB"
        ElseIf x = "002" Then
            nama.Text = "flashdisk 2GB"
        End If
    End Sub

    Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged
        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        Else
            harga.Text = "60000"
        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        IsiTabel()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        LV.Items.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        no.Text = ""
        nama.Text = ""
        kode.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class