TUGAS 3.4 BUKU STMIK

Private Sub cmdbatal_Click()

cbokobu = ""

txtjubu = ""

txtperang = ""

txttabit = ""

txtpenerbit = ""

txtharga = ""

cbokobu.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokobu = ""

txtjubu = ""

txtperang = ""

txttabit = ""

txtpenerbit = ""

txtharga = ""

cbokobu.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokobu, 1)

If A = "A" Then

txtpenerbit = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

txtpenerbit = "Indah Surabaya"

ElseIf A = "S" Then

txtpenerbit = "Salemba Empat"

ElseIf A = "E" Then

txtpenerbit = "Elek Media Komputindo"

ElseIf A = "M" Then

txtpenerbit = "Maxicom"

End If

A = Mid(cbokobu, 3, 3)

If A = "SIM" Then

txtjubu = "Sistem Informasi Manajemen"

txtperang = "Yati Nur Oktavia"

txtharga = "75900"

ElseIf A = "EDP" Then

txtjubu = "Elektronik Data Processing"

txtperang = "Imam Tarmizi"

txtharga = "62000"

ElseIf A = "MNJ" Then

txtjubu = "Manajemen"

txtperang = "Valentina Mariana Adiwianti"

txtharga = "42000"

ElseIf A = "CDR" Then

txtjubu = "Corel Draw"

txtperang = "Riyan Suhandi"

txtharga = "53000"

ElseIf A = "RPL" Then

txtjubu = "Rekayasa Perangkat Lunak"

txtperang = "Sinta Umpu Singa"

txtharga = "83000"

End If

txttabit = "20" & Right(cbokobu, 2)

End Sub

Private Sub Form_Load()

cbokobu.AddItem "A-SIM-01"

cbokobu.AddItem "I-EDP-02"

cbokobu.AddItem "S-MNJ-03"

cbokobu.AddItem "E-CDR-04"

cbokobu.AddItem "M-RPL-05"

End Sub