Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0

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..,