Leave a comment

usep

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
TXTGK.Text = Val(TXTGP.Text) + Val(TXTTJ.Text) – Val(TXTPOT.Text)
TXTPAJAK.Text = Val(TXTGK.Text) * 0.1
TXTGT.Text = Val(TXTGK.Text) – Val(TXTPAJAK.Text)
End Sub

Private Sub CMDULANG_Click()
TXTGP.SetFocus
TXTGP = “”
TXTTJ = “”
TXTPOT = “”
TXTGK = “”
TXTPAJAK = “”
TXTGT = “”
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: