Latihan_10_46110055

Deskripsi Latihan 10

Form Latihan 10 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 10 Terdapat 9 label yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5.

Object Text Box
pada form ini Terdapat juga Terdapat 11 textbox (6 status input dan 5 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
feby(pkp146110055, pph146110055) ==> Script ini digunakan sebagai data dari fungsi prosedur yang telah di buat. Urutan text box nya harus sama dengan urutan yang ada di prosedur.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 10:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 10”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_10_46110055

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

    Private Sub pkp146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp146110055.TextChanged
        feby(pkp146110055, pph146110055)
    End Sub

    Private Sub pkp246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp246110055.TextChanged
        feby(pkp246110055, pph246110055)
    End Sub

    Private Sub pkp346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp346110055.TextChanged
        feby(pkp346110055, pph346110055)
    End Sub

    Private Sub pkp446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp446110055.TextChanged
        feby(pkp446110055, pph446110055)
    End Sub

    Private Sub pkp546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp546110055.TextChanged
        feby(pkp546110055, pph546110055)
    End Sub
End Class


Langkah - langkah menjalankan Latihan 10:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.