PROGRAM B



Private Sub cmdp_Click()
txttt = "20" & Right(cbokb, 2)
Dim V, S As String
V = Mid(cbokb, 3, 3)
If V = "SIM" Then
txtjb = "Sistem Informasi Manajemen"
txtpr = "Yati Nur Oktavia"
txth = "75900"
ElseIf V = "EDP" Then
txtjb = "Electronic Data Processing"
txtpr = "Imam Tarmizi"
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 = "Sinta 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 Command2_Click()
cbokb.SetFocus
cbokb = ""
txtjb = ""
txtpr = ""
txttt = ""
txtpt = ""
txth = ""
cbokb = "Pilih Kode Buku"
End Sub
Private Sub Command3_Click()
Unload Me
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

Komentar

Posting Komentar

Postingan populer dari blog ini

ERY FOTO KEMAHASISWAAN MAHASISWA ORGANISASI PROFIL Web Blog Info Kampus Info Penting Resources Umum Info Nilai BEM Teknologi PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017 Written by admin | May 22, 2017 | 0 ABAH BAPAK PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan.PELANTIKAN BUPATI PRINGSEWU-2 Filed in: Info Kampus, Info Penting, Umum admin View all posts by admin → Leave a Reply Name (Required) Mail (will not be published) (Required) Website Submit Comment

Gambar
PRINGSEWU  – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. Filed in:   Info Kampus ,  Info Penting ,  Umum
Baca selengkapnya

STMIK PRINGSEWU GELAR PERLOMBAAN HUT RI KE-72

Gambar
STMIK PRINGSEWU  – Dalam rangka memperingati HUT ke-72 Negara Kesatuan Republik Indonesia, Badan Eksekutif Mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melaksanakan kemeriahan Hut Kemerdekaan Ke 72 RI di Kampus STMIK Pringsewu, mahasiswa merayakan HUT Kemerdekaan ke 72 RI dengan cara menggelar bermacam lomba yang diikuti oleh mahasiswa STMIK Pringsewu dari prodi Sistem Informasi dan Manajemen Informatika, Senin (21/8) Perlombaan yang digelar di halaman kampus, merupakan tahap dari serangkaian kegiatan yang sudah direncanakan oleh Badan Eksekutif Mahasiswa, kegiatan perlombaan ini diharapakan dapat menjadi ajang silahturahmi antar mahasiswa. Acara berlangsung penuh keakraban dan keceriaan. Tidak ada batas dan pembeda antara mahasiswa. Semua larut dalam suasana kemeriahan HUT RI. Selain itu juga agar perlombaan ini lebih menjaga kebersamaan dan juga diharapkan lomba ini menjadi refresing dan manfaatkan untuk bergembira bersama. Filed in:  
Baca selengkapnya

DATA PESERTA KI 2017 GEL. II

Gambar
STMIK Pringsewu kembali mengadakan kegiatan kunjungan industri yang dilaksanakan pada tanggal 10 sampai dengan 15 September 2017. Kunjungan industri adalah kegiatan tahunan yang diadakan oleh Perguruan Tinggi STMIK Pringsewu jurusan sistem informasi dan manajemen informatika sebagai salah satu cara untuk menambah ilmu dan pengalaman yang dibutuhkan dunia kerja yang belum didapatkan dalam perkuliahan. Dengan kunjungan industri mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika akan lebih mengetahui permasalahan-permasalahan yang ada secara langsung, sehingga mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika dapat menganalisis dan membandingkan ilmu-ilmu yang sudah dipelajari dalam perkuliahan dengan praktek yang ada dalam dunia kerja. Rombongan dosen pendamping dan mahasiswa mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika yang akan bertolak ke Jogja – Bandung pada tanggal 10 s/d 15 September 2017.
Baca selengkapnya