Latihan_10_46110001

A.    Object-object dalam Latihan_10_46110001 :  

  1  Object Label

pada form latihan 10 Terdapat sembilan label yang bertuliskan: nama perusahaan,nama pegawai,pegawai 1,pegawai2,pegawai3, pegawai 4, pegawai 5, PKP, dan PPH.

  2. Object Textbox

selain itu object texbox pada form ini Terdapat SEBELAS textbox, diantaranya 6 yang berstatus input ; dan 5 yang  berstatus read only. texbox yang berstatus input digunakan Status input digunakan untuk memasukkan nama perusahaan dan nilai PKP dari kelima pegawai. Status Read Only digunakan untuk menampilkan PPh dari setiap pegawai berdasarkan nilai PKP yang dimasukkan tadi.

 3. Object Button

Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan/ menghapus kembali semua TextBox.

B.     Script Unique

  pph(pkp1_46110001, pph1_46110001)

     C.     Even

 pkp1_46110001.TextChanged
Button1.Click

     D.    Property

Property TextBox ==> ReadOnly=True 

LANGKAH-LANGKAH   PENYELESAIAN

1. Langkah pertama dalam membuat form/ latihan 09 ialah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini
2. Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini
3. Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan   
4. atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 
5. Buatlah form seperti gambar dibawah ini, dengan cara, pilih toolbox kemudian pada toolbox tersebut pilih dan buat label sebanyak 9 label,(kotak yang berwarna abu-abu adalah label) dan texbox sebanyak 11(kotak yang pinggirannya berwarna hijauadalah texbox). 5 diantaranya berstatus readonly, yaitu klom texbox dibawah label PPH  serta buat form button (button Close) untuk menampilkan hasil dari texbox input yang telah di isi
6.  Setelah itu buatlah rumus untuk menjalankan form tersebut. Sperti rumus dibawah ini.(rumus dibawah ini merupakan rumus untuk menjalankan form diatas)                                                                                                                                             Public Class Latihan_10_46110001
   
       Private Sub pph(ByVal pkp As TextBox, ByVal pph As TextBox)
           If pkp.Text >= 500000000 Then
               pph.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * 250000000) + (0.3 * (Val(pkp.Text) - 500000000))
           ElseIf pkp.Text >= 250000000 Then
               pph.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))
           ElseIf pkp.Text >= 50000000 Then
               pph.Text = (0.5 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))
           ElseIf pkp.Text >= 0 Then
               pph.Text = 0.05 * Val(pkp.Text)
           End If
   
       End Sub
   
       Private Sub pkp1_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp1_46110001.TextChanged
           pph(pkp1_46110001, pph1_46110001)
       End Sub
   
       Private Sub pkp2_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp2_46110001.TextChanged
           pph(pkp2_46110001, pph2_46110001)
       End Sub
   
       Private Sub pkp3_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp3_46110001.TextChanged
           pph(pkp3_46110001, pph3_46110001)
       End Sub
   
       Private Sub pkp4_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp4_46110001.TextChanged
           pph(pkp4_46110001, pph4_46110001)
       End Sub
   
       Private Sub pkp5_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp5_46110001.TextChanged
           pph(pkp5_46110001, pph5_46110001)
       End Sub                                                                                                                                     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           pkp2_46110001.Text = ""
           pkp3_46110001.Text = ""
           pkp4_46110001.Text = ""
           pkp5_46110001.Text = ""
   End Sub                                                                                                                                            End Class 
7. jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini
8. langkah selanjutnya adalah Isi text box yang berstatus input, sesuai dengan  yang anda inginkan,maka akan muncul hasil dari angka yang diketik pada texbox input.  
9.  Untuk menutup klik close.