Tugas 1 Program 2 (Bahasa Pemrogramman 1)

SCRIPT :


Private Sub Cmdbatal_Click()
Txtnpm = ""
Txtnama = ""
Txtalamat = ""
Txtnpm.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Cmdlagi_Click()
Txtnpm = ""
Txtnama = ""
Txtalamat = ""
Txtnpm.SetFocus
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtalamat.SetFocus
End If
End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub