Tagihan PDAM

Klik disini untuk melihat Soal/Kasus

Listing Program :
1.   Login 
Public Class Form1

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If username.Text = "tito" And password.Text = "123456" Then
            Menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Username dan Password tidak cocok!!")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username.Text = ""
        password.Text = ""
        password.PasswordChar = "*"
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class
 
2.   Form Pembayaran Tagihan 
Public Class Tagihan_PDAM

    Sub Pelanggan()
        For a = 1 To 2
            Kode.Items.Add("TOK" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("RUM" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("SWA" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("PAB" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "PAK" & "_" & a & "00")
        Next
    End Sub
Sub buattabel()
        LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Urut", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Type Pelanggan", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per M3", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Bayar Tagihan", 120, HorizontalAlignment.Center)
    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(Ur.Text)
        lst.SubItems.Add(Dae.Text)
        lst.SubItems.Add(Typ.Text)
        lst.SubItems.Add(Bia.Text)
        lst.SubItems.Add(Har.Text)
        lst.SubItems.Add(Jumpe.Text)
        lst.SubItems.Add(Totba.Text)
        lst.SubItems.Add(Totha.Text)
        LV.Items.Add(lst)
    End Sub
    Sub hapus()
        Kode.Text = ""
        Ur.Text = ""
        Dae.Text = ""
        Typ.Text = ""
        Bia.Text = ""
        Har.Text = ""
        Jumpe.Text = ""
        Totba.Text = ""
        Totha.Text = ""
    End Sub
Sub simpan()
        Isitabel()
End Sub

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

    Private Sub Btnsim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsim.Click
        Isitabel()
        hapus()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim Ty As String
        Dim Drh As String
        Dim Urt As String
        Ty = Microsoft.VisualBasic.Left(Kode.Text, 3)
        Drh = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)
        Urt = Microsoft.VisualBasic.Right(Kode.Text, 3)
        If Ty = "TOK" Then
            Typ.Text = "TOKO"
            Bia.Text = "25000"
            Har.Text = "300"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "RUM" Then
            Typ.Text = "RUMAH"
            Bia.Text = "15000"
            Har.Text = "100"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "SWA" Then
            Typ.Text = "SWALAYAN"
            Bia.Text = "10000"
            Har.Text = "200"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "PAB" Then
            Typ.Text = "PABRIK"
            Bia.Text = "250000"
            Har.Text = "500"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        End If
        Jumpe.Focus()
    End Sub

    Private Sub Jumpe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumpe.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim ttl As Long
            Dim J As Long
            Dim Pajak As Long
            J = Val(Bia.Text + (Har.Text * Jumpe.Text))
            Totha.Text = Format(J, "###,###,###")
            Pajak = 0.01 * J
            ttl = J + Val(Pajak)
            Totba.Text = Format(ttl, "###,###,###")
        End If
    End Sub

    Private Sub Btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnha.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih Dahulu Data Yang Akan Dihapus", MsgBoxStyle.Information, "Perhatikan !!!!")
        End If
    End Sub

    Private Sub Btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkel.Click
        Me.Close()
    End Sub
End Class

3.   Menu Utama
Public Class Menuutama

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
        Tagihan_PDAM.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class


Hasil Program :
1.   Login 

2.   Form Pembayaran Tagihan 

3.   Menu Utama

Sekian....!

Pembelian Barang

Klik disini untuk melihat Soal

Listing Program :

Public Class Form1
    Sub BuatTable()
        LV.Columns.Add("NO.Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
        For i = 1 To 2
            With kode
                .Items.Add("TS" & "00" & i)
                .Items.Add("VG" & "00" & i)
            End With

        Next
    End Sub
    Sub isitable()
        Dim a As New ListViewItem
        a.Text = nopem.Text
        a.SubItems.Add(kode.Text)
        a.SubItems.Add(nama.Text)
        a.SubItems.Add(merk.Text)
        a.SubItems.Add(harga.Text)
        a.SubItems.Add(jumlah.Text)
        a.SubItems.Add(total.Text)
        LV.Items.Add(a)
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim a As String
        Dim b As String
        a = Microsoft.VisualBasic.Left(kode.Text, 2)
        b = Microsoft.VisualBasic.Right(kode.Text, 3)
        If a = "TS" Then
            merk.Text = "TOSHIBA"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "105000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "75000"
            End If
        Else
            merk.Text = "V-Gen"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "90000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "60000"
            End If
        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            total.Text = harga.Text * jumlah.Text
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitable()
        bersih()
    End Sub
    Sub bersih()
        nopem.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        nopem.Focus()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        bersih()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    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 btnitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnitem.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih data mana yg akan dihapus!!")
        End If
    End Sub
End Class

Hasil Program :