Nama & NPM (11/01/2013)

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub

Private Sub Cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjurusan.Text = “Manajemen Informatika”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
txtprody.Text = “Strata Satu”
ElseIf S = “01” Then
txtprody.Text = “Diploma Tiga”
End If
txtnomor.Text = Right(txtnpm.Text, 3)
End Sub

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

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

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtprody.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub