Deskripsi dan Prosedur Latihan_10_36110039

    Deskripsi Form Latihan_10_36110039

Terdapat dua object yaitu label dan textbox:

1.    Object Label
Terdapat sembilan object label yang bertuliskan nama perusahaan, nama pegawai, PKP, PPh, pegawai 1, pegawai 2, pegawai 3, pegawai 4, pegawai 5.

2.    Object TextBox
Terdapat sebelas textbox (enam status input; lima status read only). Status input digunakan untuk memasukkan nama perusahaan dan nilai PKP dari kelima pegawai. Status Read Only digunakan untuk menampilkan nilai PPh dari setiap pegawai.


     Script Unique
Pada saat textchanged
hilda(PKP1_36110039, PPH1_36110039)

     Even
PKP1_36110039_TextChanged
hilda(ByVal PKP As TextBox, ByVal PPh As TextBox)

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_10_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
          

2.    Klik menu file dan pilih New Project.
       

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
        

4.    Klik menu view dan pilih toolbox.
        

5.    Kemudian pilih object Label dan buat sebanyak sembilan. Pada properti text masing-masing label, isilah kalimat berikut: nama perusahaan, nama pegawai, PKP, PPh, pegawai 1, pegawai 2, pegawai 3, pegawai 4, pegawai 5.
   
6.    Kemudian pilih object textbox dan buat sebanyak 11.

7.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
        


8.    Berikut ini adalah rumus untuk menjalankan form di atas:

Private Sub hilda(ByVal PKP As TextBox, ByVal PPh As TextBox)
        If PKP.Text <= 50000000 Then
            PPh.Text = (PKP.Text * (5 / 100))
        ElseIf PKP.Text >= 50000000 And PKP.Text <= 250000000 Then
            PPh.Text = (50000000 * (5 / 100)) + ((PKP.Text - 50000000) * (15 / 100))
        ElseIf PKP.Text >= 250000000 And PKP.Text <= 500000000 Then
            PPh.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + ((PKP.Text - 250000000) * (25 / 100))
        ElseIf PKP.Text >= 50000000 Then
            PPh.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + (250000000 * (25 / 100)) + ((PKP.Text - 500000000) * (30 / 100))
        End If
    End Sub


    Private Sub PKP1_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110039.TextChanged
        hilda(PKP1_36110039, PPH1_36110039)
    End Sub

    Private Sub PKP2_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110039.TextChanged
        hilda(PKP2_36110039, PPH2_36110039)
    End Sub

    Private Sub PKP3_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36110039.TextChanged
        hilda(PKP3_36110039, PPH3_36110039)
    End Sub

    Private Sub PKP4_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36110039.TextChanged
        hilda(PKP4_36110039, PPH4_36110039)
    End Sub

    Private Sub PKP5_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36110039.TextChanged
        hilda(PKP5_36110039, PPH5_36110039)
 End Sub

9.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging.