Postingan Jawaban No 2 (Usri Sagala)

Untuk kasus lihat disini Kasus disini(maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program

Public Class Form1

    Sub isinama()
        nama.Text = "Flasdisk 4GB"
        nama.Text = "Flashdik 2GB"
    End Sub


    Sub isikode()
        kode.Text = "TS001"
        kode.Text = "TS002"
        kode.Text = "VG001"
        kode.Text = "VG002"

    End Sub

    Sub isimerk()
        merk.Text = "Toshiba"
        merk.Text = "V-Gen"

    End Sub

    Sub buattabel()
        LV.Columns.Add("No.Pembeli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        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
        Call isikode()
        Call isimerk()
        Call isinama()
        buattabel()
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
        Call isitabel()

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call isitabel()

    End Sub

    Private Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRemove.Click
        LV.Items.Clear()

    End Sub

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

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    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 kode.Text = ("TS001") Then
            merk.Text = "TOSHIBA"

        ElseIf kode.Text = ("TS002") Then
            merk.Text = "TOSHIBA"

        End If


        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If kode.Text = ("VG001") Then
            merk.Text = "V-GEN"

        ElseIf kode.Text = ("VG002") Then
            merk.Text = "V-GEN"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 3, 3)
        If kode.Text = ("TS001") Then
            nama.Text = "FLASHDISK 4GB"
            harga.Text = 105000

        ElseIf kode.Text = ("TS002") Then
            nama.Text = "FLASHDISK 2GB"
            harga.Text = 75000

        ElseIf kode.Text = ("VG001") Then
            nama.Text = "FLASHDISK 4GB"
            harga.Text = 90000
        ElseIf kode.Text = ("VG002") Then
            nama.Text = "FLASHDISK 2GB"
            harga.Text = 60000

        End If


    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = vbCr Then
            total.Focus()


            total.Text = jumlah.Text * harga.Text
        End If
    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class

Hasil Program