Latihan_10_46110006

1.      Deskripsi from

Object Label

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

                                                                                     

Object TexBox

Terdapat 11 textbox (6 status input, 5 berstatus read only. Status input digunakan untuk memasukkan nilai Sedangkan Status Read Only digunakan untuk menampilkan hasil pada fungsi yang telah di kerjakan.

Script Unique

Private Sub ABC().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut dan menggunakan

Event :

Textchanged

 2.     Cara Membuat From Latihan 10 :

       1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”.

               

          2. Setelah mengKlik “Add Windows From”,akan muncul tabel dibawah ini. Lalu    rename pada Name menjadi nama form anda misalnya “ Latihan_08_46110006”.

            

3.    Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.

         

          

                                   

                 4.   Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_10_46110006

    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 PKP1_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_46110006.TextChanged

        parameter(PKP1_46110006, PPH1_46110006)

    End Sub

    Private Sub PKP2_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP2_46110006.TextChanged

        parameter(PKP2_46110006, PPH2_46110006)

    End Sub

    Private Sub PKP3_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP3_46110006.TextChanged

        parameter(PKP3_46110006, PPH3_46110006)

    End Sub

    Private Sub PKP4_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP4_46110006.TextChanged

        parameter(PKP4_46110006, PPH4_46110006)

    End Sub

    Private Sub PKP5_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP5_46110006.TextChanged

        parameter(PKP5_46110006, PPH5_46110006)

    End Sub

End Class

3. Langkah untuk menjalankan from 10 :

1.    Klik start debugging.

2.    Isi text box yang berstatus input, sesuai dengan keinginan anda.

3.  Hasil akan muncul sendri setelah anda menginput textbox yang tersedia untuk di input.