Latihan_10_46110038

Deskripsi Form Latihan_10_46110038:

Form Latihan_10_46110038 terdapat dua object yaitu label dan textbox.

Object Label

Di Latihan_10_46110038 ada 9 Label yang berisi teks Nama Perusahaan, Nama Pegawai, PKP, PPh, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5.

Object Text Box

Di Latihan_10_46110038 ada 11 Textbox, 6 status input, 5 status read only. Status Read Only digunakan untuk menampilkan hasil  dari fungsi yang telah di kerjakan.

Script Unique

Private sub erma(ByVal gaji As TextBox, ByVal pajak As TextBox)digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Akan tetapi kali ini menggunakan prosedure yg dilengkapi dgn parameter. Gaji dan Pajak nama variabel yang bukan objeck dalam form.

Even

TextChanged

Property

Property TextBox =>ReadOnly=True

Cara Membuat Form Latihan_10_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_10_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_10_46110038

    Private Sub erma(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

    End Sub

    Private Sub pkp146110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp146110038.TextChanged

        erma(pkp146110038, pph146110038)

    End Sub

    Private Sub pkp246110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp246110038.TextChanged

        erma(pkp246110038, pph246110038)

    End Sub

    Private Sub pkp346110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp346110038.TextChanged

        erma(pkp346110038, pph346110038)

    End Sub

    Private Sub pkp446110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp446110038.TextChanged

        erma(pkp446110038, pph446110038)

    End Sub

    Private Sub pkp546110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp546110038.TextChanged

        erma(pkp546110038, pph546110038)

    End Sub

End Class

Langkah untuk menjalankan Latihan_10_46110038:

1.    Klik start debugging.

2.    Isi text box yang berstatus input.

3.  Hasil akan muncul secara otomatis di PPh setelah menginput beberapa nilai di PKP.