TUGAS 3B P2

Private Sub Command3_Click()
Textnama.SetFocus
Textnama = ""
Textnpm = ""
Textju = ""
Textps = ""
Texttm = ""
Texturut = ""

End Sub

Private Sub Command4_Click()
Unload Me

End Sub

Private Sub Command2_Click()
Textnama.SetFocus
Textnama = ""
Textnpm = ""
Textju = ""
Textps = ""
Texttm = ""
Texturut = ""
End Sub

Private Sub Command1_Click()
Dim a As String
Texttm = "20" & Left(Textnpm, 2)
a = Mid(Textnpm, 3, 1)
If a = "1" Then
Textju = "sistem informasi"
ElseIf a = "2" Then
Textju = "teknik informatika"
ElseIf a = "3" Then
Textju = "manajemen informatika"
ElseIf a = "4" Then
Textju = "komputer akuntansi"
End If
a = Mid(Textnpm, 4, 2)
If a = "00" Then
Textps = "Strata Satu"
ElseIf a = "01" Then
Textps = "Diploma empat"
ElseIf a = "02" Then
Textps = "Diploma tiga"
ElseIf a = "03" Then
Textps = "Diploma Dua"
End If
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Texnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Textnpm.SetFocus
End If
End Sub