Aplikasi Gratis Dengan Menggunakan VB 6

Aplikasi Gratis Dengan Menggunakan VB 6


Mlm ini setelah udah lama gk posting ataupun memberi Tips,Tutorial,Jaringan Komputer, Nah ane mau ngasi link download aplikasi gratis nie......Mumpung ane lg baik, unduh nih ane dapet kumpulan source code VB a.k.a Visual basic 6. Buat yang lagi belajar atau mahasiswa yang lagi dapat tugas buat program dengan VB. Coba aja satu persatu kalau butuh tinggal sedot, dan bakal ane update!!! : berikut kumpulan source codenya :
Catatan ( kopi paste alamat dibawah ini ke Url Mozila )

1. Hotel

http://www.ziddu.com/download/8895846/Aplikasi_Pengelolaan_Hotel.rar.html

2. Jasa Bengkel

http://www.ziddu.com/download/8895847/AplikasiServiceKendaraan.rar.html

3. Penyewaan DVD

http://www.ziddu.com/download/8895848/Rental_DVD.rar.html

4. Koperasi

http://www.ziddu.com/download/8895959/Koperasi.rar.html

5. Program Stok Obat

http://www.ziddu.com/download/8895960/SistemPersediaanObat.rar.html

6. SMS Manager

http://www.ziddu.com/download/8895958/SMSManager.rar.html

7. Toko Komputer

http://www.ziddu.com/download/8896289/Retail_computer.rar.html

8. Koleksi SMS Gateway

http://www.ziddu.com/download/8930202/IndoprogSMS.zip.html

http://www.ziddu.com/download/8930203/xsmsgateway.zip.html

http://www.ziddu.com/download/8930204/Smart-SMS.zip.html

http://www.ziddu.com/download/8930205/smsgateway.zip.html

9. Program Penerimaan Mahasiswa Baru

http://www.ziddu.com/download/8896291/Penerimaan_Mahasiswa_Baru.zip.html

10. Program Penjualan Tiket Pesawat

http://www.ziddu.com/download/8896290/Penjualan_Tiket_Pesawat.rar.html

11. Rental video

http://www.ziddu.com/download/8896287/Rental_Video.rar.html

12. Program Rental DVD

http://www.ziddu.com/download/8896586/SISTEM_APLIKASI_RENTAL_DVD.zip.html

13. Program Pasien

http://www.ziddu.com/download/8896585/SISTEM_INFORMASI_PASIEN.zip.html

14. Program Rumah Sakit/ Puskesmas

http://www.ziddu.com/download/8896583/Rumah_Sakit.rar.html

15. Billing

http://www.ziddu.com/download/8896584/Visual_Basic_Billing.zip.html

16. Sistem Informasi Persediaan Barang

http://www.ziddu.com/download/8896582/SistemInformasiPersediaanBaran.rar.html

17. Sistem Informasi Persediaan Sepatu

http://www.ziddu.com/download/8896587/SistemInformasiPersediaanSepat.rar.html

18. Software Akuntansi menggunakan Excel

http://www.ziddu.com/download/8896654/software_aplikasi_akuntansi_ex.rar.html

19. Sistem Supermarket

http://www.ziddu.com/download/8896653/Supermarke1732534122004.zip.html

20. Bar Rest

http://www.ziddu.com/download/8896652/BarRest.rar.html

21. Bel Sekolah

http://www.ziddu.com/download/8584512/BelSekolah.zip.html

22. Aplikasi Karyawan PLN

http://www.ziddu.com/download/8584514/AplikasiKaryawanPLN.zip.html

23. Pendaftaran Sekolah

http://www.ziddu.com/download/8584513/PendaftaranSekolah.zip.html

24. Aplikasi Penjualan Koran

http://www.ziddu.com/download/8584546/SistemAplikasiPenjualanKoran.zip.html

25. Aplikasi Rumah Sakit

http://www.ziddu.com/download/8584515/SistemInformasiRumahSakit.zip.html

26. Aplikasi Gaji Karyawan

http://www.ziddu.com/download/8584511/Penggajian.rar.html

27. Aplikasi sidik Jari

http://www.ziddu.com/download/8930118/FingerPrintdtbase.ZIP.html

28. Sistem Pakar

http://www.ziddu.com/download/8930117/expertsystem.rar.html

29. Penjualan Tunai Kredit

http://www.ziddu.com/download/8930120/735464501b4bce254493cf17c1d14f14.rar.html

30. Penjualan Toko Komputer

http://www.ziddu.com/download/8930116/penjualan.rar.html

31. Penjualan Toko Retail

http://www.ziddu.com/download/8930119/retail.zip.html

Membuat file instalan atau .exe pada Visual Basic

Kali ini Tips Jaringan Komputer akan memberi tutorial Membuat file instalan atau .exe pada Visual Basic. Untuk membuat file setup dari project ini sangatlah mudah. Anda tinggal mengikuti ( Next dan OK saja ) wizard yang anda panggil dari : Start > Microsoft Visual Basic 6.0 > Microsoft Visual Basic 6.0 Tools > Package & Deployment Wizard.

Pada bagian ini anda menentukan lokasi dan nama project yang telah dibuat tadi, yaitu ( klik Browse ) pada folder C:/Loghis/Loghis.vbp Lalu komputer akan memproses perintah tersebut.

klik Next atau Enter saja.

Defaultnya, komputer akan menempatkan file setup tersebut sub folder Package dalam folder yang sama dengan lokasi file project-nya. Klik Next

Bila kita tidak akan menambahkan file lainnya, klik Next

Pilih Single cabs bila ingin file setup ( *.cab ) menjadi satu, atau Multiple cabs bila ingin di-split dalam ukuran tertentu. Klik Next.

adalah isian judul / title dari proses instalasi program. Next aja lagi.

adalah penempatan lokasi / shortcut dari file project yang ter-compile

gue juga bingung apa maksudnya. Next aja lagi ahh!!!

nih juga iya. Gak usah dibaca. Next teruuus!!

Nah kalo yang ini lah gue super tahu. Itu artinya proses telah selesai. Lalu.. FINISH, Man!
Sumber : Komunitas eLearning IlmuKomputer.Com, Imam Budi Kustanto

Kumpulan Scrip VB 6.0 Untuk Pemula

Saya adalah Seorang mahasiswa yg baru mengambil penjurusan Visual Basic Berbasis Clien Sarver.. nah berhubung lg anget-anget kuku makanya saya meberi cara Tips Trik ataupun tutorial  Kumpulan Scrip VB 6.0 Untuk Pemula
.Kita mulai aja dech......

Koneksi ke Database Ms SQL 2000

Membuat Database 'latih" di Ms. SQL Server 2000

1. Jalankan Service Manager, Start
2. Jalankan Enterprise Manager
3. Letakkan kursor pada salah satu Server , lalu klik Databases,
4. Buat sebuah database baru dengan cara klik menu Action > New Database.
5. Beri nama “latih”. Okay anda sudah memiliki satu database dengan nama “latih”

Membuat Table “siswa” pada Database “latih”

1. Klik menu Tools > SQL Server Query Analyzer
2. Ketikan script berikut :

CREATE TABLE siswa (
kode int IDENTITY (1, 1) NOT NULL ,
nama varchar (50) NULL ,
alamat varchar (50) NULL )

INSERT INTO siswa (nama, alamat) VALUES ('Adi’, 'Bandung')
INSERT INTO siswa (nama, alamat) VALUES ('Bagus', 'Bandung')
INSERT INTO siswa (nama, alamat) VALUES ('Clara', 'Jakarta')

3. Lalu Tekan F5. Okay anda sudah memiliki table “siswa” di database “latih” dengan 3 data record di dalamnya

Membuat Data Source Name (DSN) baru

1. Explore ke dalam Control Panel > Administration Tools > Data Source (ODBC)
2. Klik Tab System DSN > Add…
3. Pilih SQL Server > Finish
4. isikan sebagai berikut:

Name : dsn_latih
Server : [nama_server] – isikan sesuai dengan nama server pada SQL Server manager
Next…
How should SQL server verify the authenticity of the login ID ?
With windows NT authentication using the network login ID
Next…
Change the default database to : siswa
Next…
Finish.

Memuat User Interface di VB 06

1. Buat sebuah Standard EXE pada VB.6
2. Klik menu Project > Components
3. Beri tanda cek pada Microsoft ADO data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0, klik OK
4. Klik ganda Adodc pada General Toolbox
5. Klik kanan Adodc1 pada Form, lalu klik ADODC Properties
6. Isikan property pages sebagai berikut:

Klik Tab General
Use ODBC data Source Name : dns_latih
Klik Tab RecordSource
Command Type : 1 – adCmdText
Coammand text(SQL) : SELECT * FROM siswa
OK

7. Klik ganda DataGrid pada General Toolbox
8. Isikan pada Properties – Datagrid1 sebagai berikut:

DataSource: Adodc1

9. okay,..sekarang tekan F5, jika Datagrid1 terisi 3 data, itu artinya koneksi database berhasil.

Membuat Virus Mouse Dari VB6

Tips Jaringan Komputer.Saat ini sudah banyak sekali beredar virus-virus hasil anak bangsa. Yang mana orang akan semakin mudah membuatnya karena banyak sekali source code yang tersebar secara bebas. Pada tips kali ini akan kita buat sebuah program kecil yang bertujuan untuk mengisengi komputer teman. Jika anda mengembangkannya lebih lanjut maka akan menghasilkan sebuah virus yang cukup menjengkelkan.

Sebenarnya ini bukan sebuah virus. Ini hanya sebuah program kecil yang dibuat memakai Visual Basic 6 yang memanfaatkan komponen API milik windows sendiri. Mari kita praktekkan.

Buka program Visual Basic 6 anda dan buatlah form sekecil mungki. Dengan tujuan mouse tidak bisa bergerak diluar dari area mouse tersebut. Dan jangan lupa buat mode BorderStyle menjasi None agar form tidak bisa digerakkan. Selanjutnya masukkan coding berikut dalam form

Private Sub Form_Load()Dim client As RECT
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub

Lalu buatlah sebuah module dan masukkan coding berikut

Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Declare Sub GetClientRect Lib "user32" (ByVal hWnd _
As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib "user32" (ByVal hWnd _
As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
ByVal x As Long, ByVal y As Long)

Private Sub Form_Unload(Cancel As Integer) 'Jangan lupa yang ini!
ClipCursor ByVal 0&
End Sub

Public Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type

Public Type POINT
x As Long
y As Long
End Type

Selanjutnya tinggal anda compile menjadi file exe dan silakan anda coba sendiri.
Anda bisa membuat kemampuan program menjadi lebih hebat lagi dengan menambah coding menghilangkan program dari task manager. Dan jika anda ingin lebih usil lagi bisa dengan membuat sebuah entry di registry agar pada saat Starup program

Windows Locker

Nah kali ini Tips Jaringan Komputer.Akan memberikan sebuah sofwear yang lumayan lah to dipakai...lihat gambarnya

Nah kayak nya gk perlu panjang lebar deh gw jelasinnya cara dan tutorial nya. Dari gambar dan judulnya aja dah ketauan kan..... Penasaran????
download aja disini

Tips and Triks Visual Basic 6.0

Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...

>> Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _ Or KeyAscii = vbKeyBack _ Or KeyAscii = vbKeyDelete _ Or KeyAscii = vbKeySpace) Then Beep KeyAscii = 0 End If End Sub --> Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _ Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _ Or KeyAscii = vbKeyBack _ Or KeyAscii = vbKeyDelete _ Or KeyAscii = vbKeySpace)) Then Beep KeyAscii = 0 End If End Sub --> membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

--> Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

>>> Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

-- Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub

Tutorial Crystal Reports

Kali ini  saya akan memberi tutorial tentang cara tips,trik bla bla bla....Kita mulai aja ya
Crystal Reports adalah piranti standar untuk pembuatan laporan pada sistem operasi Windows, dimana cetakan/templete laporan yang dihasilkan dapat disertakan pada banyak bahasa pemrograman, untuk memudahkan crystal report disingkat CR

Prestasi yang di rasih CR tidak lepas dari sejarah perjalanan produk yang panjang. CR versi 8.5 dilunjurkan pada tahun 2001 (tahun peluncuran didasarkan pada tahun file User’s Guiode, maka dapat diperkirakan versi pertama CR diluncurkan pada tahun 1990-1992 dengan pola hitungan setiap versi membutuhkan waktu 1 tahun. Pada saat ini versi CR sudah pada versi 11, tetapi pembahasan pada tutorial ini, kita hanya membahas CR versi 8.5 karena lebih mudah dipahami.

Pada tutorial ini sy tidak akan menjelaskan tatacara instalasi CR 8.5, tetapi lebih membahas bagaimana merancang/mendesain laporan CR 85. dengan menggunakan database MySQL. Untuk lebih jelasnya klik disini

Untuk Memunculkan Fitur yang di Disable Virus

Berbagi pengalaman dalam judul Tips Jaringan Komputer 
gk perlu banyak cerita tips dan trik atau cara windows

Copy text berikut pada notepad atau text editor lainnya
lalu simpan dengan extention *.vbs di folder yang anda inginkan
lalu buka file tersebut.

Dim rg
en()
sub en()
keyreg = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\"
set rg = wscript.createobject("WScript.Shell")
rg.regwrite keyreg & "Policies\Explorer\NoFolderOptions","0","REG_DWORD" 'Buat munculin folder option
rg.regwrite keyreg & "Explorer\Advanced\HideFileExt", "0", "REG_DWORD" ' buat munculin ekstensi file
rg.regwrite keyreg & "Policies\System\DisableRegistryTools", "0", "REG_DWORD" ' enable Registry editor

rg.regwrite keyreg & "Policies\Explorer\NoRun", "0", "REG_DWORD" 'mengembalikan jendela run
rg.regwrite keyreg & "Policies\System\DisableCMD", "0", "REG_DWORD" ' Enable Commnd prompt
rg.regwrite keyreg & "Policies\System\DisableTaskMgr", "0", "REG_DWORD" 'Enable Task Manager
rg.regwrite keyreg & "Policies\Explorer\NoFind", "0", "REG_DWORD" ' enable Search option
MsgBox "UDAH BENER SEKARANG TINGGAL RESTART KOMPIE ATAU MINIMAL LOGOFF", vbInformation, "HTC"

Mengatasi Error ODBC's SQLInstallDriverManager Failed pada VB

Setelah sekian lama saya Tips Jaringan Komputer tidak pernah lagi bermain-main dengan Visual Basic 6.0
Akhirnya kangen juga dan coba aku Install lagi VB 6.0 kmaren malam.
Namun tidak seperti biasanya, Proses Instalasi kali ini tidak berjalan sebagaimana mestinya
Saya pikir mungkin karena terlalu banyak program yang saya install, hingga membuat proses installasi selalu gagal dengan pessan Error ODBC's SQLInstallDriverManager Failed.

Penasaran dengan pesan error tersebut, saya coba dengan meng-uninstall beberapa program yang berhubungan dengan ODBC, namun tetap saja pesan error tersebut muncul.

Akhirnya saya menyerah dan coba bertanya pada Mbah yang paling baik di Internet ...hehehe
siapa lagi kalau bukan Google...........
saya coba masukan keyword ODBC's SQLInstallDriverManager Failed
wow ternyata banyak juga yang pernah mengalami hal ini, dan kebanyakan dari luar Indonesia.
Setelah membaca dari beberapa situs/forum akhirnya saya menemukan salah satu solusi terbaik dari situs ini

Kalau dibaca dari judul topiknya sih tidak berhubungan dengan Visual Basic sama sekali.
Judul dari situs tersebut adalah : How To Tips: XP Service Pack setup failed with Access Denied
Tapi dari pembahasan forum lainnya memang merujuk ke situs ini bila ingin mengatasi masalah error intalling Visual Basic.

Akhirnya saya putuskan juga untuk mengikuti langkah dari situs tersebut..........
dan ternyata setelah saya ikuti semua langkah-langkahnya,
memang berhasil seratus persen........

Berikut kutipan solusinya yang saya terjemaahkan ke bahasa Indonesia dan sedikit saya modifikasi agar mudah dimengerti bagi anda yang membutuhkan solusinya.

Memperbaiki Permission pada Key Registry

1.Buka Notepad atau text editor lainnya, dan ketikkan perintah berikut ini, Lalu simpan dengan nama reset.cmd di folder C:\Program Files\Windows Resource Kits\Tools


subinacl /subkeyreg HKEY_LOCAL_MACHINE /grant=administrators=f
subinacl /subkeyreg HKEY_CURRENT_USER /grant=administrators=f
subinacl /subkeyreg HKEY_CLASSES_ROOT /grant=administrators=f
subinacl /subdirectories %SystemDrive% /grant=administrators=f

subinacl /subkeyreg HKEY_LOCAL_MACHINE /grant=systems=f
subinacl /subkeyreg HKEY_CURRENT_USER /grant=system=f
subinacl /subkeyreg HKEY_CLASSES_ROOT /grant=system=f
subinacl /subdirectories %SystemDrive% /grant=system=f

2. Lalu untuk menjalankan file tersebut, Klik START>>RUN
dan ketikan perintah ini "C:\Program Files\Windows Resource Kits\Tools\reset.cmd" lalu klik OK
biarkan hingga proses perbaikan selesai.

Setelah semua selesai coba untuk menginstall kembali program Visual Basic-nya.
Dari permasalahan dan solusi yang dibahas tadi mungkin saya pribadi menyimpulkan,
kalau ternyata Error-nya Instalasi Program Visual Basic saya dikarenakan Akses Registry/Registry permission yang dibatasi.
Ini mungkin dikarenakan oleh salah satu program yang pernah saya install sebelumnya.

So, mungkin juga tips dan trik ini bisa digunakan, bila suatu saat anda meng-install suatu program dan menemukan error Access Denied.

Cara Ampuh Mengatasi Worm & Virus yang Dibuat dengan Visual Basic

Buat para pengguna windows virus ini memang sangatlah menakutkan, karena hanya dengan bantuan program sesimpel note pad, bahkan bisa mengakibatkan kehancuran pada windows anda. Tapi buat para pengguna Linux hal ini bukanlah masalah, karena virus ini tidak akan mempan dalam linux. Tapi disini saya akan membagikan cara untuk mengatasi virus visual basic ini. Ikuti langkah dibawah ini:

* Buka my computer – tools – folder options
* Klik tab file types, scroll kebawah, cari extensi “vbs“
* Ubah default program yg digunakan untuk membuka file .vbs dgn mengklik tombol “change“
* Kita akan melihar bahwa program yg direkomendasikan untuk membuka file .vbs adalah Microsoft (r) Windows Based Script Host, ubah hal tersebut, scroll sedikit ke bawah, cari “notepad” dan klik OK. Dengan mengubah setingan diatas, setiap kali kita mengklik/membuka file .vbs, script virus yang ditulis didalam file .vbs tidak akan langsung dijalankan, melainkan akan ditampilkan oleh notepad, dan tentunya file tersebut tidak akan menginfeksi komputer kita .

Cara yg lebih extreme adalah dgn menghapus asosiasi file.vbs, caranya sama spt diatas, hanya saja saat kita menemukan asosiasi file .vbs bukan kita ubah asosiasinya dgn mengklik tombol change, tetapi dgn mengklik tombol “delete”, dgn begitu setiap kali kita mengklik file .vbs, akan muncul kotak “open with” untuk memilih program yg akan dipakai untuk membuka file .vbs tsb.

Cara yang lebih ekstrim lagi yaitu hapus file msvbvm60.dll atau msvbvm50.dll di folder windows, dijamin program-program buatan VB 5/6 g bkl jalan, dan hapus wscript.exe untuk mencegah script2 yang tidak diundang datang lagi. (ini berlaku utk win xp).