Latihan_10_46110043

Deskripsi Form

 Pada form Latihan_10  ini kita dapat menemukan dua object, yaitu:

Object Label dan Object TextBox

1. Object Label

    Pada form terdapat 9 buah label yang masing-masing bertuliskanà Nama Perusahaan, Nama Pegawai, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5, PKP, dan PPh.

2. Object Textbox

    Pada form terdapat 11 buah textbox, 6 merupakan status input dan 5 diantara ber status ReadOnly. Status input pada form ini digunakan untuk menginput nama perusahaan dan PKP masing-masing pegawai. Status ReadOnly untuk menampilkan hasil perhitungan PPh dari PKP pegawai. Rumus perhitungannya:

PKP <= 50000000 Then PPh = PKP * 5 / 100

PKP <= 250000000 Then PPh = ((PKP - 50000000) * (15 / 100)) + (50000000 * (5 / 100))

PKP <= 500000000 Then PPh = ((PKP - 250000000) * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

PKP > 500000000 Then PPh = ((PKP - 500000000) * (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

Langkah-langkah menjalankan Form:

1. Masukkan nama perusahaan dan penghasilan (PKP) pegawai 1 sampai pegawai 5.

2. Setelah menginput, secara otomatis akan ditampilkan PPh pegawai berdasarkan rumus tarif PPh 21 berlaku yang diketik pada script.

Langkah-langkah Penyelesaian :

1. Pada Solution Explorer, klik kanan Kumpulan Latihan, pilih Add, New Item.

2. Pilih Windows Form, lalu ubah nama form menjadi Latihan_10_46110043 tanpa mengubah ekstension file (vb)

3. Gunakan toolbox untuk membuat Label dan Textbox, kemudian buat object sesuai dengan deskripsi form diatas.

4. Ubah object name menjadi singkatan yang anda inginkan dan disertai Nim pada akhir nama.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai. Pada Latihan 10 scriptnya seperti dibawah ini:

Public Class Latihan_10_46110043

    Private Sub PAJAK(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) - 250000000) * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

        ElseIf Val(PKP.Text) > 500000000 Then

            PPH.Text = ((Val(PKP.Text) - 500000000) * (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

        End If

    End Sub

    Private Sub PKP1_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110043.TextChanged

        PAJAK(PKP1_46110043, PPH1_46110043)

    End Sub

    Private Sub PKP2_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_46110043.TextChanged

        PAJAK(PKP2_46110043, PPH2_46110043)

    End Sub

    Private Sub PKP3_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_46110043.TextChanged

        PAJAK(PKP3_46110043, PPH3_46110043)

    End Sub

    Private Sub PKP4_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_46110043.TextChanged

        PAJAK(PKP4_46110043, PPH4_46110043)

    End Sub

    Private Sub PKP5_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_46110043.TextChanged

        PAJAK(PKP5_46110043, PPH5_46110043)

    End Sub

End Class

Script Unique

   Private Sub PKP1_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110043.TextChanged

        PAJAK(PKP1_46110043, PPH1_46110043)

    End Sub

End Sub--> script tersebut merupakan data yang digunakan untuk menjalankan rumus perhitungan PPh yang telah dibuat sebelumnya pada fungsi prosedur.

Even

TextChanged

Property

Property TextBox --> ReadOnly = True