Latihan_10_36110044 Aplikasi Komputer 4

Form Latihan_10 terdapat tiga object yaitu Label, Textbox,dan Button:

Object Label

Terdapat sembilan object Label (yang bernama Nama Perusahaan, Nama Pegawai, PKP,PPh,Pegawai 1,Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5)

Object Textbox

Terdapat sebelas object textbox (enam status input; lima status read only). Status input digunakan untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil perhitungan dari data-data  yang telah diinput.

Object Button

Terdapat satu object button yaitu “Close”

Object button ini digunakan untuk mengosongkan kembali object TextBox.

Script Unique

Untuk button “Close”

NP_36110044.Text = ""

PKP1_36110044.Text = ""

Even

PKP1_36110044_TextChanged

Close_36110044_Click

Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN:

1. Klik star lalu pilih Microsoft Visual Studio 2008

 

2. Pilih Project yang sebelumnya telah dibuat

3. Pada kotak “Solution Explorer klik kanan nama project => add => new item

4. Ubah nama pada lembar "Add New Item" kemudian add

 

 

5. Buat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”

 

6. Ganti nama Textbox dan Button menggunakan "Properties Window"

 

7. Klik 2x pada kotak design untuk membuka lembar vb

 Masukkan rumus berikut untuk menyelesaikan latihan_10

Public Class Latihan_10_36110044

    Private Sub TIYA(ByVal PKP As TextBox, ByVal PPH As TextBox)

        If PKP.Text < 50000000 Then

            PPH.Text = (PKP.Text * (5 / 100))

        ElseIf PKP.Text >= 50000000 And PKP.Text <= 250000000 Then

            PPH.Text = (50000000 * (5 / 100)) + (PKP.Text - 50000000) * (15 / 100)

        ElseIf PKP.Text >= 25000000 And PKP.Text <= 500000000 Then

            PPH.Text = (50000000 * (5 / 100)) + (20000000 * (15 / 100)) + (PKP.Text - 25000000) * (25 / 100)

        ElseIf PKP.Text > 500000000 Then

            PPH.Text = (50000000 * (5 / 100)) + (20000000 * (15 / 100)) + (PKP.Text - 25000000) * (25 / 100) + (PKP.Text - 500000000) * (30 / 100)

        End If

    End Sub

    Private Sub PKP1_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110044.TextChanged

        TIYA(PKP1_36110044, PPH1_36110044)

    End Sub

    Private Sub PKP2_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110044.TextChanged

        TIYA(PKP2_36110044, PPH2_36110044)

    End Sub

    Private Sub PKP3_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36110044.TextChanged

        TIYA(PKP3_36110044, PPH3_36110044)

    End Sub

    Private Sub PKP4_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36110044.TextChanged

        TIYA(PKP4_36110044, PPH4_36110044)

    End Sub

    Private Sub PKP5_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36110044.TextChanged

        TIYA(PKP5_36110044, PPH5_36110044)

    End Sub

    Private Sub Close_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110044.Click

        NP_36110044.Text = ""

        PKP1_36110044.Text = ""

        PKP2_36110044.Text = ""

        PKP3_36110044.Text = ""

        PKP4_36110044.Text = ""

        PKP5_36110044.Text = ""

        PPH1_36110044.Text = ""

        PPH2_36110044.Text = ""

        PPH3_36110044.Text = ""

        PPH4_36110044.Text = ""

        PPH5_36110044.Text = ""

    End Sub

End Class

8. Jalankan program dengan menggunakan  “start debugging”