Leave a comment

perhitungan gaji 10%

USEP PERHITUNGAN GAJI 10%2

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Txtgk.Text = Val(Txtgp.Text) + Val(Txttj.Text) – Val(Txtpt.Text)
Txtpjk.Text = Val(Txtgk.Text) * 0.1
txtgj.Text = Val(Txtgk.Text) – Val(Txtpjk.Text)
End Sub

Private Sub Cmdulang_Click()
Txtgp.SetFocus
Txtgp = “”
Txttj = “”
Txtpt = “”
Txtgk = “”
Txtpjk = “”
txtgj = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttj.SetFocus
End If
End Sub
Private Sub Txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpt.SetFocus
End If
End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: