Latihan_10_36110031

Tahap Penyelesaian Latihan_10_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_10 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_10 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_10_36110031

 Private Sub Audry(ByVal a As TextBox, ByVal b As TextBox)

 If Val(a.Text) <= 5000000 Then

 b.Text = Val(a.Text) * 5 / 100

 ElseIf Val(a.Text) > 5000000 And Val(a.Text) <= 250000000 Then

 b.Text = (50000000 * (5 / 100)) + (Val(a.Text) - 50000000) * 15 /100

 ElseIf Val(a.Text) > 250000000 And Val(a.Text) <= 500000000 Then

 b.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + (Val(a.Text) - 250000000) * 25 / 100

 ElseIf Val(a.Text) > 500000000 Then

 b.Text = (50000000 * (5 / 100)) + (200000000 * (15 / 100)) + (250000000 * (25 / 100)) + ((Val(a.Text) - 500000000) * 30 / 100)

 Else : b.Text = ""

      End If

    End Sub

    Private Sub PKP1_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110031.TextChanged, PKP2_36110031.TextChanged, PKP3_36110031.TextChanged, PKP4_36110031.TextChanged, PKP5_36110031.TextChanged, PPH1_36110031.TextChanged, PPH2_36110031.TextChanged, PPH3_36110031.TextChanged, PPH4_36110031.TextChanged, PPH5_36110031.TextChanged

   Audry(PKP1_36110031, PPH1_36110031)

   Audry(PKP2_36110031, PPH2_36110031)

   Audry(PKP3_36110031, PPH3_36110031)

   Audry(PKP4_36110031, PPH4_36110031)

   Audry(PKP5_36110031, PPH5_36110031)

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

 Deskripsi Latihan_10_36110031

Form Latihan 10 Terdapat dua object yaitu label dan textbox

-    Object Label

Terdapat sembilan label (yang bertuliskan Nama Perusahaan, Nama pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5)

-    Object TextBox

Terdapat sebelas textbox (enam status input; lima status readonly). Status input digunakan untuk menginput nama perusahaan dan memasukkan PKP dari kelima pegawai. Sedangkan status ReadOnly digunakan untuk menampilkan PPH dari setiap pegawai berdasarkan nilai PKP yang telah di input.

Script Unique

Textchanged

Even

PKP1_36110031_TextChanged

Property

Property TextBox  ==> ReadOnly = True