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