Latihan_10_46110027

Deskripsi from

 Object Label

Pada form latihan 10 ini terdapat 9 label (Nama Perusahaan,Nama Pegawai, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5, PKP, dan PPh)

Object Textbox

Pada form ini terdapat 11 textbox(6status input, 5 berstatus read only). Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Script Unique

Terdapat Script unik pada form ini yaitu Private Sub p1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110027.TextChanged

        pph(p1_46110027, pp1_46110027)script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Urutan text box nya harus sama dengan urutan yang ada di prosedure.

Even

TextChanged

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 10

1.  Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

                                                                                                                                                                        

2.  Ketik nama latihan_10  yang akan dibuat pada kotak “NAME” lalu pilih “add”

3.  Buatlah desain seperti berikut menggunakan toolbox

4.  Pilih menu “view” klik  “code”

                                                                                                                                                                                         

5.  Masukkan rumus berikut:

Public Class Latihan_10_46110027

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

        If Val(pkp.Text) >= 500000000 Then

            pph.Text = Val(0.5 * 50000000) + Val(0.15 * 200000000) + Val(0.25 * 250000000) + Val(0.3 * (Val(pkp.Text) - 500000000))

        ElseIf Val(pkp.Text) >= 250000000 Then

            pph.Text = Val(0.5 * 50000000) + Val(0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))

        ElseIf Val(pkp.Text) >= 50000000 Then

            pph.Text = Val(0.5 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))

        ElseIf Val(pkp.Text) >= 0 Then

            pph.Text = 0.05 * Val(pkp.Text)

        End If

    End Sub

    Private Sub p1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110027.TextChanged

        pph(p1_46110027, pp1_46110027)

    End Sub

    Private Sub p2__46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p2_46110027.TextChanged

        pph(p2_46110027, pp2_46110027)

    End Sub

    Private Sub p3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p3_46110027.TextChanged

        pph(p3_46110027, pp3_46110027)

    End Sub

    Private Sub p4_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p4_46110027.TextChanged

        pph(p4_46110027, pp4_46110027)

    End Sub

    Private Sub p5_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p5_46110027.TextChanged

        pph(p5_46110027, pp5_46110027)

    End Sub

End Class

Langkah – Langkah Menjalankan Form 10

    1.    Klik start debugging.

2.    Isi text box yang berstatus input

3.     Secara otomatis hasil akan muncul pada textbox yang berstatus read only.