npm mahasiswa

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 2)
If S = “10” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf S = “20” Then
txtjurusan.Text = “Manajemen Informatika”
End If
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtps.Text = “Strata Satu”
ElseIf S = “2” Then
txtps.Text = “Diploma Tiga”
End If

nama = Right(txtnpm.Text, 4)
If nama = “0495” Then
txtnama.Text = “taftajani”
ElseIf nama = “1065” Then
txtnama.Text = “siti yuniarsih”
ElseIf nama = “0503” Then
txtnama.Text = “dedi kurniawan”
ElseIf nama = “1062” Then
txtnama.Text = “fitri aprilia”
ElseIf nama = “1139” Then
txtnama.Text = “rika novitasari”
ElseIf nama = “1138” Then
txtnama.Text = “laela latifa”
ElseIf nama = “0163” Then
txtnama.Text = “deni patra”
ElseIf nama = “0496” Then
txtnama.Text = “i bagus indra pratama”
ElseIf nama = “1066” Then
txtnama.Text = “isdiyantoro”
ElseIf nama = “1059” Then
txtnama.Text = “ardy irfan pernanda”
ElseIf nama = “1096” Then
txtnama.Text = “valerian pradipta”
ElseIf nama = “1100” Then
txtnama.Text = “tuti puspita sari”
ElseIf nama = “1064” Then
txtnama.Text = “zaida”
ElseIf nama = “1094” Then
txtnama.Text = “sumaryani”
ElseIf nama = “1057” Then
txtnama.Text = “maya afriyana sofa”
ElseIf nama = “1068” Then
txtnama.Text = “nani suryani”
ElseIf nama = “1067” Then
txtnama.Text = “putri indira sari”
ElseIf nama = “0170” Then
txtnama.Text = “hanan sumitra”
ElseIf nama = “1099” Then
txtnama.Text = “muhamad roni”
ElseIf nama = “1060” Then
txtnama.Text = “roiyani”
ElseIf nama = “1063” Then
txtnama.Text = “dwi astuti”
ElseIf nama = “0215’’ Then
Txtnama.Text = “nur kholis”
ElseIfnama = “0472” Then
Txtnama.text = ‘’suyanto”
ElseIfnama = “0159’’ Then
Txtnama.text = “yoni hendarso”
End If

txtnomor.Text = Right(txtnpm.Text, 4)
End Sub

Private Sub Form_Activate()
txtnpm.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdproses.SetFocus
End If
End Sub

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 )

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s