Quis online soal 2

HALAMAN 33 

jawaban soal nomor 2 (azminulla)

Public Class Form1

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim X As String

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

        If X = "TS" Then

            merek.Text = "TOSHIBA"

        ElseIf X = "VG" Then

            merek.Text = "V-GEN"

        End If

        X = Microsoft.VisualBasic.Right(kode_barang.Text, 3)

        If X = "001" Then

            nama_barang.Text = "FLASHDISK 4GB"

        ElseIf X = "002" Then

            nama_barang.Text = "FLASHDISK 2GB"

        End If

        harga.Text = Microsoft.VisualBasic.Right(kode_barang.Text, 5)

        If kode_barang.Text = "TS001" Then

            harga.Text = 105000

        ElseIf kode_barang.Text = "TS002" Then

            harga.Text = 75000

        ElseIf kode_barang.Text = "VG001" Then

            harga.Text = 90000

        ElseIf kode_barang.Text = "VG002" Then

            harga.Text = 60000

        End If

    End Sub

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

        kode_barang.Items.Add("TS001")

        kode_barang.Items.Add("TS002")

        kode_barang.Items.Add("VG001")

        kode_barang.Items.Add("VG002")

        AddJumlah()

        RancangTabel()

    End Sub

    Sub AddJumlah()

        For i = 1 To 100

            jumlah.Items.Add(i)

        Next

    End Sub

    Sub Hapus()

        no.Text = ""

        nama_barang.Text = ""

        kode_barang.Text = ""

        merek.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        no.Focus()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        If e.KeyChar = Chr(13) Then

            total.Text = harga.Text * jumlah.Text

        End If

    End Sub

    Sub RancangTabel()

        With LV

            .Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)

            .Columns.Add("kode barang", 120, HorizontalAlignment.Left)

            .Columns.Add("nama barang", 60, HorizontalAlignment.Center)

            .Columns.Add("merek", 80, HorizontalAlignment.Right)

            .Columns.Add("harga", 100, HorizontalAlignment.Center)

            .Columns.Add("jumlah beli", 80, HorizontalAlignment.Center)

            .Columns.Add("total harga", 80, HorizontalAlignment.Right)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub MasukTabel()

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(kode_barang.Text)

        lst.SubItems.Add(nama_barang.Text)

        lst.SubItems.Add(merek.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

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

        MasukTabel()

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        Hapus()

    End Sub

    Private Sub hapus_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_dipilih.Click

        If LV.SelectedItems.Count <> 0 Then

            LV.Items.Remove(LV.SelectedItems(0))

        Else

            MsgBox("Pilih terlebih dahulu baris data yang akan di hapus")

        End If

    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

        LV.Items.Clear()

    End Sub

End Class

hasil program :

 

lihat soal : klik disini