Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
Txtnpm.Text = “”
txtjr.Text = “”
Txtps.Text = “”
Txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
Txtnpm.Text = “”
txtjr.Text = “”
Txtps.Text = “”
Txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
txtjr.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjr.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjr.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjr.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = “00” Then
Txtps.Text = “Strata Satu”
ElseIf S = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf S = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf S = “04” Then
Txtps.Text = “Diploma Dua”
End If
txtnu.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
Txtnpm.Text = “”
txtjr.Text = “”
Txtps.Text = “”
Txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtnpm.SetFocus
End If
End Sub