Latihan_10_46110002

Object Label

Terdapat 9 label (yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, Pph, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5).

Object Textbox

Terdapat 11 textbox (6 status input; 5 status read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil dari fungsi yang telah dikerjakan. Akan menghasilkan nilai pada textbox read only (PPh 21)

Script Unique

parameter(PK1_46110002, PP1_46110002),,,digunakan sebagai data dari fungsi prosedur yang telah dibuat. Urutan text box nya harus sama dengan urutan yang ada pada prosedur. (Private Sub PK1_46110002_TextChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK1_46110002.TextChanged)

Even

TextChanged

Property

Property TextBox ==> ReadOnly=True

2. Cara membuat From

a.       Klik Start lalu pilih Microsoft Visual Studio 2008

b.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

c.       Lalu pilih Project dan pilih add windows from

d.      Kemudian buat form dan add

e.       Buat desain seperti dibawah ini dgn menggunakan toolbox

f.       Berikut ini adalah rumus untuk menjalankan form di atas

 Public Class Latihan_10_46110002

    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 PK1_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK1_46110002.TextChanged
        parameter(PK1_46110002, PP1_46110002)
    End Sub

    Private Sub PK2_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK2_46110002.TextChanged
        parameter(PK2_46110002, PP2_46110002)
    End Sub

    Private Sub PK3_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK3_46110002.TextChanged
        parameter(PK3_46110002, PP3_46110002)
    End Sub

    Private Sub PK4_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK4_46110002.TextChanged
        parameter(PK4_46110002, PP4_46110002)
    End Sub

    Private Sub PK5_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK5_46110002.TextChanged
        parameter(PK5_46110002, PP5_46110002)
    End Sub
End Class

Langkah untuk menjalankan from

1.      Klik start debugging

2.      Isi text box yang berstatus input sesuai dengan angka dan data yang dipilih

                        3.    Klik tombol analisa maka hasil akan muncul