Tugas 3 BP3

Private Sub Cmdbatal_Click()

Textnama.SetFocus

Textnama = ""

Textnpm = ""

Textjr = ""

Textps = ""

Texttm = ""

Texturut = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Textnama.SetFocus

Textnama = ""

Textnpm = ""

Textjr = ""

Textps = ""

Texttm = ""

Texturut = ""

End Sub

Private Sub Cmdproses_Click()

Dim a As String

Texttm = "20" & Left(Textnpm, 2)

a = Mid(Textnpm, 3, 1)

If a = "1" Then

Textjr = "sistem informasi"

Textps = "Strata Satu"

ElseIf a = "2" Then

Textjr = "teknik informatika"

Textps = "Diploma empat"

ElseIf a = "3" Then

Textjr = "manajemen informatika"

Textps = "Diploma tiga"

ElseIf a = "4" Then

Textjr = "komputer akuntansi"

Textps = "Diploma Dua"

End If

Texturut = Right(Textnpm, 5)

End Sub

Private Sub Texnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

End Sub