YUK! BELAJAR PEMROGRAMAN VISUAL BASIC DOT NET DI MESRAN.NET

Berikut listing programnya:

Public Class Form1

    Private Sub kdpel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpel.SelectedIndexChanged

        Dim y As String

        y = Microsoft.VisualBasic.Left(kdpel.Text, 3)

        Select Case y

            Case "TOK" : tipel.Text = "TOKO"

            Case "RUM" : tipel.Text = "RUMAH"

            Case "SWA" : tipel.Text = "SWALAYAN"

            Case "PAB" : tipel.Text = "PABRIK"

        End Select

        Dim X As String

        X = Microsoft.VisualBasic.Mid(kdpel.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

        Dim Z As String

        Z = Microsoft.VisualBasic.Right(kdpel.Text, 3)

        Select Case Z

            Case "100" : nomor.Text = "100"

            Case "101" : nomor.Text = "101"

            Case "102" : nomor.Text = "102"

            Case "103" : nomor.Text = "103"

            Case "104" : nomor.Text = "104"

            Case "105" : nomor.Text = "105"

            Case "111" : nomor.Text = "111"

            Case "112" : nomor.Text = "112"

            Case "113" : nomor.Text = "113"

            Case "114" : nomor.Text = "114"

            Case "115" : nomor.Text = "115"

            Case "116" : nomor.Text = "116"

            Case "120" : nomor.Text = "120"

            Case "121" : nomor.Text = "121"

            Case "122" : nomor.Text = "122"

            Case "123" : nomor.Text = "123"

            Case "124" : nomor.Text = "124"

            Case "125" : nomor.Text = "125"

            Case "131" : nomor.Text = "131"

            Case "132" : nomor.Text = "132"

            Case "133" : nomor.Text = "133"

            Case "134" : nomor.Text = "134"

            Case "135" : nomor.Text = "135"

            Case "136" : nomor.Text = "136"

        End Select

        If tipel.Text = "TOKO" Then

            biben.Text = 150000

            hperKWH.Text = 500

        ElseIf tipel.Text = "RUMAH" Then

            biben.Text = 50000

            hperKWH.Text = 200

        ElseIf tipel.Text = "SWALAYAN" Then

            biben.Text = 400000

            hperKWH.Text = 1500

        Else

            biben.Text = 1000000

            hperKWH.Text = 10000

        End If

    End Sub

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

        kdpel.Items.Add("TOK-MED-100")

        kdpel.Items.Add("TOK-BEL-101")

        kdpel.Items.Add("TOK-TEM-102")

        kdpel.Items.Add("TOK-MAR-103")

        kdpel.Items.Add("TOK-BIN-104")

        kdpel.Items.Add("TOK-PAK-105")

        kdpel.Items.Add("RUM-MED-111")

        kdpel.Items.Add("RUM-BEL-112")

        kdpel.Items.Add("RUM-TEM-113")

        kdpel.Items.Add("RUM-MAR-114")

        kdpel.Items.Add("RUM-BIN-115")

        kdpel.Items.Add("RUM-PAK-116")

        kdpel.Items.Add("SWA-MED-120")

        kdpel.Items.Add("SWA-BEL-121")

        kdpel.Items.Add("SWA-TEM-122")

        kdpel.Items.Add("SWA-MAR-123")

        kdpel.Items.Add("SWA-BIN-124")

        kdpel.Items.Add("SWA-PAK-125")

        kdpel.Items.Add("PAB-MED-131")

        kdpel.Items.Add("PAB-BEL-132")

        kdpel.Items.Add("PAB-TEM-133")

        kdpel.Items.Add("PAB-MAR-134")

        kdpel.Items.Add("PAB-BIN-135")

        kdpel.Items.Add("PAB-PAK-136")

        buattabel()

    End Sub

    Sub buattabel()

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

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

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

        LV.Columns.Add("No Urut", 80, HorizontalAlignment.Left)

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

        LV.Columns.Add("Harga per Kwh", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Pemakai", 80, HorizontalAlignment.Left)

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

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

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kdpel.Text

        lst.SubItems.Add(tipel.Text)

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(nomor.Text)

        lst.SubItems.Add(biben.Text)

        lst.SubItems.Add(hperKWH.Text)

        lst.SubItems.Add(jlhpem.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(totbayar.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged

        pajak.Text = 0.015 * total.Text

    End Sub

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

        total.Text = (Val(biben.Text) + Val(hperKWH.Text)) * jlhpem.Text

    End Sub

    Private Sub totbayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totbayar.TextChanged

        totbayar.Text = Val(total.Text) + Val(pajak.Text)

    End Sub

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

        totbayar.Text = Val(total.Text) + Val(pajak.Text)

    End Sub

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

        isitabel()

        kdpel.Text = ""

        tipel.Text = ""

        daerah.Text = ""

        nomor.Text = ""

        biben.Text = ""

        hperKWH.Text = ""

        jlhpem.Text = ""

        total.Text = ""

        pajak.Text = ""

        totbayar.Text = ""

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Demikianlah Postingan Saya : Nama :Tumpal Manurung        NPM:1111538

Selamat Pemrograman VB NET