tugas 2

Private Sub CommandBATAL_Click()
TXTKB.SetFocus
TXTKB = “”
TXTNB = “”
TXTHB = “”
TXTJB = “”
TXTJBY = “”
End Sub

Private Sub CommandKELUAR_Click()
Unload Me
End Sub

Private Sub CommandLAGI_Click()
TXTKB.SetFocus
TXTKB = “”
TXTNB = “”
TXTHB = “”
TXTJB = “”
TXTJBY = “”
End Sub

Private Sub TXTHB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJB.SetFocus
End If
End Sub
Private Sub TXTJB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJBY.Text = Val(TXTHB.Text) * Val(TXTJB.Text)
End If
End Sub

Private Sub TXTKB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNB.SetFocus
End If
End Sub

Private Sub TXTNB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTHB.SetFocus
End If
End Sub

 

Advertisements

Tugas 1

Private Sub CMDBatal_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub CMDKeluar_Click()
End
End Sub

Private Sub CMDLagi_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub TXTJUR_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTAL.SetFocus
End If
End Sub

Private Sub TXTNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTPS.SetFocus
End If
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNM.SetFocus
End If
End Sub
Private Sub TXTPS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJUR.SetFocus
End If
End Sub

Hello world!

Welcome to WordPress.com! This is your very first post. Click the Edit link to modify or delete it, or start a new post. If you like, use this post to tell readers why you started this blog and what you plan to do with it.

Happy blogging!

This entry was posted on November 22, 2012. 1 Comment