LATIHAN 10

DESKRIPSI LATIHAN 10

Form Latihan 10 terdapat tiga object yaitu Label, Textbox,dan Button:

Object Label

Terdapat sembilan object Label (yang bernama Nama Perusahaan, Nama Pegawai, PKP,PPh,Pegawai 1,Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5)

Object Textbox

Terdapat sebelas object textbox (enam status input; lima status read only). Status input digunakan untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil perhitungan dari data-data  yang telah diinput.

RUMUS PERHITUNGAN :

BERDASARKAN TARIF PAJAK PPH PASAL 21 BERLAKU MULAI 2009 YAITU :

·         Rp 0 – Rp.50.000.000 tarif 5 %

·         Rp 50.000.000 – Rp 250.000.000 tarif 15%

·         Rp 250.000.000 – Rp 500.000.000 tarif 25%

·         Diatas Rp 500.000.000 tarif 30%

Object Button

Terdapat satu object button yaitu “Close”

Object button ini digunakan untuk mengosongkan kembali object TextBox.

Script Unique

If Val(pkp.Text) <= 50000000 Then

            pph.Text = (Val(pkp.Text) * 5 / 100)

        ElseIf Val(pkp.Text) <= 250000000 Then ...

Even

PKP1_36110043.TextChanged

Property

Property TextBox ==> ReadOnly=True

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

3.       pilih Windows Form, lalu isi Name dengan Nama Latihan 10 dan click add.

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.      Masukkkan Scrip di bawah ini.

SCRIPT LATIHAN 10

Public Class latihan_10_36110043

    Private Sub ady(ByVal pkp As TextBox, ByVal pph As TextBox)

        If Val(pkp.Text) <= 50000000 Then

            pph.Text = (Val(pkp.Text) * 5 / 100)

        ElseIf Val(pkp.Text) <= 250000000 Then

            pph.Text = (50000000 * 5 / 100) + ((Val(pkp.Text) - 50000000) * 15 / 100)

        ElseIf Val(pkp.Text) <= 500000000 Then

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

        Else : pph.Text = (Val(pkp.Text) * 30 / 100)

        End If

    End Sub

   

 

    Private Sub PKP1_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110043.TextChanged

        ady(PKP1_36110043, PPH1_36110043)

    End Sub

    Private Sub PKP2_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110043.TextChanged

        ady(PKP2_36110043, PPH2_36110043)

    End Sub

    Private Sub PKP3_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36110043.TextChanged

        ady(PKP3_36110043, PPH3_36110043)

    End Sub

    Private Sub PKP4_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36110043.TextChanged

        ady(PKP4_36110043, PPH4_36110043)

    End Sub

    Private Sub PKP5_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36110043.TextChanged

        ady(PKP5_36110043, PPH5_36110043)

    End Sub

    Private Sub latihan_10_36110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

TERAKHIR,,,SAVE 



DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING
 


SELAMAT MENCOBA....