TUGAS3-2

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim pro As String
txttahun = "20" & Left(txtnpm, 2)
pro = Mid(txtnpm, 3, 1)
If pro = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf pro = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf pro = "3" Then
txtjurusan = "Teknik Informasi"
End If
pro = Mid(txtnpm, 4, 2)
If pro = "00" Then
txtprogram = "Strata Satu"
ElseIf pro = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf pro = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnomor = Right(txtnpm, 3)
End Sub