Soal Quis Online yuk-belajar-pemrograman-visual-basic.html

Public Class Form2

    Sub BuatTabel()

        LV.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Daerah", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Harga Per KWH", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Pemakaian Bulan ini", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Peamakaian Bulan Lalu", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Pemakaian", 110, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

   

Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kode.Text

        Lst.SubItems.Add(Daerah.Text)

        Lst.SubItems.Add(Tipe.Text)

        Lst.SubItems.Add(Biaya.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(JPBI.Text)

        Lst.SubItems.Add(JPBL.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Pajak.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        Harga.Text = Val(Tipe.Text) - Val(Biaya.Text)

        IsiTabel()

        Kode.Text = ""

        Daerah.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        JPBI.Text = ""

        JPBL.Text = ""

        Jumlah.Text = ""

        Pajak.Text = ""

        Total.Text = ""

    End Sub

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

        BuatTabel()

    End Sub

    Private Sub Kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.TextChanged

        Dim X As String

        X = Microsoft.VisualBasic.Left(Kode.Text, 3)

        Select Case X

            Case "TOK" : Tipe.Text = "Toko"

            Case "RUM" : Tipe.Text = "Rumah"

            Case "SWA" : Tipe.Text = "Swalayan"

            Case "PAB" : Tipe.Text = "Pabrik"

        End Select

        X = Microsoft.VisualBasic.Left(Kode.Text, 1)

        Select Case X

            Case "T" : Biaya.Text = 150000

            Case "R" : Biaya.Text = 50000

            Case "S" : Biaya.Text = 400000

            Case "P" : Biaya.Text = 1000000

        End Select

        X = Microsoft.VisualBasic.Left(Kode.Text, 2)

        Select Case X

            Case "TO" : Harga.Text = "500"

            Case "RU" : Harga.Text = "200"

            Case "SW" : Harga.Text = "1500"

            Case "PA" : Harga.Text = "10000"

        End Select

        X = Microsoft.VisualBasic.Right(Kode.Text, 3)

        Select Case X

            Case "MED" : Daerah.Text = "Medan"

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

            Case "TEM" : Daerah.Text = "Aksara"

            Case "MAR" : Daerah.Text = "Marendal"

            Case "BIN" : Daerah.Text = "Binjai"

            Case "PAK" : Daerah.Text = "Lubuk Pakam"

        End Select

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Jumlah.Text = JPBI.Text - JPBL.Text

        Pajak.Text = Jumlah.Text * Harga.Text * 0.15

        Total.Text = Harga.Text * Jumlah.Text + Biaya.Text + Pajak.Text

    End Sub

End Class