gaji

sofi3

 

Private Sub Cmd1_Click()

Dim A, B, C, D, E, F As Double

txtD.Text = Val(txtA.Text) + (txtB.Text) – Val(txtC.Text)

txtE.Text = Val(txtD.Text) * 0.1

txtF.Text = Val(txtD.Text) – Val(txtE.Text)

End Sub

Private Sub Cmd2_Click()

txtA.SetFocus

txtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

End Sub

Private Sub Cmd3_Click()

Unload Me

End Sub

Private Sub txtA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtB.SetFocus

End If

End Sub

Private Sub txtB_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtC.SetFocus

End If

End Sub

 

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