tugas 3_4

Private Sub cmdbatal_Click()

cbokode = ""

cbokode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Cbokode = ""

Txtjudul = ""

Txtpengarang = ""

Txtterbit = ""

Txtpenerbit = ""

Txtharga = ""

End Sub

Private Sub cmdproses_Click()

Dim P, JB, PENG, HAR, PENER As String

Txtterbit.Text = "20" & Right(cbokode.Text,2)

P = Mid(cbokode.Text, 3, 3)

If P = " SIM" Then

JB  = "Sistem Informasi Manajemen"

PENG =  "Yati Nur Oktafia"

HAR =  "75900"

ElseIf P = "EDP" Then

JB  = " Elektronik Data Processing"

PENG =  " Imam Tarmizi"

HAR =  "62000"

ElseIf P = "MNJ" Then

JB  = "Manajemen"

PENG =  "Valentina Mariana Adiwianti"

HAR =  "42000"

ElseIf P = "CDR" Then

JB  = " COREL Draw"

PENG =  "Riyan Suhandi"

HAR =  "53000"

ElseIf P = "RPL" Then

JB  = "Rekayasa Prangkat Lunak"

PENG =  "Sinta Umpu Singa"

HAR =  "83000"

End If

Txtjudul.Text = JB

Txtpengarang.Text = PENG

Txtharga.Text = HAR

P = Left(cbokode.Text, 1)

If P = "A" Then

PENER = "Andi Officet Yogyakarta"

Elseif P= "I" Then

PENER= " Indah Surabaya"

Elseif P = "S" Then

PENER= " Salemba Empat"

Elseif P = "E" Then

PENER= " Elek Media Komputindo"

Elseif P = "M" Then

PENER= " Maxicom"

End If

txtpenerbit.Text= 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