LATIHAN_10_36110042

Deskripsi Latihan_10_36110042

A.   Object-object dalam Latihan_10_36110042 :

1.   Object Label

Terdapat sembilan label yang bertuliskan:

a.    nama perusahaan

b.    nama pegawai

c.     PKP

d.    PPh

e.    pegawai 1

f.     pegawai 2

g.     pegawai 3

h.     pegawai 4

i.     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 PPh dari setiap pegawai berdasarkan nilai PKP yang dimasukkan tadi.

3.   Object Button

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

B.   Script Unique

Untuk button Close

Close_36110042_Click

C.   Even

Close_36110042_Click

PKP1_36110042_TextChanged

RARA(ByVal A As TextBox, ByVal B As TextBox)

D.   Property

Property TextBox è ReadOnly = True

Langkah-Langkah Latihan_10_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_10_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_10_36110042

    Private Sub RARA(ByVal A As TextBox, ByVal B As TextBox)

        If Val(A.Text) <= 50000000 Then

            B.Text = Val(A.Text) * 5 / 100

        ElseIf Val(A.Text) <= 250000000 Or Val(A.Text) > 50000000 Then

            B.Text = (Val(A.Text) - 50000000) * (15 / 100) + (50000000 * (5 / 100))

        ElseIf Val(A.Text) <= 500000000 Or Val(A.Text) > 250000000 Then

            B.Text = (Val(A.Text) - 250000000) * (25 / 100) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

        ElseIf Val(A.Text) >= 500000000 Then

            B.Text = (Val(A.Text) - 500000000) * (30 / 100) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))

        End If

    End Sub

    Private Sub PKP1_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110042.TextChanged

        RARA(PKP1_36110042, PPH1_36110042)

    End Sub

    Private Sub PKP2_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110042.TextChanged

        RARA(PKP2_36110042, PPH2_36110042)

    End Sub

    Private Sub PKP3_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36110042.TextChanged

        RARA(PKP3_36110042, PPH3_36110042)

    End Sub

    Private Sub PKP4_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36110042.TextChanged

        RARA(PKP4_36110042, PPH4_36110042)

    End Sub

    Private Sub PKP5_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36110042.TextChanged

        RARA(PKP5_36110042, PPH5_36110042)

    End Sub

    Private Sub Close_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110042.Click

        NAMA_36110042.Text = "'"

        PKP1_36110042.Text = ""

        PKP2_36110042.Text = ""

        PKP3_36110042.Text = ""

        PKP4_36110042.Text = ""

        PKP5_36110042.Text = ""

        PPH1_36110042.Text = ""

        PPH2_36110042.Text = ""

        PPH3_36110042.Text = ""

        PPH4_36110042.Text = ""

        PPH5_36110042.Text = ""

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 10.