tugas 3.4

Private Sub Command1_Click()

Dim s As String          

Txttt = "20" & Mid(Cbokode, 2)

s = Right(Cbokode, 1)

If s = "A" Then

Txtpenerbit = "Andi Offset Yogyakarta"

ElseIf s = "I" Then

Txtpenerbit = "Indah Surabaya"

ElseIf s = "S" Then

Txtpenerbit = "Salema Empat"

ElseIf s = "E" Then

Txtpenerbit = "Elek Media Komputindo"

ElseIf s = "M" Then

Txtpenerbit = "Maxicom"

End If

s = Left(Cbokode, 3)

If s = "SIM" Then

Txtjb = "Sistem Informasi Manajemen"

Txtpengarang = "Fadiya Ulfa"

Txtharga = "75900"

ElseIf s = "EDP" Then

Txtjb = "Elektronik Data Processing"

Txtpengarang = "Nurul Agustin"

Txtharga = "62000"

ElseIf s = "MNJ" Then

Txtjb = "Manajemen"

Txtpengarang = "Riyan Hidayat"

Txtharga = "42000"

ElseIf s = "CDR" Then

Txtjb = "Corel Draw"

Txtpengarang = "Siti Nur Khotimah"

Txtharga = "53000"

ElseIf s = "RPL" Then

Txtjb = "Rekayasa Perangkat Lunak"

Txtpengarang = "Winda Erlianti"

Txtharga = "83000"

End If

End Sub

Private Sub Command2_Click()

Cbokode.SetFocus

Cbokode = ""

Txtjb = ""

Txtpengarang = ""

Txttt = ""

Txtpenerbit = ""

Txtharga = ""

End Sub

Private Sub Command3_Click()

Cbokode.SetFocus

Cbokode = ""

Txtjb = ""

Txtpengarang = ""

Txttt = ""

Txtpenerbit = ""

Txtharga = ""

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem "SIM-09-A"

Cbokode.AddItem "EDP-10-I"

Cbokode.AddItem "MNJ-11-S"

Cbokode.AddItem "CDR-12-E"

Cbokode.AddItem "RPL-13-M"

End Sub