DISKRIPSI LATIHAN 10
Latihan_10_36110030
A.
Object-object dalam Latihan_10_36110030:
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 button Close
NAMA_36110030.Text = ""
C.
Even
PKP1_36110030_TextChanged
yhuya(ByVal PKP As TextBox,
ByVal PPh As
TextBox)
D.
Property
Property TextBox ==> ReadOnly=True
PROSEDUR PENYELESAIAN LATIHAN 10
1.KLIK STAR KEMUDIAN PILIH
MICROSOFT VISUAL STUDIO 2008
2.KEMUDIAN KLIK NEW PROJECT PADA FILE
3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT
4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :
5.KEMUDIAN MASUKAN RUMUS :
Public Class latihan_10_36110030
Private Sub YHUYA(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 PKP1_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
PKP1_36110030.TextChanged
YHUYA(PKP1_36110030, PPH1_36110030)
End Sub
Private Sub PKP2_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
PKP2_36110030.TextChanged
YHUYA(PKP2_36110030, PPH2_36110030)
End Sub
Private Sub PKP3_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
PKP3_36110030.TextChanged
YHUYA(PKP3_36110030, PPH3_36110030)
End Sub
Private Sub PKP4_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
PKP4_36110030.TextChanged
YHUYA(PKP4_36110030, PPH4_36110030)
End Sub
Private Sub PKP5_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
PKP5_36110030.TextChanged
YHUYA(PKP5_36110030, PPH5_36110030)
End Sub
Private Sub latihan_10_36110030_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
7. JIKA SUDAH
BERHASIL Save program anda
8 SELESAI
0 komentar:
Posting Komentar