PROGRAM I



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"
End If
Dim Q As String
Q = Mid(txtnpm, 4, 2)
If Q = "01" Then
txtpstudy = "Strata Satu"
txtbp = "1950000"
ElseIf Q = "02" Then
txtpstudy = "Diploma Empat"
txtbp = "1750000"
ElseIf Q = "03" Then
txtpstudy = "Diploma Tiga"
txtbp = "1650000"
ElseIf Q = "04" Then
txtpstudy = "Diploma Dua"
txtbp = "1450000"
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
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