JAWABAN SOAL 2 (DEWI SYAFITRI HUTABARAT)

JAWABAN SOAL 2  (DEWI SYAFITRI HUTABARAT)

KASUS  : Latihan halaman 33

LISTING PROGRAM

Public Class Form1

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = nopembelian.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Sub buattable()

        lv.Columns.Add("No Pembelian", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Kode Barang", 85, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 170, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 110, HorizontalAlignment.Left)

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

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 175, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub cekharga()

        Dim x As String

        Dim xx As String

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

        xx = Microsoft.VisualBasic.Right(kode.Text, 3)

        If x = "TS" Then

            If xx = "001" Then

                nama.Text = "Flashdisk 4GB"

                merk.Text = "Toshiba"

                harga.Text = 105000

            ElseIf xx = "002" Then

                nama.Text = "Flashdisk 2GB"

                merk.Text = "Toshiba"

                harga.Text = 75000

            End If

        ElseIf x = "VG" Then

            If xx = "001" Then

                nama.Text = "Flashdisk 4GB"

                merk.Text = "V-Gen"

                harga.Text = 90000

            ElseIf xx = "002" Then

                nama.Text = "Flashdisk 2GB"

                merk.Text = "V-Gen"

                harga.Text = 60000

            End If

        End If

        total.Text = Val(harga.Text) * Val(jumlahbeli.Text)

    End Sub

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

        buattable()

        kode.Items.Add("TS001")

        kode.Items.Add("TS002")

        kode.Items.Add("VG001")

        kode.Items.Add("VG002")

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Call cekharga()

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

        Call cekharga()

    End Sub

    Private Sub merk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.TextChanged

        Call cekharga()

    End Sub

    Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged

        Call cekharga()

    End Sub

    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

        Call cekharga()

    End Sub

    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

        Call cekharga()

    End Sub

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

        End

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        nopembelian.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        total.Text = ""

    End Sub

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

        isitable()

        nopembelian.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        total.Text = ""

    End Sub

Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        lv.Items.Clear()

    End Sub

   

End Class

HASIL PROGRAM

Pengisian data

memasukkan data ke listview