Program pembayaran Listrik dengan List View

 

Public Class Form1

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

        buattabel()

    End Sub

    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

        Dim x As String

        No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)

        x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)

        If x = "MED" Then

            Daerah.Text = "MEDAN"

            pjk.Text = 0.015

        ElseIf x = "BEL" Then

            Daerah.Text = "BELAWAN"

            pjk.Text = 0.015

        ElseIf x = "TEM" Then

            Daerah.Text = "AKSARA"

            pjk.Text = 0.015

        ElseIf x = "MAR" Then

            Daerah.Text = "MARENDAL"

            pjk.Text = 0.015

        ElseIf x = "BIN" Then

            Daerah.Text = "BINJAI"

            pjk.Text = 0.015

        ElseIf x = "PAK" Then

            Daerah.Text = "LUBUK PAKAM"

            pjk.Text = 0.015

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)

        If x = "TOK" Then

            Tipe.Text = "TOKO"

            harga.Text = "500"

            biaya.Text = "150000"

        ElseIf x = "RUM" Then

            Tipe.Text = "RUMAH"

            harga.Text = "200"

            biaya.Text = "50000"

        ElseIf x = "SWA" Then

            Tipe.Text = "SWALAYAN"

            harga.Text = "1500"

            biaya.Text = "400000"

        ElseIf x = "PAB" Then

            Tipe.Text = "PABRIK"

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

    Sub buattabel()

        Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = tgl.Text

        lst.SubItems.Add(No.Text)

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(meterlalu.Text)

        lst.SubItems.Add(metersekarang.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(besar.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(tagihan.Text)

        lst.SubItems.Add(total.Text)

        Lv.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitabel()

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

    Private Sub No_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles No.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Proses_Click(sender, e)

        End If

    End Sub

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

        besar.Text = metersekarang.Text - meterlalu.Text

        tagihan.Text = biaya.Text + (harga.Text * besar.Text)

        total.Text = tagihan.Text * 0.015

    End Sub

End Class

Tugas VB semester ganjil.

hasil dari proses projek yang dikerjakan..

dan berikut ini adalah jalan pengerjaan proses di atas.,,

Public Class Form1

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

        npm.Items.Add("12110011")

        npm.Items.Add("12120012")

        npm.Items.Add("12130013")

        Kd_dosen.Items.Add("2011001")

        Kd_dosen.Items.Add("2011002")

        Kd_dosen.Items.Add("2011003")

        kd_makul.Items.Add("kk1213")

        kd_makul.Items.Add("aa1213")

        kd_makul.Items.Add("ss1213")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110011"

                nama.Text = "Denny kurniawan"

            Case "12120012"

                nama.Text = "Sartika"

            Case Else

                nama.Text = "Ratna"

        End Select

    End Sub

    Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged

        Select Case Kd_dosen.Text

            Case "2011001"

                nama_dosen.Text = "Rival S.Kom"

            Case "2011002"

                nama_dosen.Text = "Pilipus S.Kom"

            Case "2011003"

                nama_dosen.Text = "Soleh S.Kom"

        End Select

    End Sub

    Private Sub kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_makul.SelectedIndexChanged

        Select Case kd_makul.Text

            Case "kk1213"

                makul.Text = "Visual Basic"

            Case "aa1213"

                makul.Text = "Data Base"

            Case "ss1213"

                makul.Text = "Struktur Data"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        npm.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        akhir.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

        Microsoft.VisualBasic.Right(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jenjang.Text = "D1"

        ElseIf x = "12" Then

            jenjang.Text = "D3"

        ElseIf x = "13" Then

            jenjang.Text = "S1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik Komputer"

        End If

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

End Class