jawaban Tugas VB.net soal dari modul halaman 33

sesuai dengan Tutorial dari pengerjaan tugasnya. untuk lebih detailnya silahkan kunjungi ke sini

Listing Program :

Public Class latihan
    Sub table()
        ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        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)
        ListView1.Items.Add(lst)
    End Sub


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


     

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub
    Sub AddJumlah()
        For i = 1 To 100
            jumlah.Items.Add(i)
        Next
    End Sub
    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub



    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim latihan As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
        If latihan = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf latihan = "VG" Then
            merk.Text = "V-Gen"
        End If
        latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
        If latihan = "001" Then
            nama.Text = "Flasdic 4GB"
        ElseIf latihan = "002" Then
            nama.Text = "Flasdisc 2GB"
     

        End If
        harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
        If kode.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kode.Text = "VG002" Then
            harga.Text = 60000
        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)




    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Byte
        i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            hitung_Click(sender, e)

        End If
    End Sub

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

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
        ListView1.Items.Clear()
    End Sub

 
    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class


Hasil Program :