Postingan Jawaban No 3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM  (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program Login:

Public Class Login

    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        If username.Text = "Yusri" And password.Text = "tikus" Then
            Menu_Utama.Show()

            Me.Hide()
        Else
            MsgBox("Username/Password salah!!!")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

End Class

Hasil Program Login:

 Listing Program Menu Utama:

 Imports System.Windows.Forms

Public Class Menu_Utama

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

    End Sub

    Private Sub PDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAMToolStripMenuItem.Click
        Tagihan_PDAM.Show()

    End Sub
End Class

Hasil Program Menu Utama

Listing Program Tagihan PDAM:


Public Class Tagihan_PDAM

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("MED")
        kode.Items.Add("BEL")
        kode.Items.Add("TEM")
        kode.Items.Add("MAR")
        kode.Items.Add("BIN")
        kode.Items.Add("PAK")
        type.Items.Add("TOK")
        type.Items.Add("RUM")
        type.Items.Add("SWA")
        type.Items.Add("PAB")
        buattabel()
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True
    End Sub


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

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "MED" Then
            nama.Text = "Medan"
        ElseIf kode.Text = "BEL" Then
            nama.Text = "Belawan"
        ElseIf kode.Text = "TEM" Then
            nama.Text = "Aksara"
        ElseIf kode.Text = "MAR" Then
            nama.Text = "Marendal"
        ElseIf kode.Text = "BIN" Then
            nama.Text = "Binjai"
        ElseIf kode.Text = "PAK" Then
            nama.Text = "Lubuk Pakam"
        End If

    End Sub


    Sub buattabel()
        LV.Columns.Add("Kode", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Daerah", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Type", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Pelanggan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga Per M3", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Besar Pemakaian", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Yang Harus Dibayar", 190, HorizontalAlignment.Left)

    End Sub

    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(type.Text)
        Lst.SubItems.Add(pelanggan.Text)
        Lst.SubItems.Add(biaya.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(besar.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(total.Text)
        Lst.SubItems.Add(jlhbayar.Text)
        LV.Items.Add(Lst)

    End Sub

    Private Sub type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles type.SelectedIndexChanged
        If type.Text = "TOK" Then
            pelanggan.Text = "Toko"
        ElseIf type.Text = "ROM" Then
            pelanggan.Text = "Rumah"
        ElseIf type.Text = "SWA" Then
            pelanggan.Text = "Swalayan"
        ElseIf type.Text = "PAB" Then
            pelanggan.Text = "Pabrik"

        End If
    End Sub

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

        If pelanggan.Text = "Toko" Then
            biaya.Text = "25000"
            harga.Text = 300
        ElseIf pelanggan.Text = "Rumah" Then
            biaya.Text = "15000"
            harga.Text = 100
        ElseIf pelanggan.Text = "Swalayan" Then
            biaya.Text = "10000"
            harga.Text = 200
        ElseIf pelanggan.Text = "Pabrik" Then
            biaya.Text = "250000"
            harga.Text = 500
        End If
        jumlah.Text = Val(harga.Text) * Val(besar.Text)
        total.Text = Val(biaya.Text) + Val(harga.Text) * Val(besar.Text)
        pajak.Text = Val(total.Text) / 100 * 1
        jlhbayar.Text = Val(total.Text) + Val(pajak.Text)
    End Sub


    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        LV.Items.Clear()

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        kode.Text = ""
        nama.Text = ""
        type.Text = ""
        pelanggan.Text = ""
        biaya.Text = ""
        harga.Text = ""
        besar.Text = ""
        jumlah.Text = ""
        pajak.Text = ""
        total.Text = ""
        jlhbayar.Text = ""
    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub
End Class


Hasil Program Tagihan PDAM: