latihan_10_46110004

Deskripsi form latihan 10
Form Latihan 10 Terdapat dua object yaitu 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, 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_46110004
    Private Sub pajak(ByVal pkp As TextBox, ByVal pph As TextBox)
        If Val(pkp.Text) <= 50000000 Then
            pph.Text = 0.05 * Val(pkp.Text)
        ElseIf 50000000 < Val(pkp.Text) <= 250000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))
        ElseIf 250000000 < Val(pkp.Text) >= 500000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))
        ElseIf Val(pkp.Text) >= 500000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * 200000000) + (0.25 * 200000000) + (0.3 * (Val(pkp.Text) - 500000000))
        End If
    End Sub


    Private Sub pkp1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pkp1_46110004.TextChanged
        pajak(pkp1_46110004, pph1_46110004)
    End Sub

    Private Sub pkp2_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pkp2_46110004.TextChanged
        pajak(pkp2_46110004, pph2_46110004)
    End Sub

    Private Sub pkp3_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pkp3_46110004.TextChanged
        pajak(pkp3_46110004, pph3_46110004)
    End Sub

    Private Sub pkp4_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pkp4_46110004.TextChanged
        pajak(pkp4_46110004, pph4_46110004)
    End Sub

    Private Sub pkp5_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pkp5_46110004.TextChanged
        pajak(pkp5_46110004, pph5_46110004)
    End Sub
End Class

3.Untuk menjalankan script di atas klik kanan pada nama project  anda lalu klik properties, setelah itu pilih form latihan 10 pada startup form. kemudian klik tombol play. Setelah itu masukkan nama perusahaan anda dan masukkan penghasilan kena pajak(pkp) untuk pegawai 1,2,3,4,dan 5 maka secara otomatis program akan menghitung pajak yang harus dibayar oleh tiap-tiap pegawai