Komputer kampus

Anda sedang di : HomePemrograman › Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0

Artikel Berdasarkan Tag   hacking     cms lokomedia     google     template     email     materi kuliah     ubuntu     backtrack 5     windows xp     windows 7     database     visual basic     foxpro     opensuse     netbeans     STMIK Indonesia     domain     hosting     SEO     adsense     HTML     CSS     Javascript     PHP     lainnya     bisnis online     tips dan trik     internet     tutorial     hiren boot cd     virtualbox     flashdisk     facebook     website     cracking    

Raja Minyak Lintah Kalimantan Selatan Asli

Berkhasiat : Membantu Masalah Pria Dalam Berhubungan Intim
Hasil Maksimal Hanya Pemakaian 1 - 2 Minggu
Raja Minyak Lintah Asli Kalimantan Original Berkhasiat Raja Minyak Lintah Asli Kalimantan Original Berkhasiat

Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0

Diposting oleh : Hazmi Fadhilah
Sabtu, 28 Januari 2012 - 13:16:44 WIB - Kategori: Pemrograman - Dibaca: 13585 kali

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

Artikel ini juga saya post di blog saya : http://fadilcrows.blogspot.com/2012/01/program-keterangan-nrp-sederhana.html
 
 
DOWNLOAD CONTOH PROGRAM
http://komputerkampus.com/file/34nrpvisual.rar/



    Via FeedBurner
Cara Menghilangkan (Hapus) Url Home disetiap Halaman Awal CMS Lokomedia
Bagi anda-anda yang masih belum mencoba CMS Lokomedia penulis menyarankan untuk mencobanya, ..
Contoh Program Absensi Sederhana Dengan Visual Basic 6.0
Setelah membahas tentang program simpan, edit dan hapus, pada artikel kali ini saya akan coba ..
Hack (reset) Password Login Windows (xp/vista/7) Dengan Tools Hiren Boot CD 15.0
Windows xp pernah melegenda menjadi terdepan dalam jajaran OS yang banyak digunakan masyarakat, ..
Koneksi Database MySQL Dengan Visual Basic 6.0
Setelah sekian lama vakum dari dunia blog karena banyaknya aktifitas yang saya lakukan  ..

Komentar Via Facebook :

2 Komentar via komputer kampus :

1

umar
08 Februari 2012 - 16:42:02 WIB

bagus2,, kalau bisa contoh program vb lainnya yah,,
thanks for share

2

mebel jati jepara
13 Mei 2016 - 22:02:02 WIB

Toko http://MebelJeparaKarya.wordpress.com dan
toko furniture http://goo.gl/EgLeQz dan
mebel jepara Murah http://Mebelonlinejepara.blogspot.com dan
Mebel Jepara Minimalis http://goo.gl/t2SFz dan
Toko http://Jeparaonline.angelfire.com dan
toko furniture http://goo.gl/YWciCq dan
Jeara http://Jeparaonline.weebly.com dan
Jepara Online http://goo.gl/VdxWcp dan
Kursi Jati http://Kursi-tamujati.blogspot.com dan
Kursi Tamu Jati http://goo.gl/Og21fa dan
Furniture http://furniturekujatijepara.blogspot.com dan
Furniture Jati Mebel http://goo.gl/zuCq7x dan
Mebelku http://mebelkujatijepara.blogspot.com dan
Mebel Jati Jepara http://goo.gl/un9i9v dan
Kursi Minimalis Murah http://kursitamujatimurah.blogspot.com/ dan
Kursi Murah http://goo.gl/FyoMbd dan
lanjut ke http://mebeljeparaterbaru.blog.com
KAMAR SET MEWAH http://goo.gl/ZiYKbJ
Kursi Tamu Mewah http://goo.gl/jKFSg5
Meja Makan Mewah


Form Komentar Via Komputer kampus :

Nama *
Email *
Web/blog
Komentar *
  Karakter yang masih tersedia.
Captcha *

Untuk menghindari kontak spam dan memastikan bahwa anda adalah seorang manusia, maka jawablah pertanyaan keamanan berupa foto sahabat disamping. Mohon maaf atas ketidak nyamanan ini

 

M Najamudin Ridha Kuliah di STMIK Indonesia Banjarmasin jurusan TI, mengenal internet di tahun 2009 yang saat itu cuma sekedar iseng-iseng bikin blog biasa, walaupun sebelumnya tidak suka membaca dan apalagi menulis (artikel) akhirnya mulai menyukai kedua hal tersebut.

Kategori Artikel


RSS Feed


Langganan RSS
komputerkampus.com


Cari Artikel



Statistik Web


Pengunjung hari ini : 59
Total pengunjung : 789358
Hits hari ini : 192
Total Hits : 4654794
Pengunjung Online : 4

Poling


Apa OS yang anda gunakan ?
windows (xp, vista, 7, 8 dll)
linux (all distro linux)
Mac OS
OS Lain

    Lihat Hasil Poling

Link Sahabat


http://bukulokomedia.com
http://fadilcrows.blogspot.com
http://najamudin1.blogspot.com
http://nahdisnape.blogspot.com

Link Lainnya