Latihan_10_36110029

v Deskripsi Latihan_10_36110029

Object Label

Terdapat 9 Label (yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, PPh, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5).

Object TextBox

Terdapat 11 Textbox  (yang terdiri dari 6 textbox berstatus input, 5 textbox berstatus read only).

Object Button

Tidak terdapat object Button.

Script Unique

Private Sub PKP1_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_36110029.TextChanged

Hana(PKP1_36110029, PPH1_36110029)

End Sub

Event

PKP1_36110029_TextChanged

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_10_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_10_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_10_36110029
 Private Sub Hana(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_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_36110029.TextChanged
        Hana(PKP1_36110029, PPH1_36110029)
    End Sub

    Private Sub PKP2_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP2_36110029.TextChanged
        Hana(PKP2_36110029, PPH2_36110029)
    End Sub

    Private Sub PKP3_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP3_36110029.TextChanged
        Hana(PKP3_36110029, PPH3_36110029)
    End Sub

    Private Sub PKP4_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP4_36110029.TextChanged
        Hana(PKP4_36110029, PPH4_36110029)
    End Sub

    Private Sub PKP5_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP5_36110029.TextChanged
        Hana(PKP5_36110029, PPH5_36110029)
    End Sub
End Clas 

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.