tugas 3_4

Private Sub cmdbatal_Click()
textcode = ""
textjudul = ""
textpengarang = ""
textterbit = ""
textpenerbit = ""
textharga = ""
textcode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(textcode, 3)
If A = "SIM" Then
textjudul = "Sistem Informasi Manajemen"
textpengarang = "Fadiya Ulfa"
textharga = "75900"
ElseIf A = "EDP" Then
textjudul = "Elektronik Data Processing"
textpengarang = "Nurul Agustina"
textharga = "62000"
ElseIf A = "MNJ" Then
textjudul = "Manajemen"
textpengarang = "Rian Hidayat"
textharga = "42000"
ElseIf A = "CDR" Then
textjudul = "Corel Draw"
textpengarang = "Siti Nur Khotimah"
textharga = "53000"
ElseIf A = "RPL" Then
textjudul = "Rekayasa Perangkat Lunak"
textpengarang = "Winda Erlianti"
textharga = "83000"
End If
textterbit = "20" & Mid(textcode, 5, 2)
A = Right(textcode, 1)
If A = "A" Then
textpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
textpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
textpenerbit = "Salemba Empat"
ElseIf A = "E" Then
textpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
textpenerbit = "Maxicom"
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textcode = ""
textjudul = ""
textpengarang = ""
textterbit = ""
textpenerbit = ""
textharga = ""
textcode.SetFocus
End Sub