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

Public Class Form1

    Sub buattabel()

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

        Lv.Columns.Add("daerah", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("tipe", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("Biaya", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("KWH", 100, HorizontalAlignment.Left)

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

        Lv.Columns.Add("total", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("pajak", 80, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = Pelanggan.Text

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(KWH.Text)

        lst.SubItems.Add(Jp.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(pajak.Text)

        lv.Items.Add(lst)

    End Sub

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

        Pelanggan.Items.Add("Med")

        Pelanggan.Items.Add("Bel")

        Pelanggan.Items.Add("Tem")

        Pelanggan.Items.Add("Mar")

        Pelanggan.Items.Add("Bin")

        Pelanggan.Items.Add("Pak")

        tipe.Items.Add("Toko")

        tipe.Items.Add("Rumah")

        tipe.Items.Add("Swalayan")

        tipe.Items.Add("Pabrik")

        For i = 1 To 100

            Jp.Items.Add(i)

        Next i

        Call buattabel()

    End Sub

    Private Sub Pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pelanggan.SelectedIndexChanged

        Select Case Pelanggan.Text

            Case "Med" : daerah.Text = "Medan"

            Case "Bel" : daerah.Text = "Belawan"

            Case "Tem" : daerah.Text = "Aksara"

            Case "Mar" : daerah.Text = "Marelan"

            Case "Bin" : daerah.Text = "Binjai"

            Case "Pak" : daerah.Text = "L.Pakam"

        End Select

    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        Select Case tipe.Text

            Case "Toko" : Biaya.Text = "150000"

            Case "Rumah" : Biaya.Text = "50000"

            Case "Swalayan" : Biaya.Text = "400000"

            Case "Pabrik" : Biaya.Text = "1000000"

        End Select

        Select Case tipe.Text

            Case "Toko" : KWH.Text = "500"

            Case "Rumah" : KWH.Text = "200"

            Case "Swalayan" : KWH.Text = "1500"

            Case "Pabrik" : KWH.Text = "10000"

        End Select

        pajak.Text = 0.015 * Biaya.Text

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        If tipe.Text = "Toko" Then

            total.Text = 500

        ElseIf tipe.Text = "Rumah" Then

            total.Text = 200

        ElseIf tipe.Text = "Swalayan" Then

            total.Text = 1500

        ElseIf tipe.Text = "Pabrik" Then

            total.Text = 10000

        Else

            total.Text = 0

        End If

        total.Text = Val(total.Text * Jp.Text) + Val(Biaya.Text) + Val(KWH.Text) - Val(pajak.Text)

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        isitabel()

        Pelanggan.Text = ""

        daerah.Text = ""

        tipe.Text = ""

        Biaya.Text = ""

        KWH.Text = ""

        Jp.Text = ""

        total.Text = ""

        pajak.Text = ""

    End Sub

End Class