aplikasi perhitungan gaji

8

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
txtGK.Text = Val(txtgp.Text) + Val(txtTJ.Text) – Val(txtpot.Text)
txtPJ.Text = Val(txtGK.Text) * 0.1
txtGT.Text = Val(txtGK.Text) – Val(txtPJ.Text)
End Sub

Private Sub cmdulang_Click()
txtgp = “”
txtTJ = “”
txtpot = “”
txtGK = “”
txtPJ = “”
txtGT = “”
End Sub

Private Sub textGP_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
txtpot.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