TUGAS 3 BP7

Private Sub Cmdproses_Click()
Dim A As String
A = Mid(Textkode, 1, 3)
If A = "SIM" Then
Textjb = "Sistem Informasi Manajemen"
Textpg = "Yati Nur Oktavia"
Textrp = "75900"
ElseIf A = "EDP" Then
Textjb = "Elektronik Data Proseccing"
Textpg = "Imam Tarmizi"
Textrp = "62000"
ElseIf A = "MNJ" Then
Textjb = "MANAJEMEN"
Textpg = "Valentina Mariana Adiwianti"
Textrp = "42000"
ElseIf A = "CDR" Then
Textjb = "Corel Draw"
Textpg = "Riyan Suhandi"
Textrp = "53000"
ElseIf A = "RPL" Then
Textjb = "Rekayasa Perangkat Lunak"
Textpg = "Sinta Umpu Singa"
Textrp = "83000"
End If

A = Mid(Textkode, 5, 2)
If A = "09" Then
Texttt = "2009"
ElseIf A = "10" Then
Texttt = "2010"
ElseIf A = "11" Then
Texttt = "2011"
ElseIf A = "12" Then
Texttt = "2012"
ElseIf A = "13" Then
Texttt = "2013"
End If
A = Mid(Textkode, 8, 1)
If A = "A" Then
Textpn = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
Textpn = "Indah Surabaya"
ElseIf A = "S" Then
Textpn = "Salemba Empat"
ElseIf A = "E" Then
Textpn = "Elek Media Komputindo"
ElseIf A = "M" Then
Textpn = "Maxicom"
End If
End Sub

Private Sub Cmdlagi_Click()
Textkode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textkode.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Textkode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textkode.SetFocus
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
End Sub