Jawaban soal nomor 3 (heru purnomo)

 kasus PDAM

Public Class Form1

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        If nama.Text = "heru" And password.Text = "poernomo" Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("username or password yg anda masukkan salah...!!!")

            nama.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        End

    End Sub

End Class

 

Public Class Form2

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

        Form3.Show()

    End Sub

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

        End

    End Sub

End Class

 

Public Class Form3

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 3)

        If x = "pab" Then

            tipepelanggan.Text = "pabrik"

            hargaperkubik.Text = "500"

            pemakaian.Text = "250000"

        ElseIf x = "tok" Then

            tipepelanggan.Text = "toko"

            hargaperkubik.Text = "300"

            pemakaian.Text = "25000"

        ElseIf x = "rum" Then

            tipepelanggan.Text = "rumah"

            hargaperkubik.Text = "100"

            pemakaian.Text = "15000"

        ElseIf x = "swa" Then

            tipepelanggan.Text = "swalayan"

            hargaperkubik.Text = "200"

            pemakaian.Text = "10000"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If x = "med" Then

            daerah.Text = "medan"

        ElseIf x = "bel" Then

            daerah.Text = "belawan"

        ElseIf x = "tem" Then

            daerah.Text = "aksara"

        ElseIf x = "mar" Then

            daerah.Text = "marendal"

        ElseIf x = "bin" Then

            daerah.Text = "binjai"

        ElseIf x = "pak" Then

            daerah.Text = "lubuk pakam"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text

            totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text

            pajak.Text = totaltagihan.Text * 0.01

            totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kode.Text = ""

        nourut.Text = ""

        daerah.Text = ""

        tipepelanggan.Text = ""

        hargaperkubik.Text = ""

        pemakaian.Text = ""

        jumlahpemakaian.Text = ""

        perbulan.Text = ""

        totaltagihan.Text = ""

        pajak.Text = ""

        totalbayar.Text = ""

    End Sub

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

        End

    End Sub

End Class

 

 kasus PDAM

Public Class Form1

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        If nama.Text = "heru" And password.Text = "poernomo" Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("username or password yg anda masukkan salah...!!!")

            nama.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        End

    End Sub

End Class

 

Public Class Form2

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

        Form3.Show()

    End Sub

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

        End

    End Sub

End Class

 

Public Class Form3

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 3)

        If x = "pab" Then

            tipepelanggan.Text = "pabrik"

            hargaperkubik.Text = "500"

            pemakaian.Text = "250000"

        ElseIf x = "tok" Then

            tipepelanggan.Text = "toko"

            hargaperkubik.Text = "300"

            pemakaian.Text = "25000"

        ElseIf x = "rum" Then

            tipepelanggan.Text = "rumah"

            hargaperkubik.Text = "100"

            pemakaian.Text = "15000"

        ElseIf x = "swa" Then

            tipepelanggan.Text = "swalayan"

            hargaperkubik.Text = "200"

            pemakaian.Text = "10000"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If x = "med" Then

            daerah.Text = "medan"

        ElseIf x = "bel" Then

            daerah.Text = "belawan"

        ElseIf x = "tem" Then

            daerah.Text = "aksara"

        ElseIf x = "mar" Then

            daerah.Text = "marendal"

        ElseIf x = "bin" Then

            daerah.Text = "binjai"

        ElseIf x = "pak" Then

            daerah.Text = "lubuk pakam"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text

            totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text

            pajak.Text = totaltagihan.Text * 0.01

            totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kode.Text = ""

        nourut.Text = ""

        daerah.Text = ""

        tipepelanggan.Text = ""

        hargaperkubik.Text = ""

        pemakaian.Text = ""

        jumlahpemakaian.Text = ""

        perbulan.Text = ""

        totaltagihan.Text = ""

        pajak.Text = ""

        totalbayar.Text = ""

    End Sub

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

        End

    End Sub

End Class