TUGAS MICROSOFT VISUAL BASIC

TUGAS KE-1

Private Sub rhmnpm_KEYPRESS(KeyASCII As Integer)

If KeyASCII = 13 Then

rhmnama.SetFocus

End If

End Sub

Private Sub rhmnama_Keypress(KeyASCII As Integer)

If KeyASCII = 13 Then

rhmalamat.SetFocus

End If

End Sub

Private Sub Commandlagi_Click()

rhmnpm.SetFocus

rhmnpm = ” ”

rhmnama = ” ”

rhmalamat = ” ”

End Sub

Private Sub Commandbatal_Click()

rhmnpm.SetFocus

rhmnpm = ” ”

rhmnama = ” ”

rhmalamat = ” ”

End Sub

Private Sub Commandkeluar_Click()

End

End Sub

SCREENSHOTS

Untitled 1

Untitled 2

Untitled 3

Untitled 4

TUGAS KE-2

Private Sub rhmnpm_Keypress(KeyASCII As Integer)
If KeyASCII = 13 Then
rhmnama.SetFocus
End If
End Sub

Private Sub rhmnama_KeyPress(KeyASCII As Integer)
If KeyASCII = 13 Then
rhmalamat.SetFocus
End If
End Sub

Private Sub rhmalamat_KeyPress(KeyASCII As Integer)
If KeyASCII = 13 Then
rhmprogram_studi.SetFocus
End If
End Sub
Private Sub rhmprogram_studi_KeyPress(KeyASCII As Integer)
If KeyASCII = 13 Then
rhmjurusan.SetFocus
End If
End Sub

Private Sub rhmjurusan_KeyPress(KeyASCII As Integer)
If KeyASCII = 13 Then
rhmagama.SetFocus
End If
End Sub

Private Sub commandlagi_Click()
rhmnpm.SetFocus
rhmnpm = ” ”
rhmnama = ” ”
rhmalamat = ” ”
rhmprogram_studi = ” ”
rhmjurusan = ” ”
rhmagama = ” ”
End Sub

Private Sub commandbatal_Click()
rhmnpm.SetFocus
rhmnpm = ” ”
rhmnama = ” ”
rhmalamat = ” ”
rhmprogram_studi = ” ”
rhmjurusan = ” ”
rhmagama = ” ”
End Sub

Private Sub commandkeluar_Click()
End

End Sub

SCREENSHOTS

Untitled 5

Untitled 6.png

Untitled 7

Untitled 8.png

Untitled 9.png

 

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s