absen kelas yahoo 5

 

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”
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

%d blogger menyukai ini: