Latihan_10_36110033

Latihan_10_36110033

A.    Object-object dalam Latihan_10_36110033:

           1.      Object Label

Terdapat sembilan label, 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 dan 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.

            3.      Object Button

Terdapat satu object button yang nama textnya Close. Button Close digunakan untuk mengosongkan kembali semua TextBox.

B.     Script Unique

Untuk button Close

NAMA_36110033.Text = ""

C.    Even

Private Sub ILHA(ByVal PKP As TextBox, ByVal PPh As TextBox)

PK1_36110033_TextChanged

PK2_36110033_TextChanged

PK3_36110033_TextChanged

PK4_36110033_TextChanged

PK5_36110033_TextChanged

CLOSE_36110033_Click

D.    Property

Property TextBox ==> ReadOnly=True

Prosedur

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

1.    Buka Ms. Visual Studio

2.    Lalu akan muncul jendela awal Microsoft Visual Studio

3.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

4.    Buat text pada form dengan menggunakan label, sebanyak 9 label. Dengan nama text masing-masing bernama nama perusahaan, nama pegawai, PKP, Pph, pegawai 1, pegawai 2, pegawai 3, pegawai 4 dan pegawai 5. Adapun nama lebelnya terserah anda.

5.    Buat kolom sesuai dengan design pada latihan 10 dengan mengguanakan textbox,  sebanyak 11 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk. 6 textbox menggunakan readonly false dan selebihnya menggunakan readonly true.

6.    Buat 1 tombol sesuai dengan design pada latihan 10 dengan menggunakan button. Kemudian beri nama text close kemudian  beri nama apa saja yang anda inginkan atau close_36110033. Adapun posisi text, kolom lebel dan tombol button disesuai dengan design pada latihan 10 berikut:

7.      Untuk menuliskan rumus pada latihan 10, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_10_36110033

    Private Sub ILHA(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 PK1_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK1_36110033.TextChanged

        ILHA(PK1_36110033, PH1_36110033)

    End Sub

Private Sub PK2_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK2_36110033.TextChanged

        ILHA(PK2_36110033, PH2_36110033)

    End Sub

Private Sub PK3_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK3_36110033.TextChanged

        ILHA(PK3_36110033, PH3_36110033)

    End Sub

Private Sub PK4_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK4_36110033.TextChanged

        ILHA(PK4_36110033, PH4_36110033)

    End Sub

Private Sub PK5_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PK5_36110033.TextChanged

        ILHA(PK5_36110033, PH5_36110033)

    End Sub

Rumus untuk close:

    Private Sub CLOSE_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110033.Click

        NAMA_36110033.Text = ""

        PK2_36110033.Text = ""

        PK1_36110033.Text = ""

        PK3_36110033.Text = ""

        PK4_36110033.Text = ""

        PK5_36110033.Text = ""

        PH1_36110033.Text = ""

        PH2_36110033.Text = ""

        PH3_36110033.Text = ""

        PH4_36110033.Text = ""

        PH5_36110033.Text = ""

    End Sub

End Class

8.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

9.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 10 selesai.