Tugas2.Bahasa Pemrograman Membuat Biodata Mahasiswa menggunakan Microsoft Visual Basic

hermin2hermin1

Private Sub Command2_Click()

End Sub

End Sub

Private Sub HerminAlamat_keypress(keyascii As Integer)
If keyascii = 13 Then
HerminPS.SetFocus
End If

End Sub

Private Sub HerminBatal_Click()
HerminNpm.SetFocus
HerminNpm = ” ”
HerminNama = ” ”
HerminAlamat = ” ”
HerminPS = ” ”
HerminJr = ” ”
HerminAg = ” ”

End Sub

Private Sub HerminJr_keypress(keyascii As Integer)
If keyascii = 13 Then
HerminAg.SetFocus
End If

End Sub

Private Sub HerminKeluar_Click()
End

End Sub

Private Sub HerminLagi_Click()
HerminNpm.SetFocus
HerminNpm = ” ”
HerminNama = ” ”
HerminAlamat = ” ”
HerminPS = ” ”
HerminJr = ” ”
HerminAg = ” ”

End Sub

Private Sub HerminNama_keypress(keyascii As Integer)
If keyascii = 13 Then
HerminAlamat.SetFocus
End If

End Sub

Private Sub HerminNpm_keypress(keyascii As Integer)
If keyascii = 13 Then
HerminNama.SetFocus
End If

End Sub

Private Sub HerminPS_keypress(keyascii As Integer)
If keyascii = 13 Then
HerminJr.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 )

Connecting to %s