Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
kosong
End Sub
Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
J = Mid(Txtnpm.Text, 4, 2)
If J = “01” Then
Txtpro.Text = “Strata Satu”
ElseIf J = “02” Then
Txtpro.Text = “Diploma Empat”
ElseIf J = “03” Then
Txtpro.Text = “Diploma Tiga”
ElseIf J = “04” Then
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub