TUGAS 3.4

TUGAS 3.4

DATA BUKU STMIK PRINGSEWU

Private Sub cmdbatal_Click()

Cbokode = ""

txtjudul = ""

txtpengarang = ""

txtterbit = ""

txtpenerbit = ""

txtharga = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

Cbokode = ""

txtjudul = ""

txtpengarang = ""

txtterbit = ""

txtpenerbit = ""

txtharga = ""

End Sub

Private Sub cmdproses_Click()

Dim C, jb, peng, har, pener As String

txtterbit = "20" & Right(Cbokode, 2)

C = Mid(Cbokode, 3, 3)

If C = "SIM" Then

jb = "Sistem Informasi Manajemen"

peng = "Yati Nur Oktavia"

har = "75900"

ElseIf C = "EDP" Then

jb = "Elektronik Data Processing"

peng = "Imam Tarmizi"

har = "62000"

ElseIf C = "MNJ" Then

jb = "Manajemen"

peng = "Valentina Mariana Adiwianti"

har = "42000"

ElseIf C = "CDR" Then

jb = "corel draw"

peng = "Riyan Suhandi"

har = "53000"

ElseIf C = "RPL" Then

jb = "Rekayasa Perangkat Lunak"

peng = "Sinta Umpu Singa"

har = "83000"

End If

txtjudul = jb

txtpengarang = peng

txtharga = har

C = Left(Cbokode, 1)

If C = "A" Then

pener = "Andi Offset"

ElseIf C = "I" Then

pener = "Indah Surabaya"

ElseIf C = "S" Then

pener = "Salemba Empat"

ElseIf C = "E" Then

pener = "Elek Media Komputindo"

ElseIf C = "M" Then

pener = "Maxinco"

End If

txtpenerbit = pener

End Sub

Private Sub Form_Load()

Cbokode.AddItem "A-SIM_01"

Cbokode.AddItem "I-EDP_02"

Cbokode.AddItem "S-MNJ_03"

Cbokode.AddItem "E-CDR_04"

Cbokode.AddItem "M-RPL_05"

End Sub