Membuat Kode otomatis pada Visual Basic 6.0
saya kasih trick buat kode otomatis…
misal untuk kode pelanggan sistem,kode buku atau lainyya.dimana mengecek dari kode database pada record terkahir..
misal var public koneksi = dbkoneksi, Jumlah otomatisasi kode dibatasi 1000 kode
dan kode akan ditampilkan pada textbox txtkode.text
public sub Buatkode()
dim tambah,SQL as string
SQL = “select id from Master “
set Rs = dbkoneksi.execute(SQL)
If Rs.BOF then
txtkode.text =”K001″
exit sub
else
Rs.Requery
if not (Rs.bof and Rs.eof) Then
kode = Rs!id
kode = val(Right(kode, 3))
kode = kode +1
end if
if val(kode) < 10 then
kode =”K00″& kode
txtkode.text = kode
elseif val(kode) < 100 then
kode =”K0″& kode
txtkode.text = kode
elseif val(kode) <1000 then
kode= “K” & kode
txtkode.text=kode
else Msgbox ” WES ono 1000 Kebak..delete sek!!!”
end if
end sub
Add comment November 21, 2009
Sistem Pendukung Penilaian Kinerja Karyawan dengan Metode Analytical Hierarchy Process(AHP)
ALHAMDULIllah selesai juga Project yang satu ini..walau rada sedikit lama tapi selesai juga..Aplikasi Client server ini dibuat dengan Visual Basic 6.0 Dan database SQLserver 2000
Terlalu Banyak Coding,Function dan prosedur ketika saya membuat aplikasi ini sehingga perlu waktu sedikit lama dan molor …tetapi selesai juga dan tinggal tunggu pendadaran…Ga kerasa lama juga GW kuliah..kwkwkkwkw…
Program Ini saya dedikasikan Untuk :
- Seluruh keluarga besar saya
- UII informatika
- PT Multiterminal Indonesia
- VB-BEGO Crew ( http://vb-Bego.net)
Dan ini adalah beberapa Tampilan Progam aplikasi yang telah saya buat



Terima kasih ya Alloh SWT, dan semua yang mendukung ku selama Ini…
Amien ya Robbal Alamien
Add comment November 15, 2009
Login Multiuser Berdasarkan hak akses user menggunakan Visual Basic
Saya Termasuk VB-lovers yang selalu exist menggunakan Visual Basic 6.0 ketika saya membuat aplikasi,, Karena ada beberapa request tentang pemrograman Visual Basic saya akan bagi-bagi ilmu yang bisa tentang Visual Basic.
Kali Ini saya akan membahas Bagaimana membuat pembedaan hak akses login menggunakan Visual Basic..Ketika membuat Menu dan submenu pada form Vibi sudah sangat familiar dengan faslititas Menu editor. Yang perlu diingat adalah name dari menu tersebut… Dari sini ketika kita membuat aplikasi dengan membuat hak akses yang berbeda, kita dapat memanfaatkan menu editor ini sebagai pembeda hak akses..
Logikanya sebagai berikut :
If Rs_ceklogin!level = “1″ then ‘—> misal level untuk admin menu nya dibawah ini(ingat name pada menu editor)
with Fmutama
.show
.MuMasterdata.enabled = true
.MuPencarian.enabled =true
.MuManageKeungan.enabled =false
Unload Me
end with
Elseif Rs_ceklOgin!level =”2″ ‘——> Misal Untuk karyawan
With Fmutama
.show
.MuPembayaran.enabled =true
.MuPemesana.enabled =true
.MuMasterdata.enabled = False
Unload me
End with
end If
Terima kasih…
Add comment November 15, 2009
How I’ve Made $3,000 in One Day!!!
How I’ve Made $3,000 in One Day!!!
Posted using ShareThis
Add comment Oktober 1, 2009
Coba Gamesku ini…mainkan dan temukan ANgka Yang Berarti Bagimu
Iseng ajahh…sebelumnya kita belum saling kenal hingga tau details informasi pribadi blogerss sekalian..
berpura -pura jadi MAGICIAN neh..saya mencoba menebak agka yang tentunya sangat berarti dalam hidup anda.
pertama Konsentrasi…kirimkan daya imaginasi ke saya…semoga saya bisa membacanya..
Mulai..ikuti langkah -langkah saya
1.. ingat tanggal lahir anda..simpan dulu
2. sekarang Kalikan dengan 4 Tanggal lahir anda ( tggl lahir X 4 )
3. next hasilnya DItambah dengan 13
4. next hasilnya dikalikan dengan 25
5. next hasilnya dikurangi 200
6. next hasilnya ditambah bulan Lahir anda
7.next hasilnya dikalikan 2
8.next hasilnya Dikurang 40
9.next hasilnya dikalikan 50
10. next hasilnya ditambah 2 digit terakhir tahun keliharan anda (misal 1985 = 85)
11. next hasilnya dikurang dengan 10.500
12.hasilnya ??? apakah angka yang berarti bagimu…?
Oh ya jangan sampe salah itung yah…
TRY it
11 comments Maret 4, 2009
Wah dapat Sertifikat Lagi…
Alhamdulillah..kini kesibukan udah mulai rada berkurang…Training CISCO yang seminggu 3X..dan malamnya selaku ada ujian Online selesai juga…
Bersyukur seh udah selesai ..tapi kadang kangen bercanda sama instruktur,teman training…
DAN dapet juga Sertifikat Local aCademy UII .. mau cari sertifikasi International..mungkin di ITB..Lumayan bagi Trainer yang CCNA 4 dapet Nilai 75 %
dapet potongan 80 %…kalo gag salah tuh sertifikasi harganya 2,5 jUTA…huh mahal banget…namanya juga international seh..
gw Pampangin deh hasil kerja keras pelatihan sekitar 4 bulan Di Local Academy UII..



Langkah Selanjutnya….SKRIPSI GO on……
6 comments Februari 25, 2009
Kesibukan Saat Ini…
Para Blogers yang budiman
udah lama banget gag update blog..hihihi..padahal tiap hari bisa online internet..tapi gag tau terlalu banyak kesibukan jadi lama gag buka wordpress..
akhirnya AMpir 6 bulan training CISCO local Academy,selesai juga..dan tinggal nunggu Certification aja.Amien
sekarang Tinggal Konsen sama Tugas akhir aku yang Berjudul “ Sistem Pendukung Penilaian Kinerja Karyawan dengan Metode Analytical hierarchy Process” ..dibangun dengan Visual basic dan MySQL Server.Udah Jalan hampir 3 bulan..UDAH masuk BAB III…:)
Semangat….Doakan saya ya teman-teman Biar Cepet Wisuda…
4 comments Februari 18, 2009