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

Public Class Form1

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "toko"
                beban.Text = 150000
                hargaKWH.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                beban.Text = 50000
                hargaKWH.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                beban.Text = 400000
                hargaKWH.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                beban.Text = 1000000
                hargaKWH.Text = 10000


        End Select
        x = Mid(kode.Text, 5, 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
        If kode.Text = "PAB-MED-100" Then
            nama.Text = "AISYAH CAPAH"
        ElseIf kode.Text = "PAB-BEL-101" Then
            nama.Text = "AYU DEVI"
        ElseIf kode.Text = "RUM-TEM-102" Then
            nama.Text = "SARI LINDA"
        ElseIf kode.Text = "RUM-MAR-103" Then
            nama.Text = "AYU DILLA"
        ElseIf kode.Text = "SWA-TEM-104" Then
            nama.Text = "KURNIA"
        ElseIf kode.Text = "SWA-TEM-105" Then
            nama.Text = "TASNI KURNIA"
        ElseIf kode.Text = "TOK-BIN-106" Then
            nama.Text = "DEVIE AYUNINGSIH"
        ElseIf kode.Text = "TOK-BIN-107" Then
            nama.Text = "DEVI AYU AYU"
       
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        tagihan.Text = Val(beban.Text) + Val(hargaKWH.Text) * Val(pemakaian.Text)
        pajak.Text = Val(tagihan.Text) * Val(0.15)
        pembayaran.Text = Val(tagihan.Text) + Val(pajak.Text)



    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        beban.Text = ""
        hargaKWH.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

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

    End Sub

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

    Sub buattabel()
        LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("TIPE", 80, HorizontalAlignment.Center)
        LV.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA KWH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PEMAKAIAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("PEMBAYARAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim ist As New ListViewItem
        ist.Text = kode.Text
        ist.SubItems.Add(nama.Text)
        ist.SubItems.Add(tipe.Text)
        ist.SubItems.Add(beban.Text)
        ist.SubItems.Add(hargaKWH.Text)
        ist.SubItems.Add(pemakaian.Text)
        ist.SubItems.Add(tagihan.Text)
        ist.SubItems.Add(pajak.Text)
        ist.SubItems.Add(pembayaran.Text)
        ist.SubItems.Add(daerah.Text)
        LV.Items.Add(ist)
    End Sub


    Private Sub Btn_isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_isilist.Click
        Call ISITABEL()
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        beban.Text = ""
        hargaKWH.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
    End Sub

    Private Sub Btn_hpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_Hpsdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hpsdata.Click


    End Sub

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

    End Sub
End Class