Deskripsi Form Latihan_10_36110040
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 Text Box
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_36110040_TextChanged
Property
Property TextBox
==> ReadOnly=True
Prosedur
Penyelesaian Latihan_10_36110040
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.
4.
Buat Form Latihan_10 dibawah ini:
5.
Berikut ini Rumus untuk menjalankan
Form diatas:
Public Class LATIHAN_10_36110040
Private Sub LATIHAN10_36110047_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub RAHMI(ByVal PKP As TextBox, ByVal PPH
As TextBox)
If
PKP.Text < 50000000 Then
PPH.Text = Val(PKP.Text) * 5 / 100
ElseIf
PKP.Text < 100000000 Then
PPH.Text = Val(PKP.Text) * 10 / 100
End If
End Sub
Private Sub PKP1_36110047_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP1_36110040.TextChanged
RAHMI(PKP1_36110040, pph1_36110040)
End Sub
Private Sub PKP2_36110047_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
PKP2_36110040.TextChanged
RAHMI(PKP2_36110040, pph2_36110040)
End Sub
End Class
6.
Setelah itu
jalankan Programnya dengan menekan “start debugging”
7.
Kemudian simpan
file tersebut dengan menekan icon “Save”
Tidak ada komentar:
Posting Komentar