bahasa pemogrman buku 2

Private Sub CmdBatal_Click()
CboKode.SetFocus
CboKode = “Pilih Kode Buku”
TxtJudul = “”
TxtPengarang = “”
TxtTerbit = “”
TxtPenerbit = “”
TxtHarga = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = “Pilih Kode Buku”
TxtJudul = “”
TxtPengarang = “”
TxtTerbit = “”
TxtPenerbit = “”
TxtHarga = “”
End Sub

Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

Kode = CboKode
KodeBuku = Left(Kode, 3)
Select Case KodeBuku
Case “SIM”
Judul = “Sistem Informasi Manajemen”
Pengarang = “Fadiya Ulfa”
Harga = 75900
Case “EDP”
Judul = “Elektronik Data Processing”
Pengarang = “Nurul Agustina”
Harga = 62000
Case “MNJ”
Judul = “Manajemen”
Pengarang = “Rian Hidayat”
Harga = 42000
Case “CDR”
Judul = “Corel Draw”
Pengarang = “Siti Nur Khotimah”
Harga = 53000
Case “RPL”
Judul = “Rekayasa Perangkat Lunak”
Pengarang = “Winda Erlianti”
Harga = 83000
End Select
TxtJudul = Judul
TxtPengarang = Pengarang
TxtHarga = Harga

KodePenerbit = Right(Kode, 1)
Select Case KodePenerbit
Case “A”
Penerbit = “Andi Offset Yogyakarta”
Case “I”
Penerbit = “Indah Surabaya”
Case “S”
Penerbit = “Indah Surabaya”
Case “E”
Penerbit = “Elek Media Komputindo”
Case “M”
Penerbit = “Maxicom”
End Select
TxtPenerbit = Penerbit

KodeTahun = Mid(Kode, 5, 2)
Select Case KodeTahun
Case “09”
Tahun = “20” & KodeTahun
Case “10”
Tahun = “20” & KodeTahun
Case “11”
Tahun = “20” & KodeTahun
Case “12”
Tahun = “20” & KodeTahun
Case “13”
Tahun = “20” & KodeTahun
End Select
TxtTerbit = Tahun
End Sub

Private Sub Form_Load()
CboKode.AddItem “SIM-09-A”
CboKode.AddItem “EDP-10-I”
CboKode.AddItem “MNJ-11-S”
CboKode.AddItem “CDR-12-E”
CboKode.AddItem “RPL-13-M”
End Sub