Pada artikel kali ini saya akan membuat program sederhana untuk menampilkan keterangan dari NRP menggunakan fungsi select case dan mid, mungkin teman-teman sudah banyak yang tahu, ^_^ , tapi dengan artikel ini semoga bisa membantu teman-teman yang baru belajar vb.
Sekarang kita mulai pembahasannya,,, :)
Dalam Pengolahan data pada perguruan tinggi, setiap mahasiswa memiliki nomor identitas yang bersifat unik, seperti Nomor Registrasi Pokok (NRP). artinya setiap mahasiswa memiliki NRP yang berbeda dan tidak boleh ada yang sama.
NRP yang digunakan adalah bertipe string dengan panjang 10 karakter.
misalnya :
08.03.0629
NRP diatas memiliki arti karakter 08 adalah kode tahun angkatan, 03 adalah kode jurusan Sistem Informasi, dan 0629 adalah nomor urut mahasiswa. Jadi NRP tersebut adalah milik seorang mahasiswa STMIK Indonesia Banjarmasin jurusan Sistem Informasi, angkatan 2008, S1, dan nomor urutnya 0629.
Oke Langsung aja kita buat programnya..,
Pertama buat dulu desainnya seperti ini..,
Setelah itu ubah property name masing2 objek  text seperti ini :
text1 = txtnama
text2 = txtnrp
text3 = txttahun
text4 = txtjurusan
text5 = txturut
Kemudian klik 2 kali txtnrp, hingga muncul jendela kode untuk menuliskan kode program. 
lalu ketikkan kode program berikut :
Private Sub txtnrp_Change()
'Melakukan seleksi dari karakter ke 5
Select Case Mid(txtnrp.Text, 5, 1)
'jika karakter ke 5 nilai nya adalah 4, maka keterangan yang muncul pada txtjurusan adalah Teknik Informatika
Case "4"
    txtjurusan.Text = "Teknik Informatika"
Case "3"
    txtjurusan.Text = "Sistem Informasi"
Case "2"
    txtjurusan.Text = "Komputer Akuntansi"
Case "1"
    txtjurusan.Text = "Manajemen Informatika"
End Select
'untuk menampilkan keterangan tahun angkatan dari karakter pertama
txttahun.Text = 20 & Mid(txtnrp.Text, 1, 2)
'untuk menampilkan keterangan no urut dari karakter ke 7 dengan jumlah 4 karakter
txturut.Text = Mid(txtnrp.Text, 7, 4)
End Sub

jika sudah, coba jalankan programnya dan ketikkan nama dan NRP nya..,
maka akan tampil keterangan tahun angkatan, jurusan, dan no urut dari nrp yang kita inputkan.
Program keterangan NRP yg saya buat ini adalah untuk NRP STMIK Indonesia Banjarmasin,,jika teman-teman ingin membuat keterangan NRP dari perguruan tinggi lain, tinggal teman-teman kembangkan aja sesuai dengan keinginan teman-teman..,
selamat mencoba.., ^_^
 
[My-Blogs]