Selasa, 14 November 2017

Tugas 2 data mahasiwa stmik pringsewu menggunakan keypress



Tugas 2

 
Private Sub BATAL_Click()
NPM = ""
NAMA = ""
ALAMAT = ""
NPM.SetFocus
End Sub

Private Sub KELUAR_Click()
Unload Me
End Sub

Private Sub LAGI_Click()
NPM = ""
NAMA = ""
ALAMAT = ""
NPM.SetFocus
End Sub

Private Sub NAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ALAMAT.SetFocus
End If
End Sub

Private Sub NPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
NAMA.SetFocus
End If
End Sub

Tidak ada komentar:

Posting Komentar

Tutorial

TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya did...