Latihan 10 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_10_36110051 :

1.                         Object Label

Terdapat sembilan label (yang bertuliskan nama perusahaan, nama pegawai, PKP, PPh, pegawai 1, pegawai 2, pegawai 3, pegawai 4, pegawai 5).

2.                         Object Textbox

Terdapat sebelas textbox (enam status input; lima status read only). Status input digunakan untuk memasukkan nama perusahaan dan nilai PKP dari kelima pegawai. Status Read Only digunakan untuk menampilkan PPh dari setiap pegawai berdasarkan nilai PKP yang dimasukkan tadi.

3.                         Object Button

Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan kembali semua TextBox.

B.     Script Unique

      Untuk tombol button :
      CLOSE_36110051_Click

C.     Even

PKP136110051_TextChanged
MELISSA(ByVal PKP As TextBox, ByVal PPH As TextBox)
NAMA36110051.Text = ""

D.    Property

Property TextBox ==> ReadOnly=True

PROSEDUR :

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan object label menggunakan nama:

a.         “Nama perusahaan”

b.        “PPh”

c.         “PKP”

d.        “Nama pegawai”

e.         “Pegawai1”

f.         “Pegawai2”

g.        “Pegawai3”

h.        “Pegawai4”

i.          “Pegawai5”

7.       Buat kolom sesuai dengan design pada latihan 10 dengan menggunakan object textbox, kolom sebanyak 10 dengan nama :

1.      PKP136110051

2.      PKP236110051

3.      PKP336110051

4.      PKP436110051

5.      PKP536110051

6.      PPH136110051

7.      PPH236110051

8.      PPH336110051

9.      PPH436110051

10.        PPH536110051

                          11.    Nama36110051 

          Buat tombol dengan menggunakan objek Button bernama :

          Close_36110051 yang berisikan teks “Close”

9.          Setelah itu masuk ke lembar “Vb”, dan ketik script :

Public Class Latihan_10_36110051

    Private Sub Latihan_10_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub MELISSA(ByVal PKP As TextBox, ByVal PPH As TextBox)

        If PKP.Text <= 50000000 Then

            PPH.Text = (PKP.Text * (5 / 100))

        ElseIf PKP.Text >= 50000000 And PKP.Text <= 250000000 Then

            PPH.Text = (50000000 * (5 / 100)) + ((PKP.Text - 50000000) * (15 / 100))

        ElseIf PKP.Text >= 250000000 And PKP.Text <= 500000000 Then

            PPH.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + ((PKP.Text - 250000000) * (25 / 100))

        ElseIf PKP.Text >= 50000000 Then

            PPH.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + (250000000 * (25 / 100)) + ((PKP.Text - 500000000) * (30 / 100))

        End If

    End Sub

    Private Sub PKP136110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP136110051.TextChanged

        MELISSA(PKP136110051, PPH136110051)

    End Sub

    Private Sub PKP236110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP236110051.TextChanged

        MELISSA(PKP236110051, PPH236110051)

    End Sub

    Private Sub PKP336110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP336110051.TextChanged

        MELISSA(PKP336110051, PPH336110051)

    End Sub

    Private Sub PKP436110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP436110051.TextChanged

        MELISSA(PKP436110051, PPH436110051)

    End Sub

    Private Sub PKP536110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP536110051.TextChanged

        MELISSA(PKP536110051, PPH536110051)

    End Sub

 Private Sub CLOSE_36110051_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLOSE_36110051.Click

        NAMA36110051.Text = ""

        PKP136110051.Text = ""

        PKP236110051.Text = ""

        PKP336110051.Text = ""

        PKP436110051.Text = ""

        PKP536110051.Text = ""

        PPH136110051.Text = ""

        PPH236110051.Text = ""

        PPH336110051.Text = ""

        PPH436110051.Text = ""

        PPH536110051.Text = ""

    End Sub

   End Class

End Class

10.  Uji program dengan mengklik “Start Debbuging” dan simpan program dengan mengklik “Save”.