latihan_10_46110023

pada form latihan 09 ini terdapat dua object yaitu object label dan textbox

Object Label :
Dalam form latihan ini terdapat 6 buah label. Label-label tersebut bertuliskan nama perusahaan, pegawai 1, pegawai 2, pegawai 3, pegawai 4, dan pegawai 5.

Object Textbox:
Selain Object Label, dalam form ini terdapat 12 buah textbox ( 7 status input dan 5 status read only ) status input digunakan untuk memasukkan nama perusahaan,  pegawai 1, pegawai 2, pegawai 3, pegawai 4, dan pegawai 5.Sedangkan status read only digunakan untuk menampilkan hasil perhitungan PPh 21 yang harus diabayar oleh pegawai 1, pegawai 2, pegawai 3, pegawai 4 dan pegawai 5.


Script Unique :

Dalam form ini tidak terdapat script unik karena script yang digunakan sama dengan script-script yang ada pada latihan sebelumnya

Even :

TextChanged

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah penyelesaian form latihan 10:

1. Buat design seperti gambar di bawah ini:

 2.Textbox yang berwarna putih menunjukkan textbox tresebut berstatus input sedangkan yang berwarna gelap itu berstatus read only. Beri nama setiap object yang ada kecuali object label. Setelah itu buat script sbb:

Public Class LATIHAN_10_46110023
    Private Sub DIAN(ByVal PKP As TextBox, ByVal PPh As TextBox)
        If PKP.Text >= 500000000 Then
            PPh.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * 250000000) + (0.3 * (Val(PKP.Text) - 500000000))
        ElseIf PKP.Text >= 250000000 Then
            PPh.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * (Val(PKP.Text) - 250000000))
        ElseIf PKP.Text >= 50000000 Then
            PPh.Text = (0.5 * 50000000) + (0.15 * (Val(PKP.Text) - 50000000))
        ElseIf PKP.Text >= 0 Then
            PPh.Text = 0.05 * Val(PKP.Text)
        End If
    End Sub

    Private Sub PK1_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK1_46110023.TextChanged
        DIAN(PK1_46110023, PH1_46110023)
    End Sub

    Private Sub PK2_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK2_46110023.TextChanged
        DIAN(PK2_46110023, PH2_46110023)
    End Sub

    Private Sub PK3_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK3_46110023.TextChanged
        DIAN(PK3_46110023, PH3_46110023)
    End Sub

    Private Sub PK4_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK4_46110023.TextChanged
        DIAN(PK4_46110023, PH4_46110023)
    End Sub

    Private Sub PK5_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK5_46110023.TextChanged
        DIAN(PK5_46110023, PH5_46110023)
    End Sub
End Class

3. untuk menjalankan form ini, input data berupa penghasilan kena pajak (PKP) pada kolom textbox berstatus input, dan secara otomatis program akan menghitung pajak yang harus dibayar oleh tiap pegawai.