Aplikasi Pembayaran Kasir Toko sederhana

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:

New Aplication…Book Store(Aplikasi Toko Buku vb6.0)

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:

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

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 :

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

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

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…

 

 

How I’ve Made $3,000 in One Day!!!

How I’ve Made $3,000 in One Day!!!

Posted using ShareThis

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