Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.4

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 = Left(Txtkode.Text, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Fadiya Ulfa"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Nurul Agustina"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Rian Hidayat"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Siti Nur Khotimah"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Winda Erlianti"
TxtHarga.Text = "83000"
End If

kode = Right(Txtkode.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" & Mid(Txtkode.Text, 5, 2)
End Sub

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


Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

PERINGATI HARI KARTINI SELURUH PETUGAS UPACARA STMIK PRINGSEWU ADALAH PEREMPUAN

STMIK PRINGSEWU  – Sebagai wujud rasa penghormatan kepada perjuangan pahlawan kita, Ibu Kartini, Sabtu, 21 April 2018 – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan Upacara Bendera Peringatan Hari Kartini ke-139 dihalaman Kampus STMIK Pringsewu. Upacara Hari Kartini di halaman kampus ini dihadiri bapak/ibu dosen dan mahasiswa. Menariknya, dalam upacara ini, seluruh petugasnya adalah perempuan. Bertindak sebagai inspektur upacara Wakil Ketua I Elisabet Yunaeti A, M.T.I. Dalam amanatnya, Elisabet meminta agar momen hari Kartini jadi tonggak kebangkitan para perempuan, perempuan bisa meraih prestasi seperti kaum laki-laki. Jadi, mari kita jadikan momen ini untuk bangkit sekaligus instrospeksi diri, ucapnya. Setelah upacara selesai, akan dilaksanakan lomba membuat nasi goreng antar mahasiswa bertempat di halaman kampus.( *na ) Filed in:   BEM ,  Info Kampus ,  Umum
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU GELAR SARASEHAN KEBANGSAAN

STMIK PRINGSEWU  – Sabtu (28/4), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan sarasehan kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” bertempat di Aula Lt. II Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Sarasehan Kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” menghadirkan narasumber Kombes Pol Yosi Hariyoso (Kepala Biro Operasi Polda Lampung), Ken Setiawan (Mantan Komandan Negara Islam Indonesia) dihadiri Kepala Kesbangpol Pringsewu Sukarman, Wakil Ketua I Bidang Akademik Elisabet Y. A, M.T.I, Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin, M.T.I, Ka. LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I serta bapak ibu dosen STMIK Pringsewu. Sarasehan Kebangsaan dibuka Wakil Ketua III Bidang Kemahasiswaan STMIK Pringse...
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU Raih Sinta Awards 2018

STMIK PRINGSEWU  berhasil meraih Science and Technology Index (Sinta) Awards Tahun 2018 sebagai institusi dengan produktivitas publikasi dari Kementerian, Riset, Teknologi, dan Pendidikan Tinggi (Kemenristek Dikti). Penghargaan diterima oleh Ketua LLPM STMIK Pringsewu M. Muslihudin, M.T.I di Auditorium Gedung D Kemenristek Dikti RI, Jakarta, Rabu (4/7). “Sinta Awards 2018 ini dipersembahkan untuk segenap sivitas akademika STMIK Pringsewu yang sangat gigih meningkatkan publikasi ilmiah hasil penelitian dan pengadian masyarakat,” ujarnya. Menurutnya, Sinta Awards sebagai ajang yang positif untuk motivasi peningkatan publikasi ilmiah dan merupakan prestasi gemilang sivitas akademisi STMIK Pringsewu dalam produktivitas publikasi ilmiah. STMIK Pringsewu memiliki Produktifitas Publikasi yang membanggakan yaitu berdasarkan penilaian dalam jangka waktu 3 Tahun terahir 2016-2018 STMIK Pringsewu Masuk 100 Top Affilation yaitu dengan Peringkat 77 dan dengan Score Nilai 92. “Kami b...
Posting Komentar
Baca selengkapnya