Latihan 10

eskripsi Form

1. objek label
terdapat 9 label (bertuliskan nama perusahaan, nama pegawai, PKP, PPh, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5)

2. objek textbox
terdapat 11 textbox di dalam form ini. dimana 5 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan PPh yang dibayarkan pegawai berdasarkan PKP-nya yang di-input dari textbox yang berstatus input.

even :
TextChanged

property :
property textbox ==> ReadOnly = True


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. sama pada Latihan sebelumnya, masukkan dulu fungsi Private Sub pada form ini. contohny seperti di bawah ini

 Private Sub pajak(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 * 200000000) + (0.3 * (Val(pkp.Text) - 500000000))
        End If
End Sub

6. setelah itu anda tinggal memasukkan code pada tiap-tiap textbox input PKP. codenya sama dengan yang ada pada latihan 9 yag lalu.
7. jika selesai, anda tinggal menekan debug untuk menjalankan.