DATA PESERTA KUNJUNGAN INDUSTRI 2017

STMIK Pringsewu kembali mengadakan kegiatan kunjungan industri yang dilaksanakan pada tanggal 15 sampai dengan 20 Januari 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 15 s/d 20 Januari 2017 berjumlah 200 orang.
SILAHKAN UNDUH DAFTAR PESERTA : DATA PESERTA KI-2017 JOGJA BANDUNG
Filed in: Info Kampus, Info Penting, Teknologi, Umum

Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS PROGRAM A

Gambar
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk.SetFocus txtnk = "" txtnik = "" txtgol = "" txtkstat = "" txtstatus = "" txttahun = "" txtjbt = "" txtbagian = "" txtgapok = "" txttunjangan = "" txttotg = "" End Sub Private Sub cmdproses_Click() Dim V As String txttahun = Left(txtnik, 4) V = Mid(txtnik, 7, 1) If V = "S" Then txtkstat = "S" txtstatus = "Single" ElseIf V = "M" Then txtkstat = "M" txtstatus = "Menikah" ElseIf V = "J" Then txtkstat = "J" txtstatus = "Janda" ElseIf V = "D" Then txtkstat = "D" txtstatus = "Duda" End If Dim S As String S = Right(txtnik, 3) If S = "KEU" Then txtbagian = "Accounting" ElseIf S = "ADM" Then txtbagian = "Administrasi&quo
Baca selengkapnya

TUGAS PROGRAM H

Gambar
Private Sub cbokode_Click() Dim A, M As String Select Case cbokode Case "P205" A = "Pentium II 500 Mega Hz" M = "1500000" Case "P308" A = "Pentium III 800 Mega Hz" M = "2100000" Case "P310" A = "Pentium III 1.0 Giga Hz" M = "3500000" Case "P415" A = "Pentium IV 1.5 Giga Hz" M = "4000000" Case "P417" A = "Pentium IV 1.7 Giga Hz" M = "4200000" Case "P419" A = "Pentium IV 1.9 Giga Hz " M = "5500000" End Select txtjk = A txths = M txtjj.SetFocus End Sub Private Sub Command1_Click() txthp = Val(txtjj) * Val(txths) If txthp >= 30000000 Then txtdis = 0.15 * Val(txthp) ElseIf txthp >= 25000000 Then txtdis = 0.1 * Val(txthp) ElseIf txthp >= 20000000 Then txtdis = 0.05 * Val(txthp) ElseIf txthp >= 15000000 Then txtdis = 0.02 * Val(txthp) End If txthb = Val(txthp) - Val
Baca selengkapnya

TUGAS PROGRAM C

Gambar
Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttahun = "" txtpenerbit = "" txthg = "" End Sub Private Sub cmdproses_Click() Dim X As String txttahun = "20" & Right(txtkb, 2) X = Mid(txtkb, 3, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtp = "Andra Setiawan" txthg = "75900" ElseIf X = "EDP" Then txtjb = "Electronic Data Processing" txtp = "Desi Istiqomah" txthg = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtp = "Sandy Fitrajaya" txthg = "42000" ElseIf X = "CDR" Then txtjb = "Corel Draw" txtp = "Tri Indah Sari" txthg = "53000" ElseIf X = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtp = "Ernita
Baca selengkapnya