tugas 3_2

Private Sub cmdbatal_Click()
textnama = ""
textnpm = ""
textjurusan = ""
textps = ""
textmasuk = ""
texturut = ""
textnama.SetFocus
End Sub

Private Sub cmdlagi_Click()
textnama = ""
textnpm = ""
textjurusan = ""
textps = ""
textmasuk = ""
texturut = ""
textnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim s As String
textmasuk = "20" & Left(textnpm, 2)
s = Mid(textnpm, 3, 1)
If s = "1" Then
textjurusan = "sistem informasi"
ElseIf s = "2" Then
textjurusan = "sistem informasi"
ElseIf s = "3" Then
textjurusan = "sistem informasi"
ElseIf s = "4" Then
textjurusan = "sistem informasi"
End If
s = Mid(textnpm, 4, 2)
If s = "00" Then
textps = "strata satu"
ElseIf s = "01" Then
textps = "Diploma Tiga"
ElseIf s = "02" Then
textps = "diploma empat"
ElseIf s = "03" Then
textps = "diploma dua"
End If
texturut = Right(textnpm.Text, 3)
End Sub

Private Sub Command3_Click()
Unload Me
End Sub


Private Sub textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textnpm.SetFocus
End If
End Sub