Tugas visual basic 1.1





Komentar

Posting Komentar

Postingan populer dari blog ini

117 MAHASISWA STMIK PRINGSEWU MENGIKUTI POSDIKTI KLOTER 2

Gambar
STMIK PRINGSEWU  – Sebanyak 117 calon mahasiswa-mahasiswi STMIK Pringsewu mengikuti acara Program Orientasi Pendidikan Tinggi (POSDIKTI) kloter 2 di kampus Jalan Wisma Rini No. 09 Pringsewu, Jum’at (9/10). Kegiatan Program Orientasi Pendidikan Tinggi (POSDIKTI) Gel. II tahun 2015 dibuka dengan pembacaan ayat suci Al-Qur’an oleh Cahya Ari SB dan dilanjutkan menyanyikan lagu Indonesia Raya serta Mars Pringsewu. Program Orientasi Pendidikan Tinggi (POSDIKTI) kloter 2 tahun 2015 ini dibuka secara langsung oleh Ketua Yayasan, H. Fauzi, S.E., M.Kom., Akt., CA., di tandai dengan penyematan almamater pada perwakilan mahasiswa baru. POSDIKTI STMIK Pringsewu merupakan kelengkapan non-struktural pada kampus, posdikti berfungsi sebagai orientasi bagi mahasiswa baru untuk memasuki dunia perguruan tinggi yang berbeda dengan belajar di sekolah lanjutan, Mahasiswa baru dapat berkomunikasi dengan civitas akademika, bertujuan membekali mahasiswa baru agar mengenal dan mengetahui lingkunga...
Baca selengkapnya

TUGAS PROGRAM B

Gambar
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 =...
Baca selengkapnya

WISUDA BERSAMA STMIK DAN STIT PRINGSEWU 2017

Gambar
STMIK PRINGSEWU  – Ahad (15/10), penyelenggaraan acara wisuda STMIK Pringsewu dan STIT Pringsewu berjalan lancar dan sukses. Wisuda tersebut merupakan wisuda ke-18 yang dilaksanakan oleh STMIK Pringsewu dan wisuda ke-3 STIT Pringsewu. Acara wisuda STMIK Pringsewu program studi S1 Sistem Informasi diikuti oleh 349 orang wisudawan/i, D3 Manajemen Informatika diikuti 24 orang wisudawan/i, sedangkan jumlah wisudawan dari STIT Pringsewu sebanyak 39 orang wisudawan/i, mereka merupakan Sarjana Pendidikan Islam dari Program Studi Manajemen Pendidikan Islam. Perhelatan tersebut dilaksanakan secara bersamaan di GOR Kabupaten Pringsewu. Perhelatan tersebut dihadiri Bupati Pringsewu H. Sujadi, Ketua MUI, Polres, Kodim, dan APTISI. Acara wisuda bersama STMIK Pringsewu dan STIT Pringsewu dimulai pada pukul 09.00 WIB sampai selesai, dibuka secara langsung oleh ketua Yayasan Lembaga Pendidika Startech Pringsewu Dr. H. Fauzi. Bupati Pringsewu H. Sujadi dalam sambutann...
Baca selengkapnya