Deskripsi Penyelesaian Latihan_10_36110041

Deskripsi Penyelesaian

Latihan_10_36110041

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

RIZKA()

KPK1_36110041_TextChanged

KPK2_36110041_TextChanged

KPK3_36110041_TextChanged

KPK4_36110041_TextChanged

KPK5_36110041_TextChanged

C.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

         4.    Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_10_36110041

    Private Sub RIZKA(ByVal PKP As TextBox, ByVal PPh As TextBox)

        If PKP.Text <= 50000000 Then

            PPh.Text = (PKP.Text * (5 / 100))

        ElseIf PKP.Text >= 50000000 And PKP.Text <= 250000000 Then

            PPh.Text = (50000000 * (5 / 100)) + ((PKP.Text - 2000000000) * (15 / 100))

        ElseIf PKP.Text >= 250000000 And PKP.Text <= 500000000 Then

            PPh.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + ((PKP.Text - 250000000) * (25 / 100))

        ElseIf PKP.Text > 500000000 Then

            PPh.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + (250000000 * (25 / 100)) + ((PKP.Text - 500000000) * (35 / 100))

        End If

    End Sub

    Private Sub KPK1_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110041.TextChanged

        RIZKA(PKP1_36110041, PPH1_36110041)

    End Sub

    Private Sub PKP2_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110041.TextChanged

        RIZKA(PKP2_36110041, PPH2_36110041)

    End Sub

    Private Sub PKP3_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36110041.TextChanged

        RIZKA(PKP3_36110041, PPH3_36110041)

    End Sub

    Private Sub PKP4_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36110041.TextChanged

        RIZKA(PKP4_36110041, PPH4_36110041)

    End Sub

    Private Sub PKP5_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36110041.TextChanged

        RIZKA(PKP5_36110041, PPH5_36110041)

    End Sub

End Class