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

Public Class Form1

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

        NO.Items.Add("1")

        NO.Items.Add("2")

        NO.Items.Add("3")

        NO.Items.Add("4")

        NO.Items.Add("5")

        KODE.Items.Add("1")

        KODE.Items.Add("2")

        KODE.Items.Add("3")

        LV.Columns.Add("NO", 50, HorizontalAlignment.Center)

        LV.Columns.Add("KODE", 50, HorizontalAlignment.Center)

        LV.Columns.Add("PRODUK", 100, HorizontalAlignment.Left)

        LV.Columns.Add("HARGA", 150, HorizontalAlignment.Left)

        LV.Columns.Add("JUMLAH", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL", 150, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = False

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        TOTAL.Text = Val(HARGA.Text) * Val(JUMLAH.Text)

        Dim list As New ListViewItem

        list.Text = NO.Text

        list.SubItems.Add(KODE.Text)

        list.SubItems.Add(PRODUK.Text)

        list.SubItems.Add(HARGA.Text)

        list.SubItems.Add(JUMLAH.Text)

        list.SubItems.Add(TOTAL.Text)

        LV.Items.Add(list)

    End Sub

    Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged

        If KODE.Text = 1 Then

            PRODUK.Text = "TV"

            HARGA.Text = 2000000

        ElseIf KODE.Text = 2 Then

            PRODUK.Text = "DVD"

            HARGA.Text = 650000

        ElseIf KODE.Text = 3 Then

            PRODUK.Text = "CD ROOM"

            HARGA.Text = 450000

        End If

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        No.Text = ""

        KODE.Text = ""

        PRODUK.Text = ""

        HARGA.Text = ""

        JUMLAH.Text = ""

        TOTAL.Text = ""

        LV.Text = ""

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

End Sub

End Class

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.