Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Listing Program

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Merk", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kodebarang.Text

        lst.SubItems.Add(nopembelian.Text)

        lst.SubItems.Add(namabrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(totalharga.Text)

        Lv.Items.Add(lst)

    End Sub

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

        kodebarang.Text = ""

        namabrg.Text = ""

        nopembelian.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

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

        Dim x, Y As String

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

        Y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

        Select Case x

            Case "TS" : merk.Text = "THOSIBA"

            Case "VG" : merk.Text = "V-Gen"

        End Select

        Select Case Y

            Case "001" : namabrg.Text = "Flashdisk 4 GB"

            Case "002" : namabrg.Text = "Flashdisk 2 GB"

        End Select

        If x = "TS" And Y = "001" Then

            harga.Text = 105000

        ElseIf x = "TS" And Y = "002" Then

            harga.Text = 75000

        ElseIf x = "VG" And Y = "001" Then

            harga.Text = 90000

        ElseIf x = "VG" And Y = "002" Then

            harga.Text = 60000

        Else

            harga.Text = 0

        End If

    End Sub

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

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

    End Sub

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

        Dim x1 As Integer = Asc(e.KeyChar)

        If x1 = 13 Then

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

        End If

    End Sub

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

        BuatTabel()

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

    End Sub

   

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

        isitabel()

    End Sub

   

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        Lv.Items.Clear()

    End Sub

    Private Sub pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilih.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

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

        End

    End Sub

End Class

 Dan Hasilnya.....