Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.2

Private Sub cmdBatal_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdProses_Click()
Dim kode As String

kode = Mid(Cbokode.Text, 3, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Yati Nur Oktavia"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Imam Tarmizi"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Valentina Mariana Adiwianti"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Riyan Suhandi"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Sinta Umpu Singa"
TxtHarga.Text = "83000"
End If

kode = Left(Cbokode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Right(Cbokode.Text, 2)
End Sub

Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False

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



Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

SEMINAR PENERAPAN ILMU PENGETAHUAN DAN TEKNOLOGI DALAM BIDANG PENDIDIKAN DAN PENELITIAN

STMIK PRINGSEWU  – Rabu (14/3), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan SEMINAR “Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian” yang dihadiri bapak/ibu dosen STMIK Pringsewu dan mahasiswa/i STMIK Pringsewu. Sebagai narasumber STMIK Pringsewu mendatangkan  Dr. Ribhan, S.E., M.Si.  Seminar tersebut merupakan rangkaian kegiatan yang diselenggarakan STMIK Pringsewu dalam rangka HUT Kabupaten Pringsewu ke-9. Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian tersebut dibuka oleh Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M didampingi Bapak/Ibu Dosen dan jajaran Badan Eksekutif Mahasiswa STMIK Pringsewu. Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M dalam pembukaan seminar tersebut mengatakan, seminar ini dimaksudkan untuk berbagi hasil serta berdisku...
Posting Komentar
Baca selengkapnya

Online Training, Cara Bijak untuk Meningkatkan Kompetensi Tanpa Harus Beranjak

Liputan6.com, Jakarta  Saat ini banyak organisasi yang ‘melirik’  online training  sebagai  alternative  pembelajaran yang dapat digunakan untuk meningkatkan kompetensi karyawan mereka, hal ini dibuktikan dengan pertumbuhan jumlah pembelajar aktif yang mengikuti  online training  yang kian meningkat. Program  online training  PPM Manajemen saja telah diikuti oleh ribuan pembelajar mandiri yang tidak hanya tersebar di seantero nusantara, bahkan hingga ke Inggris, Yaman, dan Dubai. Pagi itu di ballroom sebuah hotel di bilangan Jakarta Pusat, sederatan meja telah tersusun rapih, satu-persatu peserta pelatihan memasuki ruangan yang telah ditata sedemikian rupa sehingga  diharapkan menumbuhkan rasa nyaman untuk belajar. Folder tebal yang bersisi materi pelatihan pun telah siap di atas meja. Sejurus kemudian seluruh kursi telah terisi. Sebagian besar dari peserta berasal dari luar Jakarta, uniknya walaupun pelatihan tersebut tentang pen...
Posting Komentar
Baca selengkapnya

MAHASISWA STMIK PRINGSEWU GELAR BAZAR

STMIK PRINGSEWU  – Sabtu (31/3), Mahasiswa Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menggelar bazar kewirausahaan di Pendopo Pringsewu yang beralamat di Jalan Jenderal Sudirman, Pringsewu Barat, Pringsewu, Kabupaten Pringsewu. Bazar kewirausahaan tersebut dibuka Dedi Irawan selaku dosen pengampu mata kuliah Kewirausahaan, beliau mengatakan, kami selaku dosen sangat mengapresiasi kegiatan positif ini. Bazar ini tujuannya adalah untuk membina silahturahmi dalam suasana yang berbeda dan menumbuhkan semangat kewirausahaan. Konsep kewirausahaan juga merupakan program Pemerintah yang sedang dilaksanakan saat ini. Bagaimana menumbuhkan kewirausahaan itu disemua lini termasuk mahasiswa. Karena mahasiswa nanti orientasinya setelah lulus tidak hanya mencari pekerjaan tapi mereka bisa menciptakan lapangan pekerjaan sendiri, selain itu kegiatan tersebut merupakan rangkain kegiatan yang dilakukan dalam rangka HUT Kabupaten Pringsewu ke-9, ucapnya. Sementa...
Posting Komentar
Baca selengkapnya