Deskripsi
Form Latihan_10_46110003
Form Latihan_10_46110003 terdapat
tiga object yaitu Label, textbox, dan button.
Object Label
Terdapat sembilan label yang
bertuliskan “Nama Perusahaan”, “Nama Pegawai”, “Pegawai1”, “Pegawai2”, “Pegawai3”,
“Pegawai4”, “Pegawai5”, “PKP”, “PPh”.
Object Textbox
Terdapat sebelas textbox yang
terdiri dari 6 textbox yang berstatus input dan 5 textbox berstatus read only.
Object Button
Terdapat satu object button
yang bernama "Bersih" yang digunakan untuk menghapus semua isi
textbox.
Script Unique
Private Sub pkp1_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp1_46110003.TextChanged
parameter(pkp1_46110003, pph1_46110003)
End Sub
==>menggunakan
call prosedur sehingga tidak perlu menuliskan rumus pada script textbox. Cukup dengan
objek call prosedur.
Event
Textchanged
Buttonclick
Property
Property textbox:
Readonly = True
Buttonclick
Property
Property textbox:
Readonly = True
Langkah-langkah
penyelesaian
1. Buat Form Desain terlebih dahulu,
seperti contoh dibawah:
Kolom yang berwarna biru berisikan “Label” dan kolom yang berwarna hitam berisikan “Textbox”.
2. Masukkan rumus
Public NotInheritable Class
Latihan_10_46110003
Private Sub
parameter(ByVal pkp As
TextBox, ByVal pph As
TextBox)
If
Val(pkp.Text) >= 0 And Val(pkp.Text) <=
50000000 Then
pph.Text = Val(pkp.Text) * 0.05
ElseIf
Val(pkp.Text) > 50000000 And Val(pkp.Text)
<= 250000000 Then
pph.Text = Val(pkp.Text) * 0.15
ElseIf
Val(pkp.Text) > 250000000 And Val(pkp.Text)
<= 500000000 Then
pph.Text = Val(pkp.Text) * 0.25
Else :
pph.Text = Val(pkp.Text) * 0.5
End If
End Sub
Private Sub pkp1_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp1_46110003.TextChanged
parameter(pkp1_46110003, pph1_46110003)
End Sub
Private Sub pkp2_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp2_46110003.TextChanged
parameter(pkp2_46110003, pph2_46110003)
End Sub
Private Sub pkp3_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp3_46110003.TextChanged
parameter(pkp3_46110003, pph3_46110003)
End Sub
Private Sub pkp4_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp4_46110003.TextChanged
parameter(pkp4_46110003, pph4_46110003)
End Sub
Private Sub pkp5_46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
pkp5_46110003.TextChanged
parameter(pkp5_46110003, pph5_46110003)
End Sub
End Class
3. Jalankan program
0 komentar:
Posting Komentar