Latihan_10_46110045

Deskripsi :

Form 10 ada 2 object yaitu label, dan textbox.

Object Label :

Ada 9 label yang bertuliskan nama perusahaan, nama pegawai, pegawai 1, pegawai 2, pegawai 3, pegawai 4, pegawai 5, PKP, dan PPh).

Object Textbox :

        Ada 11 textbox. Status input digunakan untuk menginput data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah anda kerjakan.

        Cara mengerjakan form 10 :
        Masukkan rumus seperti ini
        Public Class Latihan_10_46110045
        Private Sub dina(ByVal A As TextBox, ByVal B As TextBox)
        If Val(A.Text) <= 50000000 Then
            B.Text = Val(A.Text) * 5 / 100
        ElseIf Val(A.Text) <= 250000000 Then
            B.Text = ((Val(A.Text) - 50000000) * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(A.Text) <= 500000000 Then
            B.Text = ((Val(A.Text) - 250000000) * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(A.Text) > 500000000 Then
            B.Text = ((Val(A.Text) - 500000000) * (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        Else
        End If
    End Sub

    Private Sub pkp146110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp146110045.TextChanged
        dina(pkp146110045, pph146110045)
    End Sub

    Private Sub pkp246110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp246110045.TextChanged
        dina(pkp246110045, pph246110045)
    End Sub

    Private Sub pkp346110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp346110045.TextChanged
        dina(pkp346110045, pph346110045)
    End Sub

    Private Sub pkp446110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp446110045.TextChanged
        dina(pkp446110045, PPH4_46110045)
    End Sub

    Private Sub pkp546110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp546110045.TextChanged
        dina(pkp546110045, pph546110045)
    End Sub
       End Class

        Even :
        Textchanged.
 
        Script unique :
       Private Sub dina(ByVal A As TextBox, ByVal B As TextBox) => maksudnya adalah agar procedure yang dijalankan telah sesuai dengan fungsi yang telah dibuat.

        Langkah-langkah mengerjakan form 10 :
        1. Isilah textbox-textbox yang telah anda buat.
        2. Hasil akan muncul sendirinya jika anda telah mengisi textbox yang ada.