Tugas 3.2

Private Sub cmdbatal_Click()

CboKB.SetFocus

CboKB = ""

txtjb = ""

txtpr = ""

txttt = ""

txtpt = ""

txth = ""

CboKB = "Pilih Kode Buku"

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

CboKB.SetFocus

CboKB = ""

txtjb = ""

txtpr = ""

txttt = ""

txtpt = ""

txth = ""

CboKB = "Pilih Kode Buku"

End Sub

Private Sub cmdproses_Click()

Dim V, S As String

txttt = "20" & Right(CboKB, 2)

V = Mid(CboKB.Text, 3, 3)

If V = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpr = "Yati Nur Oktavia"

txth = "75900"

ElseIf V = "EDP" Then

txtjb = "Elektronic Data Proccesing"

txtpr = "Imam Tarmiji"

txth = "62000"

ElseIf V = "MNJ" Then

txtjb = "Manajemen"

txtpr = "Valentina Mariana"

txth = "42000"

ElseIf V = "CDR" Then

txtjb = "Corel Draw"

txtpr = "Riyan SUhandi"

txth = "53000"

ElseIf V = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpr = "Singa Umpu Singa"

txth = "83000"

End If

S = Left(CboKB, 1)

If S = "A" Then

txtpt = "Andi Offset Yogyakarta"

ElseIf S = "I" Then

txtpt = "Indah Surabaya"

ElseIf S = "S" Then

txtpt = "Salemba Empat"

ElseIf S = "E" Then

txtpt = "Elek Media Komputindo"

ElseIf S = "M" Then

txtpt = "Maxicom"

End If

End Sub

Private Sub Form_Load()

CboKB.AddItem "A-SIM-01"

CboKB.AddItem "I-EDP-02"

CboKB.AddItem "S-MNJ-03"

CboKB.AddItem "E-CDR-04"

CboKB.AddItem "M-RPL-05"

End Sub