Jawaban soal 3 (Parningotan Sinaga)

-          Listing Program

Public Class Form1

    Private Sub process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles process.Click

        If user.Text = "parningotan" And pasword.Text = "sinaga" Then

            FormKaryawan.Show()

            Me.Hide()

        Else

            MsgBox("Password Anda Salah...!!")

            user.Text = ""

            pasword.Text = ""

        End If

    End Sub

End Class

-          Hasil Form Login

 

-          Listing Program form karyawan

Public Class FormKaryawan

  

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged

        If nip.Text = "008" Then

            nama.Text = "parningotan"

        ElseIf nip.Text = "009" Then

            nama.Text = "sinaga"

        Else

            nama.Text = "rian"

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        If jabatan.Text = "Mandor" Then

            gapok.Text = "1750000"

            pajak.Text = (0.015 * Val(gapok.Text))

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

            pajak.Text = (0.015 * Val(gapok.Text))

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

            pajak.Text = (0.015 * Val(gapok.Text))

        Else

            jabatan.Text = "0"

        End If

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Menikah" Then

            tistri.Text = (0.09 * Val(gapok.Text))

        Else

            tistri.Text = "0"

            jmlanak.Text = "0"

            tanak.Text = "0"

        End If

    End Sub

    Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged

        If jmlanak.Text = "1" Then

            tanak.Text = (0.03 * Val(gapok.Text))

        ElseIf jmlanak.Text = "2" Then

            tanak.Text = (0.07 * Val(gapok.Text))

        Else

            tanak.Text = (0.07 * Val(gapok.Text))

        End If

    End Sub

    Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.SelectedIndexChanged

        If jam.Text = "1" Then