PENERIMAAN MAHASISWA BARU


PENERIMAAN MAHASISWA BARU

Written by admin | April 6, 2017 | 0

STMIK PRINGSEWU – Untuk pendaftaran PMB 2017 STMIK Pringsewu terdapat 2 cara yaitu pendaftaran langsung di STMIK Pringsewu dan melalui websitehttp://pmb.stmikpringsewu.ac.id/

Filed in: BEM, Info Kampus, Info Penting, Umum


Komentar

Posting Komentar

Postingan populer dari blog ini

Program I

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdproses_Click() Dim Z As String txttahun = "20" & Left(txtnpm, 2) txtnurut = Right(txtnpm, 3) Z = Mid(txtnpm, 3, 1) If Z = "1" Then txtjurusan = "Sistem Informasi" ElseIf Z = "2" Then txtjurusan = "Teknik Informatika" ElseIf Z = "3" Then txtjurusan = "Manajemen Informatika" ElseIf Z = "4" Then txtjurusan = "Manajemen & Komp.Akuntansi...
Baca selengkapnya

Program G

Gambar
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdproses_Click() Dim X As String txttt = "20" & Mid(txtkb, 5, 2) X = Left(txtkb, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpeng = "Fadiya Ulfa" txth = "75900" ElseIf X = "EDP" Then txtjb = "Electronik Data Processing" txtpeng = "Nurul Agustina" txth = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtpeng = "Rian Hidayat" txth = "42000" ElseIf X = ...
Baca selengkapnya

Program F

Gambar
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" End Sub Private Sub cmdproses_Click() txttp = Val(txtht) * Val(txtjt) End Sub Private Sub txtkt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjt.SetFocus End If Dim k As String k = txtkt If k = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf k = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf k = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf k = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If End Sub
Baca selengkapnya