Archive for the ‘IT POINTS’ Category

Sudah lama sekali setelah sekian lama tidak menekuni dunia programming..karena berkutat dengan pekerjaan di PT Essar Steel Indonesia sebagai seorang IT, ketika membuka BLOG ini yang juga sudah lama ga saya urusi…lihat coment banyak banget yang tanya tentang TA( Tugas Akhir ) saya yang berjudul Sistem Pendukung Penilaian Kinerja Karyawan dengan metode AHP.

Setelah saya telusuri lagi saya baru sadar, walau cuma ada 9 coment di Blog saya…Materi TA saya yang saya share di 4Shared sudah mencapai 131 Unduhan…kirain ga jauh2 dari 10-20 kok bisa jadi rame banget yang ngunduh…semoga mereka yang mengunduh dapat memanfaatkan dengan baik..tidak hanya copas tapi mencantumkan darimana sumber itu berasal..
Lihat gambar berikut :

Bagi anda yang ingin mempelajari Sistem pendukung keputusan dengan metode AHP anda dapat mengunduh file saya ini dan gunakan sebaik baiknya
http://www.4shared.com/file/173659689/2e8aca2e/SISTEM_PENDUKUNG_PENILAIAN_KIN.html

Salam
Bambang S.kom | Junior IT,Essar Steel Indonesia HAZ

Aplikasi yang sempat terhenti dan lama tidak dikerjakan akhirnya selesai Juga,,

walau sangat sederhana tapi bagus untuk melatih kemampuan coding.,terdapat fungsi terbilang dimana menterjemahkan total pembayaran ke bentuk kata kata.

dibuat dengan Visual Basic 6.0 dan Ms acces database

screen shot dr aplikasi pembayaran kasir ini sebagai berikut:

Setelah Lulus pendadaran..masih kangen neh sama coding Visual Basic 6.0 jadi saya berinisiatif membuat aplikasi baru

yaitu BOOK STORE APLICATION V1.1

  • MS Visual Basic 6.0
  • SQL SERVER 2000
  • Report

walaupun masih dalam tahap proses…tapi mudah mudahan bulan january nanti bisa selesai total.

bagi anda yang ingin memesan program ini dapat mengirim email ke be_shaker@yahoo.co.id

screen shot dari aplikasi ini sebagai berikut:

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

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 :

  1. Seluruh keluarga besar saya
  2. UII informatika
  3. PT Multiterminal Indonesia
  4. VB-BEGO Crew ( http://vb-Bego.net)

Dan ini adalah beberapa Tampilan Progam aplikasi yang telah saya buat

Menu Utama

Kelola Bobot Kriteria

Display Tugas Manager

Terima kasih ya Alloh SWT, dan semua yang mendukung ku selama Ini…

Amien ya Robbal Alamien

Untuk melihat Laporan dan dokumentasi Program dapat anda unduh di 4SHARED_SPPK_MANUAL

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…

 

 

Bagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.

Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak login (lebih…)