Kasus Pemrograman Pemakaian Listrik

 


 



Public Class Form1
    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", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Harga KWH", 80, HorizontalAlignment.Center)
        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.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        kode.Items.Add("PAB-PAK-100")
        kode.Items.Add("PAB-BEL-101")
        kode.Items.Add("RUM-BEL-102")
        kode.Items.Add("SWA-MED-103")
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(bibe.Text)
        lst.SubItems.Add(hrga.Text)
        lst.SubItems.Add(pmkaian.Text)
        lst.SubItems.Add(totag.Text)
        lst.SubItems.Add(pjk.Text)
        lst.SubItems.Add(pbyaran.Text)
        LV.Items.Add(lst)

    End Sub
   

    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"
                bibe.Text = 150000
                hrga.Text = 500
                nama.Text = "putry"

            Case "RUM"
                tipe.Text = "Rumah"
                bibe.Text = 50000
                hrga.Text = 200
                nama.Text = "Eli"
            Case "SWA"
                tipe.Text = "Swalayan"
                bibe.Text = 40000
                hrga.Text = 1500
                nama.Text = "Githa"

            Case "PAB"
                tipe.Text = "Pabrik"
                bibe.Text = 1000000
                hrga.Text = 10000
                nama.Text = "Nurainun"

        End Select
        x = Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case "PAK" : daerah.Text = "Patumbak"
            Case "MAR" : daerah.Text = "Marendal"
            Case "BIN" : daerah.Text = "Binjai"
            Case "BEL" : daerah.Text = "Belawan"
        End Select
    End Sub
    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisi.Click
        Call isitabel()
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        bibe.Text = ""
        hrga.Text = ""
        pmkaian.Text = ""
        totag.Text = ""
        pjk.Text = ""
        pbyaran.Text = ""

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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

    End Sub

  
    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

    End Sub

    Private Sub Btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        totag.Text = (bibe.Text + hrga.Text) * (pmkaian.Text)
        pjk.Text = 0.015 * totag.Text
        pbyaran.Text = Val(totag.Text) + Val(pjk.Text)

    End Sub
End Class