Tugas VB (Tagihan PDAM)

Lihat Soal terlebih dahulu, klik Tagihan PDAM

LISTING PROGRAM

Public Class Form1

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If username.Text = "bery pomber" And id.Text = "marpaung" Then
            menu_utama.show()
            Me.Hide()
        Else
            MsgBox("data nama/password salah?")
            username.Text = ""
            id.Text = ""
        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



Public Class tagihanPDAM
  Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        Dim b As String
        b = Microsoft.VisualBasic.Left(kd_plggn.Text, 3)
        If b = "tok" Then
            type.Text = "TOKO"
            biaya.Text = 25000
            harga.Text = 300
       ElseIf b = "rum" Then
            type.Text = "RUMAH"
            biaya.Text = 15000
            harga.Text = 100
        ElseIf b = "swa" Then
            type.Text = "SWALYAN"
            biaya.Text = 10000
            harga.Text = 200
        ElseIf b = "pab" Then
            type.Text = "PABRIK"
            biaya.Text = 25000
            harga.Text = 500
        End If

        b = Microsoft.VisualBasic.Mid(kd_plggn.Text, 4, 1)
        If b = "-" Then
        End If
        b = Microsoft.VisualBasic.Mid(kd_plggn.Text, 5, 3)
        If b = "med" Then
            daerah_plggn.Text = "MEDAN"
        ElseIf b = "bel" Then
            daerah_plggn.Text = "BELAWAN"
        ElseIf b = "tem" Then
            daerah_plggn.Text = "AKSARA"
        ElseIf b = "bin" Then
            daerah_plggn.Text = "BINJAI"
        ElseIf b = "pak" Then
            daerah_plggn.Text = "LUBUK-PAKAM"
        End If
        b = Microsoft.VisualBasic.Mid(kd_plggn.Text, 8, 1)
        If b = "-" Then
        End If
  no_urut.Text = Microsoft.VisualBasic.Mid(kd_plggn.Text, 9, 4)
       tot_tagihan.Text = Val(biaya.Text) + Val(harga.Text) * pemakaian.Text
        pajak.Text = (1 / 100) * Val(tot_tagihan.Text)
    End Sub

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

HASIL PROGRAM