JAWABAN NO.2 VB(RICO.JM)

LISTING PROGRAM

HALAMAN 33

Public Class uas1

    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")

        tabel()


    End Sub

    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 kode_barang.Text = ("TS001") Then
            merk.Text = "TOSHIBA"
           
        ElseIf kode_barang.Text = ("TS002") Then
            merk.Text = "TOSHIBA"
          
        End If


        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If kode_barang.Text = ("VG001") Then
            merk.Text = "V-GEN"
          
        ElseIf kode_barang.Text = ("VG002") Then
            merk.Text = "V-GEN"
           
        End If

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

        ElseIf kode_barang.Text = ("TS002") Then
            nama_barang.Text = "FLASHDISK 2GB"
            harga.Text = 75000

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

        End If




    End Sub



    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
        If e.KeyChar = vbCr Then
            total_harga.Focus()


            total_harga.Text = jumlah_beli.Text * harga.Text
        End If



    End Sub

    Sub tabel()
        lv.Columns.Add("no_pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("ko_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("na_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("merk", 110, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 110, HorizontalAlignment.Left)
        lv.Columns.Add("jumlah_beli", 110, HorizontalAlignment.Left)
        lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True


    End Sub

    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no_pembeli.Text
        lst.SubItems.Add(kode_barang.Text)
        lst.SubItems.Add(nama_barang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah_beli.Text)
        lst.SubItems.Add(total_harga.Text)
        lv.Items.Add(lst)
    End Sub


    Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
        isi()

    End Sub

    Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapsdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsdatapilih.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

 
End Class




HASIL GAMABAR

untuk melihat kasus lihat disini