tugas 2.3

KETERANGAN NAMA

Private Sub cmdbatal_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub cmdproses_Click()

Dim ps, jr As String

Text3 = jr

Text4 = ps

Text5 = "20" & Left(Text2, 2)

Text6 = Right(Text2, 3)

ps = Mid(Text2, 4, 2)

If ps = "01" Then

Text4 = "Strata Satu"

ElseIf ps = "02" Then

Text4 = "Diploma Empat"

ElseIf ps = "03" Then

Text4 = "Diploma Tiga"

ElseIf ps = "04" Then

Text4 = "Diploma Dua"

End If

jr = Mid(Text2, 3, 1)

If jr = "1" Then

Text3 = "Sistem Informasi"

ElseIf jr = "2" Then

Text3 = "Tehnik Informatika"

ElseIf jr = "3" Then

Text3 = "Manajemen Informatika"

ElseIf jr = "4" Then

Text3 = "Komputer Akuntansi"

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text1.SetFocus

End If

End Sub