Deskripsi Latihan_10_36110038
Form Latihan_10 terdapat dua object
yaitu Label dan Textbox:
Object Label
Terdapat Sembilan label (yang
bertuliskan Nama Perusahaan; Nama Pegawai; PKP; PPh; Pegawai1; Pegawai2;
Pegawai3; Pegawai4 dan Pegawai5)
Object Text Box
Terdapat sebelas textbox (enam
status input; lima status ReadOnly). Status input digunakan untuk memasukkan
nilai/text dari Nama Perusahaan; Nama Pegawai; PKP Pegawai1; PKP Pegawai2; PKP
Pegawai3; PKP Pegawai4 dan PKP Pegawai5. Status Read Only digunakan untuk
menampilkan hasil perhitungan PPh dari masing-masing pegawai. Dengan
menggunakan rumus perhitungan PPh pasal17. Rumus perhitungannya adalah:
|
PKP
|
Tarif
|
|
Dibawah Rp50.000.000,00
|
5%
|
|
Antara Rp50.000.000,00 sampai
dengan Rp250.000.000,00
|
15%
|
|
Antara Rp250.000.000,00 sampai
dengan Rp50.000.000,00
|
25%
|
|
Diatas Rp500.000.000,00
|
30%
|
Property
Property
TextBox ==> ReadOnly=True
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama
Latihan_10_36110038 sesuai form dibawah ini.
4. Ganti
nama textbox dan button menggunakan "Properties Window" sesuai dengan
yang diinginkan.
5.
Klik 2x pada kotak design untuk
membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk
menyelesaikan Latihan_10
Public Class Latihan_10_36110038
Private Sub widhe(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 - 50000000) * (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 >= 50000000 Then
PPH.Text = (50000000 * (5 / 100)) +
(200000000 * (15 / 100)) + (250000000 * (25 / 100)) + ((PKP.Text - 500000000) *
(30 / 100))
End If
End Sub
Private Sub PKP1_36110038_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP1_36110038.TextChanged
widhe(PKP1_36110038, PPH1_36110038)
End Sub
Private Sub PKP2_36110038_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP2_36110038.TextChanged
widhe(PKP2_36110038, PPH2_36110038)
End Sub
Private Sub PKP3_36110038_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP3_36110038.TextChanged
widhe(PKP3_36110038, PPH3_36110038)
End Sub
Private Sub PKP4_36110038_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PKP4_36110038.TextChanged
widhe(PKP4_36110038, PPH4_36110038)
End Sub
Private Sub PKP5_36110038_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP5_36110038.TextChanged
widhe(PKP5_36110038, PPH5_36110038)
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar