Latihan_10_36110052

Latihan_10_36110052

  Deskripsi Latihan_10_36110052

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_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_36110052.TextChanged

Hana(PKP1_36110052, PPH1_36110052)

End Sub

Event

PKP1_36110052_TextChanged

Property

Property TextBox ==> ReadOnly=True

 Langkah-langkah kerja latihan_10­_36110052:

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_10_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat  9 label dengan menggunakan toolbox dan ubah text setiap label tersebut

4.      Buat 11 textbox dan berikan nama masing-masing textbox tersebut,ubah 5 dari 11 textbox tersebut ke status read only.

5. Setelah selesai form, masuk ke lembar Vb dan masukkan scrip

       Public Class Latihan_10_36110052
 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_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP1_36110052.TextChanged
        Hana(PKP1_36110052, PPH1_36110052)
    End Sub

    Private Sub PKP2_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP2_36110052.TextChanged
        Hana(PKP2_36110052, PPH2_36110052)
    End Sub

    Private Sub PKP3_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP3_36110052.TextChanged
        Hana(PKP3_36110052, PPH3_36110052)
    End Sub

    Private Sub PKP4_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP4_36110029.TextChanged
        Hana(PKP4_36110052, PPH4_36110052)
    End Sub

    Private Sub PKP5_36110052_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP5_36110052.TextChanged
        Hana(PKP5_36110052, PPH5_36110052)
    End Sub
End Clas 

6.   Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7. Selesai