Jawaban Quiz Online Hari Selasa No.3

Nama : ZULKIFLI
NPM : 0911001

Untuk melihat kasus, klik disini

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 = "zulkifli" And password.Text = "zul" Then
            tampil.Show()

            Me.Hide()


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

Hasil Gambar

Menu Utama

Public Class tampil

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

        DATA_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

Data PDAM

Public Class DATA_PDAM

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        Dim k As String

        k = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)

        If k = "TOK" Then

            tipe_pelanggan.Text = "TOKO"

            biayabbn.Text = 25000

            harga.Text = 300

        ElseIf k = "RUM" Then

            tipe_pelanggan.Text = "RUMAH"

            biayabbn.Text = 15000

            harga.Text = 100

        ElseIf k = "SWA" Then

            tipe_pelanggan.Text = "SWALYAN"

            biayabbn.Text = 10000

            harga.Text = 200

        ElseIf k = "PAB" Then

            tipe_pelanggan.Text = "PABRIK"

            biayabbn.Text = 25000

            harga.Text = 500

        End If

        k = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 4, 1)

        If k = "-" Then

        End If

        k = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)

        If k = "MED" Then

            daerah.Text = "MEDAN"

        ElseIf k = "BEL" Then

            daerah.Text = "BELAWAN"

        ElseIf k = "TEM" Then

            daerah.Text = "AKSARA"

        ElseIf k = "BIN" Then

            daerah.Text = "BINJAI"

        ElseIf k = "PAK" Then

            daerah.Text = "LUBUK-PAKAM"

        End If

        k = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 8, 1)

        If k = "-" Then

        End If

        no_urutan.Text = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 9, 4)

        totaltagihan.Text = Val(biayabbn.Text) + Val(harga.Text) * pemakaian.Text

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

    End Sub

End Class

Hasil Gambar

Thanks......