Latihan_10_36110034

Deskripsi penyelesaian

Form Latihan_10_36110034  terdapat tiga object yaitu Label dan Textbox:

Object Label

Terdapat sembilan label (yang bertuliskan nama perusahaan; nama pegawai; pegawai 1; pegawai 2; pegawai 3; pegawai 4; pegawai 5; PKP; PPh.)

Object Text Box

Terdapat sebelas  textbox (enam status input; lima status read only).

 Status input digunakan untuk memasukkan data pada textbox (pegawai 1; pegawai 2; pegawai3; pegawai4; pegawai5.).dan status readonly pada textbox yang berada di bawah lebel yang bertuliskanPPh akan menampilkan jumlah PPh setiap pegawai berdasarkan besaran jumlah PKP setiap pegawai yang di input.

Dalam penyelesaian program pada latihan ini digunakan prosedur pemanggilan rumus.

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_10_36110034.

Public Class latihan_10_36110034

    Private Sub AW(ByVal PKP As TextBox, ByRef 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 >= 250000000 And PKP.Text <= 500000000 Then

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

        ElseIf PKP.Text >= 500000000 Then

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

        End If

    End Sub

    Private Sub PKP1_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_36110034.TextChanged

        AW(PKP1_36110034, PPH1_36110034)

    End Sub

   

    Private Sub PKP2_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP2_36110034.TextChanged

        AW(PKP2_36110034, PPH2_36110034)

    End Sub

    Private Sub PKP3_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP3_36110034.TextChanged

        AW(PKP3_36110034, PPH3_36110034)

    End Sub

    Private Sub PKP4_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP4_36110034.TextChanged

        AW(PKP4_36110034, PPH4_36110034)

    End Sub

    Private Sub PKP5_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP5_36110034.TextChanged

        AW(PKP5_36110034, PPH5_36110034)

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.