Pembelajaran Visual Basic dot Net Pertemuan Akhir

Pertemuan awal di bulan Januari ini merupakan pertemuan akhir untuk TA 2014/2015 Ganjil. Berikut merupakan program latihan yang dipelajari di Lab.

Design form Pembelajaran Visual Basic dot Net Pertemuan Akhir seperti berikut ini :



Listing program pembelajaran Visual Basic dot Net Pertemuan Akhir

Public Class Form1
    Sub BuatTabel()
        With LV
            .Columns.Add("Kode", 60, HorizontalAlignment.Center)
            .Columns.Add("Nama", 200, HorizontalAlignment.Left)
            .Columns.Add("Harga", 50, HorizontalAlignment.Right)
            .Columns.Add("Jumlah", 60, HorizontalAlignment.Right)
            .Columns.Add("Total Harga", 60, HorizontalAlignment.Right)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 3
            Jumlah.Items.Add(i)
        Next
        For i = 1 To 9
            Kode.Items.Add("P00" & i)
        Next
        Call BuatTabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "P001"
                Nama.Text = "Televisi"
                Harga.Text = 2900000
            Case "P002"
                Nama.Text = "DVD Sony"
                Harga.Text = 900000
            Case "P002"
                Nama.Text = "Notebook"
                Harga.Text = 4900000
            Case "P003"
                Nama.Text = "CD RW"
                Harga.Text = 290000
            Case "P007"
                Nama.Text = "CD BLANK"
                Harga.Text = 29000
            Case Else
                Nama.Text = ""
                Harga.Text = 0
        End Select
        Try
            Gambar.Image = Image.FromFile("D:\Gambar\" & Kode.Text & ".jpg")
        Catch err As Exception
            Gambar.Image = Nothing
        End Try
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        Total.Text = Harga.Text * Jumlah.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Kode.Text = ""
        Nama.Text = ""
        Harga.Text = ""
        Total.Text = ""
        Jumlah.Text = ""
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)
        Call btnBatal_Click(sender, e)
    End Sub

    Private Sub btnHapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusList.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnHapusBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusBarang.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class

Hasil Akhir program bila dijalankan :

Untuk menampilkan gambar pastikan di drive D: sudah ada folder gambar dan berisi gambar dengan P001.JPG, P002.JPG dan selanjutnya, sesuai dengan isi kode.

Silahkan download program pembelajaran Visual Basic dot Net Pertemuan Akhir di sini : Program Pembelajaran Visual Basic dot Net Pertemuan Akhir.RAR