Latihan_10_46110024

DESKRIPSI FORM LATIHAN 10

Form latihan 10 terdapat dua object yaitu label dan textbox 

Object Label

Terdapat  Sembilan  label ( yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, PPh, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5)

Object  Textbox

Terdapat sebelas textbox (enam berstatus input digunakan untuk memasukkan data sedangkan lima berstatus readonly digunakan untuk ,menampilkan hasil perhitungan pajak dengan tariff sbb:

1.      5%       0 sampai 50 juta

2.      15%     50 juta sampai 250 juta

3.      25%     250 juta sampai 500 juta

Script  Unique

Script yang digunakan dalam form ini sama dengan scrift pada form  9

Even

TextChanged

Property

Property Textbox à Readonly = True

Langkah- Langkah Membuat Form Latihan 10

1.      Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2.    Ganti nama sesuai dengan nama latihan anda ingingkan

          3.   Lalu pilih object yang ada di latihan 10  yaitu label dan textbox

          4.   Buat form sampai menghasilkan form seperti di bawah ini

          5.   Pilih Menu view, click code 

 

 

          6.   Masukkan srift seperti berikut ini :

           Public Class Latihan_10_46110024

    Private Sub parameter(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 * 250000000) + (0.3 * (Val(pkp.Text) - 500000000))
        End If
    End Sub
    Private Sub pkp1_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp1_46110024.TextChanged
        parameter(pkp1_46110024, pph1_46110024)
    End Sub

    Private Sub pkp2_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp2_46110024.TextChanged
        parameter(pkp2_46110024, pph2_46110024)
    End Sub

    Private Sub pkp3_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp3_46110024.TextChanged
        parameter(pkp3_46110024, pph3_46110024)
    End Sub

    Private Sub pkp4_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp4_46110024.TextChanged
        parameter(pkp4_46110024, pph4_46110024)
    End Sub

    Private Sub pkp5_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp5_46110024.TextChanged
        parameter(pkp5_46110024, pph5_46110024)
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 10

1.      Input nama nama perusahaan  pada textbox input

2.      Input penghasilan kena pajak karyawan

3.      Setelah mengisih pkp karyawan maka akan menampilkan pajak penghasilannya