Latihan 10_36110055

PROSEDUR LATIHAN 10:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat text dengan menggunakan label pada toolbox

Ø  Buat textbox sebanyak 11 dengan nama :

v  “PKP1_36001155”

v  “PKP2_36001155”

v  “PKP3_36001155”

v  “PKP4_36001155”

v  “PKP5_36001155”

v  “PPH1_36001155”( property ReadOnly textbox di atur jadi true)

v  “PPH2_36001155”( property ReadOnly textbox di atur jadi true)

v  “PPH3_36001155”( property ReadOnly textbox di atur jadi true)

v  “PPH4_36001155”( property ReadOnly textbox di atur jadi true)

v  “PPH5_36001155”( property ReadOnly textbox di atur jadi true)

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini.

 

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_10_36001155

    Private Sub Masnur(ByVal PKP As TextBox, ByVal PPh As TextBox)

        If PKP.Text < 50000000 Then

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

        ElseIf PKP.Text < 250000000 Then

            PPh.Text = (PKP.Text * 15) / 100

        ElseIf PKP.Text < 500000000 Then

            PPh.Text = (PKP.Text * 25) / 100

        ElseIf PKP.Text > 500000000 Then

            PPh.Text = (PKP.Text * 30) / 100

        End If

    End Sub

    Private Sub PKP1_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36001155.TextChanged

        Masnur(PKP1_36001155, PPH1_36001155)

    End Sub

    Private Sub PKP2_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36001155.TextChanged

        Masnur(PKP2_36001155, PPH2_36001155)

    End Sub

    Private Sub PKP3_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_36001155.TextChanged

        Masnur(PKP3_36001155, PPH3_36001155)

    End Sub

    Private Sub PKP4_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_36001155.TextChanged

        Masnur(PKP4_36001155, PPH4_36001155)

    End Sub

    Private Sub PKP5_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_36001155.TextChanged

        Masnur(PKP5_36001155, PPH5_36001155)

    End Sub

End Class