TUGAS 3.2

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtps = ""
txttm = ""
txtnu = ""
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtps = ""
txttm = ""
txtnu = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttm = "20" & Left(txtnpm, 2)
S = Mid(txtnpm, 3, 1)
If S = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf S = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf S = "3" Then
txtjurusan = "Teknik Informasi"
ElseIf S = "3" Then
txtjurusan = "Manajemen & Komp. Akutansi"
End If
S = Mid(txtnpm, 4, 2)
If S = "00" Then
txtps = "Strata Satu"
ElseIf S = "01" Then
txtps = "Diplomat Tiga"
ElseIf S = "02" Then
txtps = "Diplomat Empat"
ElseIf S = "03" Then
txtps = "Diplomat Tiga"
End If
txtnu = Right(txtnpm, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub