Latihan_10_46110020

Form Pada Latihan 10

Deskripsi Form Latihan 10

Form latihan 10 terdapat dua object yaitu Label, dan TextBox.

Object Label :

Dalam form ini terdapat 9 item  Label yang bertuliskan (Nama Perusahaan, Nama Pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5).

Object Textbox :

Dalam form ini  terdapat 11 item Textbox yang digunakan ini merupakan status input. Status input ini digunakan untuk menginput  data/nilai.

Cara Untuk Membuat Form Latihan 10 : 

1.     Pertama Bukalah Project yang telah anda buat sebelumnya.

2.     Pilih dan  Buka Project dalam visual basic.

3.     Kemudian pilih Add Windows form

4.       Lalu add new item dan rename file “form.vb menjadi Latihan_10_46110020”

 

5.     Setelah namenya di rename pilih add lalu muncullah form seperti ini :

 

6.     Kemudian mulailah membuat form 10 dengan menggunakan Label, dan TextBox.

 

7.     Lalu buatlah sesuai contoh latihan 10 dengan menggunkan Label sebanyak 9, TextBox sebanyak 11 maka akan menjadi seperti ini :

 

-          Cokelat = Label

-          Biru      = TextBox

8.     Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_10_46110020

    Private Sub pegawai(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_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110020.TextChanged

        pegawai(PKP1_46110020, PPh1_46110020)

    End Sub

    Private Sub PKP2_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_46110020.TextChanged

        pegawai(PKP2_46110020, PPh2_46110020)

    End Sub

    Private Sub PKP3_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_46110020.TextChanged

        pegawai(PKP3_46110020, PPh3_46110020)

    End Sub

    Private Sub PKP4_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_46110020.TextChanged

        pegawai(PKP4_46110020, PPh4_46110020)

    End Sub

    Private Sub PKP5_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_46110020.TextChanged

        pegawai(PKP5_46110020, PPh5_46110020)

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 10:

1.    Pertama, Klik start debugging.

2.   Isi textbox yang berstatus input yaitu PKP.

3.   Apabila anda mengisi PKP maka secara otomatis textbox PPH akan terisi sendiri sesuai dengan rumus/fungsi yang telah di input.  

Script unik

            Script unik yang terdapat pada latihan 10 yaitu  Membuat call prosedur dengan menggunakan tarif PPh 21 adalah :

- 5% = 50 juta

- 15% = 50 juta - 250 juta

- 25% = 250 juta - 500 juta

- 30% = 500 juta ke atas

    Private Sub pegawai(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))

     Dan untuk menjalakan call prosedur yang telah dibuat, urutan text box nya harus sama dengan urutan yang ada di procedure :

                Private Sub PKP1_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110020.TextChanged

        pegawai(PKP1_46110020, PPh1_46110020)

    End Sub

Even

Textchanged