TUGAS_3_6

Private Sub cmdbatal_Click()

Txtkode = ””

Txtjudul  = ””

Txtpengarang  = ””

Txtterbit = ””

Txtpenerbit  = ””

Txtharga = “”

Txtkode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtkode = ””

Txtjudul  = ””

Txtpengarang  = ””

Txtterbit = ””

Txtpenerbit  = ””

Txtharga = “”

Txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()

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

Txtterbit.Text = "20" & Mid(txtkode.Text, 5,2)

P = Left(txtkode.Text, 3)

If P = " SIM"  Or P = “ sim” Then

JB  = "Sistem Informasi Manajemen"

PENG =  "Fadiya Ulfa"

HAR =  "75900"

ElseIf P = "EDP" Or P = “edp” Then

JB  = " Elektronik Data Processing"

PENG =  " Nurul Agustina"

HAR =  "62000"

ElseIf P = "MNJ" Or P = “mnj” Then

JB  = "Manajemen"

PENG =  "Rian Hidayat"

HAR =  "42000"

ElseIf P = "CDR " Or P = “cdr” Then

JB  = " COREL Draw"

PENG =  "Siti Nur Khotimah"

HAR =  "53000"

ElseIf P = "RPL" Or P = “rpl”  Then

JB  = "Rekayasa Prangkat Lunak"

PENG =  "Winda Erlanti"

HAR =  "83000"

End If

Txtjudul.Text = JB

Txtpengarang.Text = PENG

Txtharga.Text = HAR

P = Right(txtkode.Text, 1)

If P = "A" Or P= “a” Then

PENER = "Andi Officet Yogyakarta"

Elseif P = "I" Or P = “i”  Then

PENER= " Indah Surabaya"

Elseif P = "S" Or P = “s”  Then

PENER= " Salemba Empat"

Elseif  = "E" Or  = “e”  Then

PENER= " Elek Media Komputindo"

Elseif P = "M" Or P = “m” Then

PENER= " Maxicom"

End If

txtpenerbit.Text= PENER

End Sub

Private Sub Form_Active()

Txtkode = ””

Txtjudul  = ””

Txtpengarang  = ””

Txtterbit = ””

Txtpenerbit = ””

Txtharga = “”

Txtkode.SetFocus

End Sub