Latihan_10_36110056

Deskripsi Latihan 10:

Form Latihan 10 terdapat tiga object yaitu Label,textbox, dan button

Object Label

Terdapat empat belas object label(diberi nama Nama Perusahaan, Nama Pegawai, PKP, PPH Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5).

Object Text Box

Terdapat sebelas textbox yang terdiri dari ( enam textbox yang berstatus input dan lima textbox berstatus read only).

Object Button

Terdapat satu object Button yang diberi nama Close. Object button ini digunakan untuk mengosonkan kembali textbox.

Script Unique
Public Class latihan10_36110056
    Private Sub Pajak(ByVal PKP As TextBox, ByVal PPh As TextBox)
        If PKP.Text <= 50000000 Then
            PPh.Text = (PKP.Text * (5 / 100))

Private Sub PKP1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110056.TextChanged
        RARA(PKP1_36110056, PPH1_36110056)

Private Sub Close_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110056.Click
        Np_36110056.Text = "'"

  Even
Textchanged
ButtonClick

Property

Property TextBox ReadOnly=True

                                                                 Form Latihan 10

 Langkah-langkah penyelesaian latihan 10 :

• Buka project yang dibuat sebelumnya  
• Pilih Add new item  

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Label, Textbox, dan button yang ada dalam Toolbox
• Setelah form selesai, ubah nama textbox,dan button yang terdapat dalam properties window  
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

  Public Class latihan10_36110056
    Private Sub pajak(ByVal pkp As TextBox, ByVal pph As TextBox)
        If pkp.Text <= 50000000 Then
            pph.Text = Val(pkp.Text) * 5 / 100
        ElseIf pkp.Text <= 250000000 Then
            pph.Text = ((Val(pkp.Text) - 50000000) * 15 / 100) + Val(pkp.Text) * 5 / 100
        ElseIf pkp.Text <= 500000000 Then
            pph.Text = ((Val(pkp.Text) - 250000000) * 25 / 100) + (50000000 * 5 / 100) + (200000000 * (15 / 100))
        ElseIf pkp.Text > 500000000 Then
            pph.Text = Val(pkp.Text) * 30 / 100
        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp1_36110056.TextChanged
        pajak(pkp1_36110056, pph1_36110056)
    End Sub

    Private Sub colse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colse.Click
        End
    End Sub

    Private Sub pkp2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp2_36110056.TextChanged
        pajak(pkp2_36110056, pph2_36110056)
    End Sub

    Private Sub pkp3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp3_36110056.TextChanged
        pajak(pkp3_36110056, pph3_36110056)
    End Sub

    Private Sub pkp4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp4_36110056.TextChanged
        pajak(pkp4_36110056, pph4_36110056)
    End Sub

    Private Sub pkp5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp5_36110056.TextChanged
        pajak(pkp5_36110056, pph5_36110056)
    End Sub
End Class 

• Selanjutnya jika ingin menjalankannya pilih Startde bungging atau dapat menekan F5 pada keyboard