tugas 3.6

Private Sub cmdbatal_Click()
txtkode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""

End Sub

Private Sub cmdprose_Click()
Dim A As String
A = Left(txtkode, 3)
If A = "SIM" Then
txtjb = "SISTEM INFORMAS MANAJEMEN"
txtpengarang = "FADITYA ULFA"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjb = "ELEKTRONIK DATA PROCESISNG"
txtpengarang = "NURUL AGUSTINA"
txtharga = "62000"
ElseIf A = "MJN" Then
txtjb = "MANAJEMEN"
txtpengarang = "RIYAN HIDAYAT"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjb = "COREL DRAW"
txtpengarang = "SITI NUR KHOTIMAH"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjb = "REKAYASA PRANGKAT LUNAK"
txtpengarang = "WINDA ERLIANTI"
txtharga = "8300"
End If
txttt = "20" & Mid(txtkode, 5, 2)
A = Right(txtkode, 1)
If A = "A" Then
txtpenerbit = "ANDI OFFSET YOGYAKARTA"
ElseIf A = "I" Then
txtpenerbit = "INDAH SURABAY"
ElseIf A = "S" Then
txtpenerbit = "SALEMBA EMPAT"
ElseIf A = "E" Then
txtpenerbit = "ELEK MEDIA KOMPUT INDO"
ElseIf A = "M" Then
txtpenerbit = "MAXICOM"
End If


End Sub

Private Sub Command4_Click()
Unload Me
End Sub