Tugas 3.2

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

Private Sub cmdkeluar_Click()
Unload Me
End Sub

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

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

Private Sub From_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjurusan.Text = ""
txtpogram.Text = ""
txttahun.Text = ""
txtnomor.Text = ""
End Sub

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