Latihan_10_46110009

Latihan_10_46110009

 

 A.     Form Latihan_10  terdapat dua object yaitu Label dan Textbox:

            ==>Object Label

Terdapat  sembilan  label (yang bertuliskan; Nama Perusahaan, Nama Pegawai, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5, PKP,  PPH)

           ==>Object Text Box

Terdapat sebelas  textbox (enam status input dan lima status read only). Status input digunakan untuk memasukkan data Nama Perusahaan, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5. Status Read Only digunakan untuk menampilkan hasil perhitungan PPh  (Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5) dari data PKP (Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5).

B.     Even

       ULHY()

           PKP146110009_TextChanged  

        PKP246110009_TextChanged

        PKP346110009_TextChanged  

        PKP446110009_TextChanged 

        PKP546110009_TextChanged

      

C.     Property

Property TextBox ==> ReadOnly=True

Rumus 

 Public Class Latihan_10_46110009
    Private Sub ULHY(ByVal pkp As TextBox, ByVal pph As TextBox)
        If Val(pkp.Text) <= 50000000 Then
            pph.Text = Val(pkp.Text) * 5 / 100
        ElseIf Val(pkp.Text) <= 250000000 Then
            pph.Text = (Val(pkp.Text) - 50000000 * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(pkp.Text) <= 500000000 Then
            pph.Text = (Val(pkp.Text) - 50000000 * (25 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(pkp.Text) >= 500000000 Then
            pph.Text = (Val(pkp.Text) - 50000000 * (30 / 100)) + (50000000 * (5 / 100))
        Else : pkp.Text = ""

        End If
    End Sub

    Private Sub PKP146110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP146110009.TextChanged
        ULHY(PKP146110009, PPH146110009)

    End Sub

    Private Sub PKP246110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP246110009.TextChanged
        ULHY(PKP246110009, PPH246110009)
    End Sub

    Private Sub PKP346110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP346110009.TextChanged
        ULHY(PKP346110009, PPH346110009)
    End Sub

    Private Sub PKP446110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP446110009.TextChanged
        ULHY(PKP446110009, PPH446110009)
    End Sub

    Private Sub PKP546110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP546110009.TextChanged
        ULHY(PKP546110009, PPH546110009)
    End Sub
End Class