·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini 

 

·  Ketik nama form "Latihan_10_46110007" pada name kemudian click add 

·  Buat form seperti berikut 

  

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_10_46110007

    Private Sub fanty(ByVal A As TextBox, ByVal B As TextBox)

        If Val(A.Text) <= 50000000 Then

            B.Text = Val(A.Text) * 5 / 100

        ElseIf Val(A.Text) <= 250000000 Then

            B.Text = ((Val(A.Text) - 50000000) * (15 / 100)) + (50000000 * (5 / 100))

        ElseIf Val(A.Text) <= 500000000 Then

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

        ElseIf Val(A.Text) > 500000000 Then

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

        Else

        End If

    End Sub

    Private Sub PKP1_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110007.TextChanged

        fanty(PKP1_46110007, PPH1_46110007)

    End Sub

    Private Sub PKP2_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_46110007.TextChanged

        fanty(PKP2_46110007, PPH2_46110007)

    End Sub

    Private Sub PKP3_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_46110007.TextChanged

        fanty(PKP3_46110007, PPH3_46110007)

    End Sub

    Private Sub PKP4_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_46110007.TextChanged

        fanty(PKP4_46110007, PPH4_46110007)

    End Sub

    Private Sub PKP5_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_46110007.TextChanged

        fanty(PKP5_46110007, PPH5_46110007)

    End Sub

End Class

·  Untuk menjalankan form tekan F5 

B. Deskripsi Form Latihan 10

Pada form latihan 10 ada 2 object yang digunakan yaitu label dan textbox.

Object Label

Terdapat 9 label pada form latihan 10 (nama perusahaan, nama pegawai, PKP, PPh, Pegawai 1-5).

Object TextBox

Pada form ini ada 11 textbox yang digunakan (6 status input dan 5 status readonly). Status input digunakan untuk memasukkan data sedangkan readonly akan menampilkan hasil analisa berdasarkan perhitungan tarif PPh 21dengan data yang telah di input ke textbox berstatus input.

Script Unique
Membuat call prosedur dengan menggunakan tarif PPh 21:

Even

TextChanged.

Property

Property TextBox  => ReadOnly = True

Langkah-Langkah Menjalankan Form Latihan 10