tugas 1 bahasa pemragraman

BAHASA 1

Private Sub text1_keypress(keyAsCii As Integer)
If keyAsCii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub text2_keypress(keyAsCii As Integer)
If keyAsCii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub commandlagi_click()
Text1.SetFocus
Text1 = ” ”
Text2 = ” ”
Text3 = ” ”
End Sub

Private Sub commandbatal_click()
Text1.SetFocus
Text1 = ” ”
Text2 = ” ”
Text3 = ” ”
End Sub

Private Sub commandkeluar_click()
End
End Sub

BAHASA 2

Private Sub CommandBATAL_Click()
TEXTNPM.SetFocus
TEXTNPM = ” ”
TEXTNAMA = ” ”
TextALAMAT = ” ”
TextPROGRAM = ” ”
TextJURUSAN = ” ”
TextAGAMA = ” ”
TextHOBBY = ” ”
End Sub

Private Sub CommandKELUAR_Click()
End
End Sub

Private Sub CommandULANGI_Click()
TEXTNPM.SetFocus
TEXTNPM = ” ”
TEXTNAMA = ” ”
TextALAMAT = ” ”
TextPROGRAM = ” ”
TextJURUSAN = ” ”
TextAGAMA = ” ”
TextHOBBY = ” ”
End Sub

Private Sub TextAGAMA_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TextHOBBY.SetFocus
End If
End Sub

Private Sub TextALAMAT_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TextPROGRAM.SetFocus
End If

End Sub

Private Sub TextJURUSAN_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TextAGAMA.SetFocus
End If

End Sub

Private Sub TEXTNAMA_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TextALAMAT.SetFocus
End If

End Sub

Private Sub TEXTNPM_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TEXTNAMA.SetFocus
End If
End Sub

Private Sub TextPROGRAM_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TextJURUSAN.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 )

Google+ photo

You are commenting using your Google+ 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 )

w

Connecting to %s