JAWABANNO.3VB(RICO.JM)

LISTING PROGRAM

LOGIN

Public Class LOGIN

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If username.Text = "rico" And password.Text = "rico" Then
            menu_utama.Show()
            Me.Hide()


        Else
            MsgBox("data username/password salah")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

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

    End Sub
End Class


HASIL GAMBAR

LISTING PROGRAM

MENU UTAMA

Public Class menu_utama


    Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
        TAGIHAN_PDAM.Show()
        Me.Hide()


    End Sub

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

HASIL GAMBAR

LISTING PROGRAM

TAGIHAN PDAM

Public Class TAGIHAN_PDAM

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)
        If x = "TOK" Then
            type_pelanggan.Text = "TOKO"
            biaya_beban.Text = 25000
            hargam3.Text = 300


        ElseIf x = "RUM" Then
            type_pelanggan.Text = "RUMAH"
            biaya_beban.Text = 15000
            hargam3.Text = 100


        ElseIf x = "SWA" Then
            type_pelanggan.Text = "SWALYAN"
            biaya_beban.Text = 10000
            hargam3.Text = 200



        ElseIf x = "PAB" Then
            type_pelanggan.Text = "PABRIK"
            biaya_beban.Text = 25000
            hargam3.Text = 500

        End If





        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 4, 1)

        If x = "-" Then


        End If




        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah_pelanggan.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerah_pelanggan.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerah_pelanggan.Text = "AKSARA"
        ElseIf x = "BIN" Then
            daerah_pelanggan.Text = "BINJAI"
        ElseIf x = "PAK" Then
            daerah_pelanggan.Text = "LUBUK-PAKAM"



        End If





        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 8, 1)

        If x = "-" Then


        End If


        no_urut.Text = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 9, 3)

        total_tagihan.Text = Val(biaya_beban.Text) + Val(hargam3.Text) * pemakaian_Air.Text

        pajak.Text = (1 / 100) * Val(total_tagihan.Text)



    End Sub

End Class

HASIL GAMBAR

untuk melihat kasus lihat disini