latihan_10_36110036

Deskripsi latihan_10_36110036

A.         Object label

          Terdapat Sembilan label (yang bertuliskan nama perusahaan, nama pegawai, PKP, PPH, pegawai1, pegawai2, pegawai3, pegawai4, pegawai5).

B.         Object textbox

      Terdapat 11 textbox (enam status input, lima status read only). Status input digunakan untuk memasukkan nama perusahaan dan nilai PKP.

    Sedangkan Status Read Only digunakan untuk menampilkan hasil PPh.

C.         Script unique

          Membuat call prosedur:

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

        If Val(pkp.Text) <= 50000000 Then

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

   Untuk textchanged:

Private Sub pkp1_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp1_36110036.TextChanged

        anna(pkp1_36110036, pph1_36110036)

D.       Even

      pkp1_36110036_TextChanged

E.        Property

Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_10_36110036

1.        Buka Ms. Visual Studio

           2.          Buka project yang telah dibuat, dan buka solution explorer

           3.          Klik  kanan nama project ==> add ==> new item

 

4.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add

5.          Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio

6.          Desaign form dengan menggunakan tools pada toolbox

7.          Buat text pada form dengan menggunakan label:

a.       nama perusahaan

b.      nama pegawai

c.       PKP

d.      PPH

e.      pegawai1

f.        pegawai2

g.       pegawai3

h.      pegawai4

i.         pegawai5

            8.          Buat kolom pada form dengan menggunakan textbox, sebanyak 11 kolom:

a.       Kolom 1 diberi nama nama_36110036

b.      Kolom 2 diberi nama pkp1_36110036

c.       Kolom 3 diberi nama pkp2_36110036

d.      Kolom 4 diberi nama pkp3_36110036

e.      Kolom 5 diberi nama pkp4_36110036

f.        Kolom 6 diberi nama pkp5_36110036

g.       Kolom 7 diberi nama pph1_36110036

h.      Kolom 8 diberi nama pph2_36110036

i.         Kolom 9 diberi nama pph3_36110036

j.        Kolom 10 diberi nama pph4_36110036

k.       Kolom 11 diberi nama pph5_36110036

9.     Setelah desaign selesai  dibuatlah rumusnya

10.    Berikut adalah rumus untuk menjalankan latihan_10_36110036

            Public Class latihan_10_36110036

    Private Sub anna(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_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp1_36110036.TextChanged

        anna(pkp1_36110036, pph1_36110036)

    End Sub

    Private Sub pkp2_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp2_36110036.TextChanged

        anna(pkp2_36110036, pph2_36110036)

    End Sub

    Private Sub pkp3_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp3_36110036.TextChanged

        anna(pkp3_36110036, pph3_36110036)

    End Sub

    Private Sub pkp4_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp4_36110036.TextChanged

        anna(pkp4_36110036, pph4_36110036)

    End Sub

    Private Sub pkp5_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp5_36110036.TextChanged

        anna(pkp5_36110036, pph5_36110036)

    End Sub

End Class

11.    setelah rumus selesai, program dijalankan dengan menggunakan start debugging

12.    setelah program jalan maka file disave.