Latihan_10_46110037

Deskripsi Form Latihan 10

Pada latihan 10 terdapat 2 Object yaitu Label dan  TextBox.

Object Label

Terdapat 9 Label yaitu Nama Perusahaan; Nama Pegawai; Pegawai 1; Pegawai 2; Pegawai 3; Pegawai 4; Pegawai 5; PKP dan PPh..

Object TextBox

Terdapat  11 Textbox, 6 textbox berstatus input (Nama Perusahaan; PKP Pegawai 1; PKP Pegawai 2; PKP Pegawai 3; PKP Pegawai 4 dan PKP Pegawai 5), dan 5 textbox berstatus ReadOnly (PPh Pegawai 1; PPh Pegawai 2; PPh Pegawai 3; PPh Pegawai 4 dan PPh Pegawai 5)

Script Unique

Tidak ada scrip unique dalam form ini karena caranya  hampir sama dengan form Latihan 09

Yaitu menggunakan prosedure yang dilengkapi parameter. Yang berbeda hanya evennya. Yaitu ketika kita menginput data PKP maka secara otomatis Pajak atas penghasilan akan muncul pada textbox PPh. Jadi kita menggunakan script Prosedur dengan parameter untuk masing-masing textbox PKP Pegawai

Even

TextChanged

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     Masukkan Data Nama Perusahaan; PKP Pegawai 1; PKP Pegawai 2; PKP Pegawai 3; PKP Pegawai 4 dan PKP Pegawai 5, maka secara otomatis akan muncul jumlah Pajak atas penghasilan masing-masing pegawai.

Langkah-langkah Menyelesaikan Form 

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label  dan  Textbox.
• Ganti nama Textbox di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True  
• Click Kanan lalu pilih View Code kemudian buatlah Prosedure yang dilengkapi parameter,  serta Tarif Pajak Penghasian. Tarif pajak Penghasilan yaitu:

5% Jika penghasilan s/d  50 juta

15%Jika penghasilan 50 Juta s/d 250 Juta

25% Jika penghasilan 250 juta s/d 500 juta

35% jika penghasilan di atas 500 juta.

Jadi scriptnya adalah sebagai berikut:

Private Sub INNA(ByVal gaji As TextBox, ByVal pajak As TextBox)

        If Val(gaji.Text) <= 50000000 Then

            pajak.Text = Val(gaji.Text) * 5 / 100

        ElseIf Val(gaji.Text) <= 250000000 Then

            pajak.Text = ((Val(gaji.Text) - 50000000)) * (15 / 100) + (50000000 * (5 / 100))

        ElseIf Val(gaji.Text) <= 500000000 Then

            pajak.Text = ((Val(gaji.Text) - 250000000)) * (25 / 100) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

        ElseIf Val(gaji.Text) > 500000000 Then

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

        End If

-Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 1, kemudian ketik scriptnya:

Private Sub PKP1_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110037.TextChanged

        INNA(PKP1_46110037, PPh1_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 2, kemudian ketik scriptnya:

Private Sub PKP2_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_46110037.TextChanged

        INNA(PKP2_46110037, PPh2_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 3, kemudian ketik scriptnya:

Private Sub PKP3_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_46110037.TextChanged

        INNA(PKP3_46110037, PPh3_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 4, kemudian ketik scriptnya:

Private Sub PKP4_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_46110037.TextChanged

        INNA(PKP4_46110037, PPh4_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 5, kemudian ketik scriptnya:

Private Sub PKP5_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_46110037.TextChanged

        INNA(PKP5_46110037, PPh5_46110037)

    End Sub