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

Ni Soal no 1 pak

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        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("Jumlah Beli", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = pembeli.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jmlbeli.Text)

        lst.SubItems.Add(harga.Text)

        lv.Items.Add(lst)

    End Sub

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

        BuatTabel()

        kdbrg.Items.Add("TS001")

        kdbrg.Items.Add("TS002")

        kdbrg.Items.Add("VG001")

        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskdbrg.SelectedIndexChanged

        Dim X As String

        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)

        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)

        Select Case X

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        Select Case y

            Case "001" : nmbrg.Text = "Flashdisk 4GB"

            Case "002" : nmbrg.Text = "Flashdisk 2GB"

        End Select

        If X = "TS" And y = "001" Then

            harga.Text = 105000

        ElseIf X = "TS" And y = "002" Then

            harga.Text = 75000

        ElseIf X = "VG" And y = "001" Then

            harga.Text = 50000

        ElseIf X = "VG" And y = "002" Then

            harga.Text = 80000

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnhapus.Click

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

End Class