Cara Pembuatan Minimize To Try Memakai Visual Basic 6.0 (Vb6)

Kita sering menjumpai sebuah icon kecil yang terletak dikanan pojok bawah pada PC anda (Taskbar), dapat dikatakan aplikasi tersebut tetap running dengan ditandai icon aktif tetapi tidak tampil di layar PC (desktop) anda, source code kali ini wacana Cara Pembuatan Minimize to Try Menggunakan Visual Basic 6.0 (VB6). Buatlah project – Form pada Ms. Visual Basic 6.0 (VB6) tambahkan satu commandButton pada form tersebut dan tambahkan pula Module untuk mempublikasikan function dan variabel pada project.

Cara Pembuatan Minimize To Try Memakai Visual Basic 6.0 (Vb6)

Kurang lebihnya tampilan menyerupai diatas, lalu buatlah Menu Editor, untuk langkah-langkahnya menyerupai urutan nomor pada gambar dibawah ini
Copas coding dibawah ini dan pastekan ke dalam Module yang sudah dibuat 

Public Declare Function Shell_NotifyIcon Lib “shell32” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Copas juga coding dibawah ini pada form dengan catatan diubahsuaikan dengan letak dan mekanisme pada form tersebut

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Sys As Long
Sys = x / Screen.TwipsPerPixelX
Select Case Sys
Case WM_LBUTTONDOWN: Me.PopupMenu mnuSystray
End Select
End Sub

 Private Sub Form_Resize()
If WindowState = vbMinimized Then
    Me.Hide
    Me.Refresh
    With nid
    .cbSize = Len(nid)
    .hwnd = Me.hwnd
    .uId = vbNull
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    .uCallBackMessage = WM_MOUSEMOVE
    .hIcon = Me.Icon
    .szTip = Me.Caption & vbNullChar
    End With
    Shell_NotifyIcon NIM_ADD, nid
Else
    Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuRestore_Click()
WindowState = vbNormal
Me.Show
End Sub

Simpan dan Jalankan (Run)/F5, klik tombol akan secara otomatis form akan hilang dan coba dilihat dipojok kanan bawah *taskbar) akan muncul icon yang sama pada form. Untuk sourcodenya dapat didownload di LINK INI

Menampilkan Thumb File Image Memakai Visual Basic 6.0 (Vb6)

Thumb ialah merubah suatu file dengan tampilan menjadi large icon (icon besar) dengan begitu akan tampak pada file-file tersebut berupa layout gambar-gambar kecil khususnya untuk file jenis image pada windows sudah tidak abnormal dan kerap kali kita jumpai sewaktu kita akan menampilkan file yang berjenis image didalam komputer, dan kali ini admin akan share sebuah source code Visual Basic 6.0 (VB6)  wacana cara Menampilkan Thumb File Image Menggunakan Visual Basic 6.0 (VB6)
Menampilkan Thumb File Image Memakai Visual Basic 6.0 (Vb6)

Seperti interface diatas fungsi Thumb Image sangat memudahkan kita dalam mengindentifikasi jenis image yang mana akan kita selected, untuk diupdate atau yang lainnya dan kali ini admin tidak akan panjang lebar menjelaskan, untuk sourcodenya dapat agan-agan download secara free di LINK INI

Cara Buat Encrypt Dan Decrypt Vb6

Encrypt merupakan penyamaran data dengan tujuan data tersebut tidak dapat dikenali sedangkan Decrypt mengembalikan data yang disamarkan menyerupai semula, secara logika pengertian dari dua kata diatas menyerupai itu, untuk Encrypt dan Decrypt gotong royong telah dibahas pada artikel sebelumnya adalah Encrypt dan Decrypt Password MD5 MySQL, tetapi kali ini sangat berbeda dan memakai versi Ms. Visual Basic 6.0
Buka Ms. Visual Basic 6.0 – StandartEXE dan buatlah sebuah form jangan lupa tambahkan beberapa komponen menyerupai TextBox, Label, CommandButton dan buat juga sebuah Module, menyerupai gambar berikut : 
Cara Buat Encrypt Dan Decrypt Vb6
Copykan syntak function berikut ke dalam module
#Const CASE_SENSITIVE_PASSWORD = False
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
    strPwd = UCase$(strPwd)
#End If

‘Encrypt string
If Len(strPwd) Then
    For i = 1 To Len(strText)
        C = Asc(Mid$(strText, i, 1))
        C = C + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
        strBuff = strBuff & Chr$(C And &HFF)
    Next i
Else
    strBuff = strText
End If
    EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If

‘Decrypt string
If Len(strPwd) Then
    For i = 1 To Len(strText)
        C = Asc(Mid$(strText, i, 1))
        C = C – Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
        strBuff = strBuff & Chr$(C And &HFF)
    Next i
Else
    strBuff = strText
End If
DecryptText = strBuff
End Function

Option Explicit
#Const CASE_SENSITIVE_PASSWORD = False
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
    strPwd = UCase$(strPwd)
#End If

‘Encrypt string
If Len(strPwd) Then
    For i = 1 To Len(strText)
        C = Asc(Mid$(strText, i, 1))
        C = C + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
        strBuff = strBuff & Chr$(C And &HFF)
    Next i
Else
    strBuff = strText
End If
    EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If

‘Decrypt string
If Len(strPwd) Then
    For i = 1 To Len(strText)
        C = Asc(Mid$(strText, i, 1))
        C = C – Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
        strBuff = strBuff & Chr$(C And &HFF)
    Next i
Else
    strBuff = strText
End If
DecryptText = strBuff
End Function

Selanjutnya double klik pada CommandButton dan copykan syntak dibawah ini

Label2.Caption = EncryptText(Text1.Text, “ContohEncryptDecrypt”)
Label4.Caption = DecryptText(Label2.Caption, “ContohEncryptDecrypt”)

Kemudian simpan dan Run/F5, inputkan beberapa huruf ke dalam TextBox dan klik tombol proses, maka encrypt dan decrypt akan bekerja, gampang bukan dalam menyamarkan dan mengembalikan data dengan metode Encrypt dan Decrypt

Cara Buat Encrypt Dan Decrypt Vb6

 

Menambahkan Icon Pada Menubar

Icon merupakan suatu file berformat image dan berekstensi ico, ini sering dipakai khususnya programmer dalam pembuatan aplikasi apapun untuk mempercantik interface dari suatu aplikasi baik pada menubar, button, ribbon dan masih banyak yang lainnya.

Menambahkan Icon Pada Menubar
Menubar dengan penambahan icon

Gambar diatas merupakan hasil modifikasi menubar (menu editor) pada Ms. Visual Basic 6.0 (VB6) dengan menambahkan icon-icon sebelum caption menu. Terlihat sangat berbeda dengan menubar standar (tanpa dilengkapi icon-icon). Icon-icon tersebut sanggup diubah atau dimodifikasi sesuai dengan selera. 

Bagi yang berminat untuk menyebarkan lebih baik lagi atau hanya untuk tumpuan pembelajaran admin persilahkan download source code Menambahkan Icon pada Menubar secara free pada LINK INI

Cek Memory Status (Ram) Penggunaan

Didalam sebuah Sistem atau aplikasi kalau diproses atau dirun akan memakai Memory didalam PC sebagai penunjang proses aplikasi tersebut, apakah kita tahu berapakah yang dipakai dalam menjalankan aplikasi, kali admin akan share sourcode mungil untuk mengetahui status memori (RAM) yang sedang digunakan.
Cek Memory Status (Ram) Penggunaan
Buka Ms. Visual Basic 6.0 – StandarEXE dan buatlah sebuah form dan module. Untuk form tambahkan 2 buah label dan Timer, yaitu

1. Label1 (name : lblPMem)
2. Label1 (name : lblVMem)
3. Timer1 (name : Timer1)

Copykan syntak dibawah ini ke dalam Module

Public Declare Sub GlobalMemoryStatus Lib “kernel32” (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
Public MEM_STAT As MEMORYSTATUS

Setelah itu double klik Timer yang berada di form kemudian pastekan syntak dibawah ini : 

Call GlobalMemoryStatus(MEM_STAT)
lblPMem.Caption = ” Physical Memory : ” & Format((MEM_STAT.dwAvailPhys / 1024) / 1024, “#,##0.0″) & ” MB “
lblVMem.Caption = ” Virtual Memory : ” & Format((MEM_STAT.dwAvailVirtual / 1024) / 1024, “#,##0.0″) & ” MB “

Untuk interval yang dipakai pada komponen Timer1, dapat sesuai selera agan-agan saja, tetapi disini admin memakai 5, sesudah semuanya selesai, simpan RUN/F5, akan terlihat Physical Memory dan Virtual Memory.

Klik Tombol Dengan Key Pada Keyboard (Shoot Key)

Dalam menjalankan sebuah aplikasi terkadang user lebih menentukan menjalankan perintah memakai key pada keyboard daripada mengklik memakai mouse hal ini sudah tidak gila lagi, menyerupai disaat user mengoperasikan microsoft word dan menciptakan sebuah dokumen tentunya document tersebut akan disimpan, biasanya lebih nyamaan dan cepat dengan menekan key CTRL + S pada keyboard (shoot Key) daripada harus memakai mouse mengklik icon Save.

Pada pembahasan sebelumnya pernah admin suguhkan sourcode yang memakai key untuk menjalankan perintah Blok Seluruh Cell Listview dengan Keyboard, kali ini akan admin bahas kembali lebih detail. Buka Ms. Visual Basic 6.0 – StandarEXE lalu buatlah sebuah form dan tambahkan beberapa CommanButton pada form tersebut menyerupai gambar dibawah ini : 

Klik Tombol Dengan Key Pada Keyboard (Shoot Key)

Jika sudah lalu double klik pada Form pilih mekanisme Form_Load dan copykan syntak dibawah ini

Me.KeyPreview = True

Masih pada mekanisme Form_Load lalu ganti dengan dengan KeyDown dan copykan juga syntak dibawah ini

Select Case KeyCode
Case vbKeyF1
    MsgBox “Anda mengklik tombol ” & Command1.Caption & ” Kode Key : ” & KeyCode, 64, “Informasi”
          
Case vbKeyF2
    MsgBox “Anda mengklik tombol ” & Command2.Caption & ” Kode Key : ” & KeyCode, 64, “Informasi”
  
Case vbKeyF3
    MsgBox “Anda mengklik tombol ” & Command3.Caption & ” Kode Key : ” & KeyCode, 64, “Informasi”

Case vbKeyF4
    MsgBox “Anda mengklik tombol ” & Command4.Caption & ” Kode Key : ” & KeyCode, 64, “Informasi”
          
Case Else
    MsgBox “Anda mengklik tombol ” & KeyCode, 64, “Informasi”
End Select

Simpan dan Jalankan/RUN, tekan tombol pada keyboard sesuai degan caption commanButton maka akan keluar Pesan menampilkan key apa yang anda tekan.

Klik Tombol Dengan Key Pada Keyboard (Shoot Key)

Bagi yang minat untuk mendownload sourcode diatas, sanggup didownload di LINK INI, secara free dan biar sourcode ini sanggup bermanfaat.

Simpan, Update, Hapus Dan Cetak Mysql Server

Pada kesempatan ini admin akan mengetengahkan sourcode simple ialah Simpan, Update, Hapus dan Cetak MySQL Server, database yang kali ini dipakai ialah database MySQL Server. Secara garis besar dalam pembuatan system apapun itu harus tetap memakai perintah Simpan, Update, Hapus dan Cetak. Perintah ini merupakan modal dasar utama dari berdirinya suatu sistem dari keempat perintah tersebut maka sistem sanggup menghasilkan input dan output yang berupa isu yang diharapkan oleh user. Komponen yang dipakai dalam pembuatan sourcode ini
1. Crystal Report Control
2. Microsoft Windows Common Controls 6.0 (SP6)
3. MySQL Server sebagai media database penyimpanan data
4. Crystal Report 8.5 sebagai media pelaporan
5. CommanButton
6. Label
7. TextBox
8. 2 Buah Module

Simpan, Update, Hapus Dan Cetak Mysql Server

Designlah form sebagus mungkin dan berdasarkan kreasi agan-agan dengan menambahkan komponen-komponen pendukung ibarat gambar diatas. Selain itu juga didalam sourcode ini sengaja admin tambahkan kemudahan ShortKey, jadi agan-agan sanggup pribadi menekan tombol keyboard tanpa harus mengklik tombol pada form diatas dengan catatan tombol keyboard tersebut sesuai dengan Caption tombol tersebut. Selain itu juga ada ada syntak untuk memvalidasi hanya karakter-karakter yang valid saja sanggup diinputkan pada textBox diatas. Untuk lebih jelasnya agan-agan sanggup download sourcode Simpan, Update, Hapus dan Cetak MySQL Server ini di LINK INI secara free

Export Data Listview Ke Ms Excel

Komponen Listview yang berasal dari Microsoft Windows Common Control 6.0 (SP6) – mscomctl.ocx ini memiliki banyak peranan dalam membangun sebuah sistem komputer, fungsi utama dari komponen ini ialah untuk menampilkan data dan data itu sendiri variatif ada yang hanya record tabel dari database, file-file pada komputer yang terletak disuatu direktori tertenu dan lain-lain. Pada pembahasan ini admin akan share source code Visual Basic 6.0 (VB6) dengan memakai komponen listview sebagai media menampilkan data dari tabel database yang selanjutnya data tersebut akan dieksport me Ms. Office Excel, Komponen-komponen yang diharapkan seperti 
1. Microsoft Windows Common Control 6.0 (SP6)
2. CommanButton
Untuk komponen References yaitu : 
1. Microsoft ActiveX Data Object 2.8 Library, sebagai pendukung koneksi ke database
2. Microsoft Excel 12.0 Object Library
Export Data Listview Ke Ms Excel
Buka Microsoft Visual Basic 6.0 – StandarEXE kemudian buatlah sebuah form dan module, kemudian tambahkan komponen ke dalam form yang telah dibuat, designlah sedemikian rupa supaya interface terlihat bagus, kurang lebihnya menyerupai tampilan interface diatas. Untuk database yang admin gunakan kali ini ialah versi Microsoft Access 2000 dengan nama database dbBuku dengan nama tabel BUKU, kemudian struktur dari file-filednya sebagai berikut

Field Name
Data Type
Field Size
NO
Text
255
TGL
Date/Time
IDBUKU
Text
50
NMBUKU
Text
255
JUM
Number
Long Integer
PENGARANG
Text
255
TH
Text
4
PUBLISER
Text
255
RAK
Text
255

Kemudian inputkan beberapa data ke dalam tabel yang telah dibuat, semakin banyak data semakin cantik tampilannya untuk memproses pengExporan ke Ms. Excel dan tampilan hasil dari export data diatas sebagai berikut
Export Data Listview Ke Ms Excel

Untuk sourcodenya sanggup eksklusif didownload di LINK INI secara free dan semoga sourcode Export Data Listview Ke Ms Excel ini sanggup menambah wawasan bagi pembaca dan materi acuan bagi yang ingin mengembangkannya

Membuat Sajian Ribbon Pada Visual Basic 6.0

Dalam membangun sebuah aplikasi tampilan interface dari sebuah aplikasi itu sendiri sangat penting dan perlu diperhatikan, contohnya tampilan dari suatu aplikasi memakai RIBBON menyerupai gambar diatas dari interfacenya saja sudah terlihat sedap dipandang mata tidak monoton dengan memakai tampilan biasa-biasa saja. Contohnya salah satu aplikasi yang sudah umum dan selalu kita jumpai sehari-hari dalam mengelola data komputer adalah Ms. Offcie 2007 ke atas bukankah lebih indah dan sedap dipandang mata dengan interface yang elegan.

Bahkan dalam tampilan interface windows 8 ke atas pun telah memakai RIBBON dalam jendela-jendela tampilannya menyerupai Explorer dan masih banyak lainnya.Untuk sourcode ini sengaja admin share bagi siapa saja yang berminat untuk mempercantik tampilan interface dari aplikasi yang dibangun

Admin tidak akan panjang lebar lagi menjelaskan RIBBON, bagi agan-agan yang berminat untuk mendownload dipersilahkan klik di LINK INI secara free, dan biar artikel ini sanggup bermanfaat bagi pembaca sekalian.

Tambah Icon Ke Subitems (Listview)

Pembahasan yang berafiliasi dengan komponen ListView telah diuraikan dibeberapa artikel sebelumnya oleh admin, tetapi kali ini sedikit berbeda. Data yang ditampilkan pada komponen ListView akan dibedakan dengan menambahkan icon, contohnya icon berjenis kelamin pria berbeda dengan icon berjenis kelamin wanita pada data yang tampila di ListView. 

Buat databasenya terlebih dahulu memakai Ms. Access 2000 dengan nama DBase kemudian tabel DOSEN untuk struktur field pada tabel dosen sebagai berikut

Field Name
Data Type
Field Size
NIDN
Text
255
NAMA
Text
255
JK
Text
10

Setelah tanggapan inputkan beberap data ke dalam tabel diatas, kemudian bedakan ada beberapa yang pria dan ada yang perempuan. Kemudian simpan disuatu folder terserah agan-agan mau taruh di path mana, yang terang nantinya project dari Ms. Visual Basic akan disimpan di dalam folder yang sama dengan database tersebut.

Buka Ms. Visual Basic – StandarEXE kemudian buatlah form kemudian tambahkan juga satu buah modul dan tambahkan komponen-komponen pendukung ibarat ListView dan ImageList ke dalam form yang telah dibentuk ibarat gambar dibawha ini

Tambah Icon Ke Subitems (Listview)

Klik kana pada komponen ImageList kemudian pilih Proerties maka akan keluar jendela Property Page dan pilihlah 2 buah icon yang ada di PC agan yang nantinya untuk membedakan jenis kelamin pria dan perempuan

Tambah Icon Ke Subitems (Listview)

Jika telah tanggapan langkah selanjutnya adalah klik kanan pada ListView kemudian pilih hidangan properties akan keluar jendela Properties Page kemudian pilih tab Image List pada Frame Icon Image List pilih pada combobox small komponen ImageList ibarat gambar yang ada kotak biru dibawah ini

Tambah Icon Ke Subitems (Listview)

Setelah itu kemudian klik OK, kemudian copy syntak koneksi ke database ke module yang telah kita buat diawal

Public CN As New ADODB.Connection
Public RsDosen As New ADODB.Recordset

Sub Koneksi()
If CN.State Then
   CN.Close
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DBase.mdb;Persist Security Info=False”
   CN.CursorLocation = adUseClient
Else
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DBase.mdb;Persist Security Info=False”
   CN.CursorLocation = adUseClient
End If
End Sub

Selanjutnya panggil Sub Koneksi pada mekanisme Form_Load dengan syntak Call Koneksi sehabis itu kita buat juga sub gres dengan nama Sub BooksDosen untuk menampikan data dengan ListView, syntaknya dibawah ini

Sub BooksDosen()
Dim LI As ListItem
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ListItems.Clear

Me.ListView1.View = lvwReport
Me.ListView1.Sorted = False
Me.ListView1.ColumnHeaders.Add , , “NIDN”, 1500
Me.ListView1.ColumnHeaders.Add , , “Nama Dosen”, 2000
Me.ListView1.ColumnHeaders.Add , , “J. Kelamin”, 2000

Set RsDosen = New ADODB.Recordset
RsDosen.Open “Select * From DOSEN”, CN, 1, 2
If RsDosen.RecordCount = 0 Then
   Me.ListView1.ListItems.Clear
Else
   RsDosen.MoveFirst
   While Not RsDosen.EOF
   If RsDosen.Fields!JK = “Pria” Then
     Set LI = Me.ListView1.ListItems.Add(, , RsDosen.Fields!NIDN, , 2)
   Else
     Set LI = Me.ListView1.ListItems.Add(, , RsDosen.Fields!NIDN, , 1)
   End If
       LI.SubItems(1) = RsDosen.Fields!NAMA
       LI.SubItems(2) = RsDosen.Fields!JK
   RsDosen.MoveNext
   Wend
End If
End Sub

Double klik pada Tombol Tampil dan panggil sub menampilkan data dosen dengan syntak Call BooksDosen sehabis itu simpan dan RUN/F5. Klik tombol Tampil maka data akan tampil dengan icon yang berbeda antara jenis kelamin pria dan perempuan.


Tambah Icon Ke Subitems (Listview)

Untuk sourcodenya dapat didownload di LINK INI secara free, agar bermanfaat

Subitems Listview Berwarna Selang Seling

Pada artikel kali ini admin akan share sedikit trik untuk mempercantik tampilan dari komponen Listview pada Microsoft Visual Basic 6.0 dengan menunjukkan warna pada Subitems Lisview Berwarna Selang Seling
Subitems Listview Berwarna Selang Seling
Langkah pertama buatlah sebuah form lalu tambahkan juga sebuah Module tetapi jangan lupa kita tambahkan juga komponen Microsoft Windows Common Controls 6.0 (SP6) untuk Listview dan komponen komponen pendukung untuk koneksi ke databaase yakni Microsoft ActiveX Data Objects 2.8 Library selanjutnya copykan syntak dibawah ini ke module tersebut
Public CN As New ADODB.connection
Public xRs As New ADODB.Recordset
Public ListV As MSComctlLib.ListItem

Sub connection()
Dim strCon As String
Set CN = New ADODB.connection
CN.Open “DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=localhost;DATABASE=dbsisretail;UID=root;PWD=;PORT=3306”
End Sub
Didalam artikel kali ini dan sebelumnya fungsi dari modul untuk mempublikasikan variabel-variabel dan menciptakan sub koneksi ke database, database kali ini yang admin gunakan MySQL Server. Tambahkan komponen LIstview dan satu buah CommanButton pada form diatas, double klik pada form pilih mekanisme Form_Load dan copykan syntak dibawah ini
Call connection
LvStok.ColumnHeaders.Clear
LvStok.ColumnHeaders.Add , , “No”, 900
LvStok.ColumnHeaders.Add , , “Kode Barang”, 2000
LvStok.ColumnHeaders.Add , , “Nama Barang”, 3000
LvStok.ColumnHeaders.Add , , “Qty”, 800
LvStok.ColumnHeaders.Add , , “Harga Modal”, 1600
LvStok.ColumnHeaders.Add , , “Harga Jual”, 1600
LvStok.ColumnHeaders.Add , , “Kategori”, 1600
LvStok.ColumnHeaders.Add , , “Satuan”, 1600

Buat juga sub function untuk membentuk warna selang seling pada Lisview

Private Sub BackgroudSubItems(lv As ListView, _
ByVal BackColorOne As OLE_COLOR, _
ByVal BackColorTwo As OLE_COLOR)

Dim lH As Long
Dim lSM As Byte
Dim picAlt As PictureBox
With lv
   If .View = lvwReport And .ListItems.Count Then
       Set picAlt = Me.Controls.Add(“VB.PictureBox”, “picAlt”)
       lSM = .Parent.ScaleMode
       .Parent.ScaleMode = vbTwips
       .PictureAlignment = lvwTile
       lH = .ListItems(1).Height
       With picAlt
       .BackColor = BackColorOne
       .AutoRedraw = True
       .Height = lH * 2
       .BorderStyle = 0
       .Width = 10 * Screen.TwipsPerPixelX
       picAlt.Line (0, lH)-(.ScaleWidth, lH * 2), BackColorTwo, BF
       Set lv.Picture = .Image
       End With
      
       Set picAlt = Nothing
       Controls.Remove “picAlt”
       lv.Parent.ScaleMode = lSM
    End If
End With
End Sub

Pada CommanButton lalu double klik dan copykan syntak dibawah ini, fungsi dari syntak dibawah ini untuk menampilkan data dari tabel yang ada didatabase dan pemanggilan sub function warna selang seling yang ditujukan ke Listview

LvStok.ListItems.Clear
Dim nNO As Long

Set xRs = New ADODB.Recordset
xRs.Open “Select * from STOK”, CN, 1, 3
nNO = 1
Do Until xRs.EOF
With LvStok.ListItems
    Set lst = LvStok.ListItems.Add(, , nNO)
    lst.ListSubItems.Add , , xRs.Fields!IDBARANG
    lst.ListSubItems.Add , , xRs.Fields!NMBARANG
    lst.ListSubItems.Add , , xRs.Fields!JUMBRG
    lst.ListSubItems.Add , , xRs.Fields!HRGBELI
    lst.ListSubItems.Add , , xRs.Fields!HRGJUAL
    lst.ListSubItems.Add , , xRs.Fields!KATEG
    lst.ListSubItems.Add , , xRs.Fields!SATUAN
    xRs.MoveNext
    nNO = nNO + 1
End With
Loop
BackgroudSubItems LvStok, vbWhite, &HC0FFC0 

Pada pecahan syntak BackgroudSubItems LvStok, vbWhite, &HC0FFC0  ada isyarat warna dan agan-agan dapat merubah isyarat warna tersebut sesuai dengan selera. Sourcode ini dapat didownload di LINK INI secara free dan supaya bermanfaat bagi yang membutuhkannya.

Progress Di Subitems Listview

Pada kesempatan ini admin akan share sourcode wacana Progress di Subitems ListView. Pada umumnya kita sering mendengar istilah Progress secara garis besar dan umum sanggup diartikan dengan proses, didalam aplikasi komputer sering kita jumpai tampilan Progress / proses, contohnya ketika kita salin sebuah data atau file yang berikuran tidak mengecewakan besar katakanlah 700 MB pada dikala proses salin data niscaya tampil pada windows sebuah jendela Copying File yang menunjukan proses pengcopyan data mulai hingga final dengan dengan ditandai komponen Progress.
Progress Di Subitems Listview
Buatlah sebuah form pada Ms. Visual Basic 6.0 dan tambahkan juga komponen berikut : 
1. 2 Buah CommanButton 
2. Microsoft Windows Common Controls 6.0 (SP6) – Komponen Listview
3. Microsoft Windows Common Controls 6.0 (SP6) – ImageList1
4. Picture1
Designlah tampilan form sedemikian rupa kurang lebihnya menyerupai tampilan interface yang ada pada gambar diatas, lalu simpan. Bagi yang berminat untuk mendownload sourcodenya admin persilahkan untuk mengklik di LINK INI dan biar artikel dan sourcode ini sanggup bermanfaat dan mempunyai kegunaan bagi yang membutuhkannya

Split Aksara Menurut Aksara Tertentu

Function split abjad pada umumnya sudah tidak abnormal lagi bagi kita semua, tanpa sadari kita pun pernah melakukannya terlebih kini sudah marak promosi via SMS dan biasanya di lembaga-lembaga keuangan ibarat halnya cek saldo tabungan dengan format CEK#081000585 atau pendaftaran REG#JOKO#16121980 dengan tujuan nomor handphone tertentu. Jika sms dengan referensi format di kirim ke nomor tujuan tertentu, secara otomatis server sms gateway akan menseleksi dari format sms tersebut benar atau salah, referensi REG#JOKO#16121980 maka akan menjadi
REG
JOKO
16121980
Kali ini admin akan share bagaimana cara mensplit suatu abjad menurut abjad tertentu. Buatlah sebuah form pada Ms. Visual Basic 6.0 kemudian tambahkan 2 buah TextBox dan 1 buah CommanButton ibarat gambar dibawah ini
Split Aksara Menurut Aksara Tertentu
Double klik pada commanbutton kemudian copykan syntak dibawah ini
Dim nJumlah As Integer
Dim strKarakter() As String

strKarakter = Split(Text2.Text, Text1.Text)
For nJumlah = LBound(strKarakter) To UBound(strKarakter)
     MsgBox strKarakter(nJumlah) & ” –  Split Ke – ” & nJumlah, 64, “Split Karakter”
Next nJumlah

Kemudian simpan dan Jalankan/F5, inputkan split abjad (karkater pemisah antar kata) pada textbox yang pertama kemudian textbox yang kedua inputkan kata kemudian dipisahkan dengan split abjad pada textbox yang pertama dan klik commanbutton, kalau format penulisannya benar maka akan tampil pesan sejumlah kata yang telah displit ibarat gambar dibawah ini
Split Aksara Menurut Aksara Tertentu
Semoga artikel ini bermanfaat dan dapat sebagai materi referensi berguru dan pengembangan sistem

Menggerakan Gambar Memakai Hscrollbar Dan Vscrollbar

Pada kesempatan artikel kali ini akan dijelaskan cara Menggerakan Gambar Menggunakan HScrollbar dan VScrollbar jadi cara kerja sourcode ini yakni menggeser atau menggerakan gambar naik turun dan ke kiri dan ke kanan. Langkah pertama buatlah sebuah form pada Ms. Visual Basic 6.0 kemudian tambahkan komponen
1. PictureBox
2. VScrollbar
3. HScrollbar
Klik pada picturebox kemudian pada jendela properties klik Picture kemudian cari dan pilih file type image di pc agan, kemudian klik open, ibarat langkah yang terdapat pada gambar di bawah ini :

Menggerakan Gambar Memakai Hscrollbar Dan Vscrollbar

Untuk setting properties dari komponen diatas sebagai berikut : 

Nama Komponen
Name
PictureBox
InnerPict
VScrollBar
VBar
HScrollBar
HBar

Buatlah sebuah Sub Function dengan nama SetScrollBars, kemudian copykan syntak dibawah ini 
Private Sub SetScrollBars()
    VBar.Min = 0
    VBar.Max = OuterPict.ScaleHeight – InnerPict.Height
    VBar.LargeChange = OuterPict.ScaleHeight
    VBar.SmallChange = OuterPict.ScaleHeight / 5
   
    HBar.Min = 0
    HBar.Max = OuterPict.ScaleWidth – InnerPict.Width
    HBar.LargeChange = OuterPict.ScaleWidth
    HBar.SmallChange = OuterPict.ScaleWidth / 5
End Sub

Kemudian double klik pada form pilih mekanisme Form_Resize dan copykan juga syntak dibawah ini

Private Sub Form_Resize()
Dim got_wid As Single
Dim got_hgt As Single
Dim need_wid As Single
Dim need_hgt As Single
Dim need_hbar As Boolean
Dim need_vbar As Boolean

If WindowState = vbMinimized Then Exit Sub

need_wid = InnerPict.Width + (OuterPict.Width – OuterPict.ScaleWidth)
need_hgt = InnerPict.Height + (OuterPict.Height – OuterPict.ScaleHeight)
got_wid = ScaleWidth
got_hgt = ScaleHeight

need_hbar = (need_wid > got_wid)
If need_hbar Then got_hgt = got_hgt – HBar.Height
   need_vbar = (need_hgt > got_hgt)
   If need_vbar Then
      got_wid = got_wid – VBar.Width
      If Not need_hbar Then
         need_hbar = (need_wid > got_wid)
         If need_hbar Then got_hgt = got_hgt – HBar.Height
      End If
   End If
  OuterPict.Move 0, 0, got_wid, got_hgt

  If need_hbar Then
     HBar.Move 0, got_hgt, got_wid
     HBar.Visible = True
  Else
     HBar.Visible = False
  End If

  If need_vbar Then
     VBar.Move got_wid, 0, VBar.Width, got_hgt
     VBar.Visible = True
  Else
     VBar.Visible = False
  End If
  SetScrollBars
End Sub

Dan selanjutnya copykan juga syntak dibawah ini

Private Sub HBar_Change()
InnerPict.Left = HBar.Value
End Sub

Private Sub HBar_Scroll()
InnerPict.Left = HBar.Value
End Sub

Simpan dan Jalankan RUN/F5, coba agan klik dan tahan (drag) pada ScrollBar Horizontal dan ScrollBar Vertikal, maka gambar akan mengikuti arah gerak dari secara vertikal maupun horizonta. Untuk sourcodenya sanggup didownload di LINK INI dan agar bermanfaat. 
Menggerakan Gambar Memakai Hscrollbar Dan Vscrollbar

Loading Progressbar Menurut Record Dengan Visual Basic 6.0 (Vb6)

Progressbar merupakan satu kesatuan dari komponen Microsoft Windows Common Controls 6.0 (SP6) Fungsi dari Progressbar ini telah disinggung pada artikel sebelumnya ialah Progress di Subitems ListView tapi untuk kali ini sedikit berbeda, admin akan mencoba menciptakan script loading dari Progressbar menurut data yang diakses. Data yang akan dipakai record didalam tabel dari database MySQL Server. 

Loading Progressbar Menurut Record Dengan Visual Basic 6.0 (Vb6)

Buat terlebih dahulu database pada MySQL Server lalu diteruskan tabelnya juga, untuk script pembuatan database dan tabelnya ada dibawah ini
CREATE DATABASE `BelajarTriger`
CHARACTER SET ‘latin1’
COLLATE ‘latin1_swedish_ci’;
CREATE TABLE `penjualan` (
  `FAKTUR` varchar(50) DEFAULT NULL,
  `TANGGAL` date DEFAULT NULL,
  `IDBARANG` varchar(50) DEFAULT NULL,
  `NMBARANG` varchar(50) DEFAULT NULL,
  `HRGBELI` int(20) DEFAULT NULL,
  `SATUAN` varchar(10) DEFAULT NULL,
  `HRGJUAL` int(20) DEFAULT NULL,
  `JUMBRG` int(20) DEFAULT NULL,
  `DISCOUNT` int(20) DEFAULT NULL,
  `DISCOUNT2` int(20) DEFAULT NULL,
  `SUBTOTAL` int(20) DEFAULT NULL
) ENGINE=MyISAM AUTO_INCREMENT=2031 DEFAULT CHARSET=latin1;
Untuk tampilan dari sourcode yang akan kita buat menyerupai diatas, pertama buatlah sebuah form dan tambahkan juga satu buah modul. Untuk komponen kita memakai Microsoft Windows Common Controls 6.0 (SP6) – ProgressBar. Designal form kurang sedemikian rupa kurang lebihnya menyerupai gambar diatas. Copykan sub fungsi dan variabel koneksi database dibawah ke module

Public CN As New ADODB.Connection
Public xRs As New ADODB.Recordset

Sub Koneksi()
Dim NServer, NUser, NPass, NDatabase As String
NServer = “localhost”
NUser = “root”
NPass = “”
NDatabase = “BelajarTriger”

CN.CommandTimeout = 0
If CN.State Then
   CN.Close
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
Else
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
End If
End Sub

Selanjutnya double klik pada form dan copykan syntak dibawah ini pilih mekanisme Form_Load
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , “Tgl. Trans”, 1800
ListView1.ColumnHeaders.Add , , “No. Faktur”, 3200
ListView1.ColumnHeaders.Add , , “Kode Barang”, 1600
ListView1.ColumnHeaders.Add , , “Nama Barang”, 4000
ListView1.ColumnHeaders.Add , , “Satuan”, 1200
ListView1.ColumnHeaders.Add , , “Qty”, 600, 2
ListView1.ColumnHeaders.Add , , “Harga Jual”, 1500, 1
ListView1.ColumnHeaders.Add , , “Hrg Jual x Jum Brg”, 0
ListView1.ColumnHeaders.Add , , “Diskon 1”, 1000, 1
ListView1.ColumnHeaders.Add , , “Diskon 2”, 1000, 1
ListView1.ColumnHeaders.Add , , “Subtotal”, 1500, 1
PgLoad.Visible = False
Dilanjutkan dengan pembuatan Sub Books_Penjualan, sub ini berfungsi untuk menampilkan data dari tabel koneksi MySQL Server dan syntak Loading Progressbar Berdasarkan Record
Sub Books_Penjualan()
Dim LI As ListItem
Dim SQL As String
ListView1.ListItems.Clear
ListView1.Sorted = False
SQL = “SELECT * from penjualan”
Set xRs = New ADODB.Recordset
xRs.Open SQL, CN, 1, 3
PgLoad.Min = 0
PgLoad.Max = xRs.RecordCount

If xRs.RecordCount = 0 Then
   ListView1.ListItems.Clear
   PgLoad.Value = 0
Else
   PgLoad.Visible = True
   PgLoad.Value = 0
   xRs.MoveFirst
   While Not xRs.EOF
   Set LI = ListView1.ListItems.Add(, , Format(xRs.Fields!TANGGAL, “dd/MM/yyyy”))
       LI.SubItems(1) = xRs.Fields!FAKTUR
       LI.SubItems(2) = xRs.Fields!IDBARANG
       LI.SubItems(3) = xRs.Fields!NMBARANG
       LI.SubItems(4) = xRs.Fields!SATUAN
       LI.SubItems(5) = xRs.Fields!JUMBRG
       LI.SubItems(6) = Format(xRs.Fields!HRGJUAL, “#,##0”)
       LI.SubItems(7) = Format(xRs.Fields!HRGJUAL * xRs.Fields!JUMBRG, “#,##0”)
       LI.SubItems(8) = Format(xRs.Fields!DISCOUNT, “#,##0”)
       LI.SubItems(9) = Format(xRs.Fields!DISCOUNT2, “#,##0”)
       LI.SubItems(10) = Format(xRs.Fields!SubTotal, “#,##0”)
   xRs.MoveNext
   PgLoad.Value = Int(PgLoad.Value) + 1
   Wend
   If PgLoad.Value = PgLoad.Max Then
      PgLoad.Visible = False
      MsgBox “Load Data : ” & Format(xRs.RecordCount, “#,##0″) & ” Record Complate”, 64, “Informasi”
   End If
End If
End Sub

Double klik pada tombol Load Data lalu panggil sub-sub function yang telah kita buat tadi menyerupai syntak dibawah ini

Call Koneksi
Call Books_Penjualan

Simpan dan RUN/F5 coba klik Load Data, maka ProgressBar akan tampil dan mengikuti load record pada tabel MySQL Server dan alhasil dari loading akan tampil pesan berisi jumlah record yang telah diakses
Loading Progressbar Menurut Record Dengan Visual Basic 6.0 (Vb6)
Untuk sourcodenya dapat didownload di LINK INI secara Free, agar artikel Loading Progressbar Berdasarkan Record dan bermanfaat bagi para pembaca

Cara Menciptakan Tips Of The Day Vb6

Tampilan Tips Of The Day ketika kita mengoperasikan suatu aplikasi atau software pada umumnya berisi dekripsi ihwal motivasi, tips, mekanisme dan nasehat secara ringkas kepada user, akan tetapi tidak semua aplikasi memiliki akomodasi Tips Of The Day hanya aplikasi-aplikasi tertentu saja, kali ini admin akan share sourcode ihwal Cara Membuat Tips Of The Day VB6. Untuk interface dari sourcode ini ibarat gambar dibawah ini 
Cara Menciptakan Tips Of The Day Vb6

Buka Ms. Visual Basic 6.0 – StandarExe, kemudian buatlah sebuah form dan berikut komponen yang kita butuhkan dalam pembuatan sourcode diatas

Komponen
Name
Form1
frmTips
ClassModule1
cTip
ClassModule1
cTips
CommanButton1
cmdLainnya
CommanButton2
cmdOK
Label1
lblTip


Designlah interface dari form yang telah kita buat dengan ditambah beberapa komponen ibarat Label, CommanButton kemudian copykan syntak dibawah ini ke ClassModule dengan name cTip

#Const ShowDebugMsgBox = False
Private m_sText As String
Private m_sID As String
Private m_dtCreated As Date

Public Property Let Text(sText As String)
m_sText = sText
End Property

Public Property Get Text() As String
Text = m_sText
End Property

Public Property Let ID(sID As String)
m_sID = sID
End Property

Public Property Get ID() As String
    ID = m_sID
End Property

Public Property Get Created() As Date
Created = m_dtCreated
End Property

Private Sub Class_Initialize()
m_dtCreated = Now
#If ShowDebugMsgBox Then
    MsgBox “Tip created: ” & Created, vbInformation
#End If
End Sub

Private Sub Class_Terminate()
#If ShowDebugMsgBox Then
    MsgBox “Tip: ” & Created & ” Error”, vbInformation
#End If
End Sub

Selanjutnya pada ClassModule dengan name cTips

Private m_colTips As New Collection
Public Function Add(sText As String) As cTip
Dim tipNew As New cTip
Static iID As Integer
With tipNew
   iID = iID + 1
   .ID = “T” & Format$(iID, “00000”)
   .Text = sText
   m_colTips.Add tipNew, .ID
End With
Set Add = tipNew
End Function

Public Function Count() As Long
Count = m_colTips.Count
End Function

Public Sub Delete(vKey As Variant)
m_colTips.Remove vKey
End Sub

Public Function NextTip() As String
Static iLast As Integer
iLast = iLast + 1
If iLast > Me.Count Or iLast < 1 Then
   iLast = 1
End If
NextTip = m_colTips(iLast).Text & TipNumber(iLast)
End Function

Public Function RandomTip() As String
Dim iRandom As Integer
Randomize
iRandom = Int((Me.Count) * Rnd + 1)
RandomTip = m_colTips(iRandom).Text & TipNumber(iRandom)
End Function
Private Function TipNumber(iTheNumber As Integer) As String
    TipNumber = Chr$(13) & Chr$(13) & “Tip ” & iTheNumber
End Function

Private Sub Class_Initialize()
    Me.Add “Selamat Datang Di Program Tips Kami”
    Me.Add “Belajarlah Tanpa Henti”
    Me.Add “Gali Terus Potensi Diri”
    Me.Add “Jangan Pernah Menyerah dan Pantang Mundur, Kalo ada jurang ya mundur gan !!!, kalo maju terus berarti ente konyol heeehee !!”
End Sub

Kemudian double klik pada form pilih mekanisme (General) dan (Declarations) copy syntak dibawah ini 
Private m_colTips As cTips
Selanjutnya double klik lagi pada form pilih mekanisme Form_Load dan copykan syntak dibawah ini 
Move (Screen.Width – Width) \ 2, (Screen.Height – Height) \ 2
Set m_colTips = New cTips
lblTip = m_colTips.RandomTip 

Masih didalam form kemudian pilih mekanisme Form_Unload dan copykan syntak dibawah ini

Set m_colTips = Nothing
Set frmTips = Nothing

Selanjutnya double klik pada tombol Tips Selanjutnya dan copykan syntak dibawah ini

Dim sTip As String
sTip = lblTip
While sTip = lblTip
      sTip = m_colTips.NextTip
Wend
lblTip = sTip

Setelah final simpan dan RUN/F5 coba klik Tips Selanjutnya beberapa kali, maka Tips akan bergantian muncul dengan urutan nomor yang berbeda. Sourcodenya dapat didwonload di LINK INI supaya artikel kali ini bermanfaat bagi pembaca

Cara Memvalidasi Penginputan Karakter

Pada kesempatan kali ini admin akan sedikit share perihal Cara Memvalidasi Penginputan Karakter pada textBox di Microsoft Visual Basic 6.0. Terkadang kita menghadapi suatu studi kasus dalam pembuatan sebuah aplikasi, adakalanya TextBox yang kita buat hanya diperbolehkan angka / numeric saja, ada pula hanya karakter-karakter tertentu yang dihentikan diinputkan.
Buat dan designlah sebuah form pada Micorosoft Visual Basic 6.0 dengan menambahkan beberapa komponen
No
Komponen
Name
Caption
1
Form1
Form1
Validasi Karakter
2
OptionButton
OptNumeric
Hanya Numeric
3
OptionButton
optHurufBesar
Hanya Huruf Besar
4
OptionButton
optHurufKecil
Hanya Huruf Kecil
5
OptionButton
optValidasi
Hanya Karakter Selain (!#$%^&*’ `{}\/)
6
TextBox
Text1
Kemudian double klik pada textbox kemudian pilih mekanisme KeyPress dan copykan syntak dibawah ini
If OptNumeric.Value = True Then
  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
  
ElseIf optHurufBesar.Value = True Then
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
  
ElseIf optHurufKecil.Value = True Then
   KeyAscii = Asc(LCase(Chr(KeyAscii)))

ElseIf optValidasi.Value = True Then
    Dim sTemplate As String
    sTemplate = “!#$%^&*’ `{}\/”
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End If

Simpan dan RUN/F5. Pilihlah salah satu dari opsi pada form diatas kemudian inputkan abjad pada textbox. Secara outomatis syntak diatas akan menseleksi abjad yang diinputkan menurut opsi yang kita pilih. Cukup gampang bukan dan agar bermanfaat
Cara Memvalidasi Penginputan Karakter

Pencarian | Searching Data Items Di Listview Vb6

Pencarian | Searching Data merupakan hal yang sangat diharapkan apalagi data yang ada sudah terlampau banyak, dengan adanya fasilitas Pencarian | Searching Data sangat memudahkan dalam user dalam menemukan data yang diinginkan. Pada kesempata kali ini admin akan menguraikan cara menciptakan Pencarian | Searching Data Items di Listview VB6.
Buka Microsoft Visual Basic 6.0 – StandartEXE lalu tambahkan komponen berikut : 
1. Menu Project – References – Microsoft ActiveX Objects 2.6 Library
2. Menu Project – Components – Microsoft Windows Common Control 6.0 (SP6)
Designlah form dengan menambahkan Lisview, TextBox, CommanButton dan Label menyerupai tampilan dibawah ini

Pencarian | Searching Data Items Di Listview Vb6

Tambahkan juga sebuah module, mdoule disini berfungsi untuk mempublikasikan variabel koneksi ke database dan menciptakan sub koneksi kedatabase dan untuk database yang dipakai ialah MySQL Server dengan nama database dbPencarian dan nama tabel Penjualan.
Script pembuatan database

CREATE DATABASE `dbPencarian`
    CHARACTER SET ‘latin1’
    COLLATE ‘latin1_swedish_ci’;

Script pembuatan tabel

CREATE TABLE `penjualan` (
  `IDBARANG` varchar(16) DEFAULT NULL,
  `NMBARANG` varchar(50) DEFAULT NULL,
  `SATUAN` varchar(10) DEFAULT NULL,
  `HRGJUAL` decimal(20,0) DEFAULT NULL,
  `JUMBRG` int(11) DEFAULT NULL,
  `DISCOUNT` decimal(20,0) DEFAULT NULL,
  `DISCOUNT2` decimal(20,0) DEFAULT NULL,
  `SUBTOTAL` decimal(20,0) DEFAULT NULL,
  `KATEGORI` varchar(20) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Setelah database dan tabel dibentuk copykan syntak koneksi ke database MySQL Server dibawah ini ke Module

Public CN As New ADODB.Connection
Public xRs As New ADODB.Recordset
Sub Koneksi()
Dim NServer, NUser, NPass, NDatabase As String
NServer = “localhost”
NUser = “root”
NPass = “”
NDatabase = “dbpencarian”
                        
CN.CommandTimeout = 0
If CN.State Then
   CN.Close
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
Else
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
End If
End Sub

Double pada form lalu pilih mekanisme Form_Load lalu copy syntak dibawah ini :

Call Koneksi
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , “Kode Barang”, 1600
ListView1.ColumnHeaders.Add , , “Nama Barang”, 4000
ListView1.ColumnHeaders.Add , , “Satuan”, 1200
ListView1.ColumnHeaders.Add , , “Qty”, 600, 2
ListView1.ColumnHeaders.Add , , “Kategori”, 2000
ListView1.ColumnHeaders.Add , , “Harga Jual”, 1500, 1
ListView1.ColumnHeaders.Add , , “Diskon 1”, 1000, 1
ListView1.ColumnHeaders.Add , , “Diskon 2”, 1000, 1
ListView1.ColumnHeaders.Add , , “Subtotal”, 1500, 1

Keterangan dari syntak diatas tertera pada gambar dibawah ini

Pencarian | Searching Data Items Di Listview Vb6

Kemudian kita buat juga sub untuk menampilkan data dengan memakai Sql pencarian yang nantinya sub ini akan dipanggil pada ketika tombol pencarian di klik

Sub Books_TampilaData()
Dim LI As ListItem
Dim SQL As String
ListView1.ListItems.Clear
ListView1.Sorted = False
SQL = “select * from penjualan where NMBARANG LIKE ‘%” & Text1.Text & “%’or IDBARANG LIKE ‘%” & Text1.Text & “‘”
Set xRs = New ADODB.Recordset
xRs.Open SQL, CN, 1, 3
If xRs.RecordCount = 0 Then
   ListView1.ListItems.Clear
Else
   xRs.MoveFirst
   While Not xRs.EOF
   Set LI = ListView1.ListItems.Add(, , xRs.Fields!IDBARANG)
       LI.SubItems(1) = xRs.Fields!NMBARANG
       LI.SubItems(2) = xRs.Fields!SATUAN
       LI.SubItems(3) = xRs.Fields!JUMBRG
       LI.SubItems(4) = xRs.Fields!KATEGORI
       LI.SubItems(5) = Format(xRs.Fields!HRGJUAL, “#,##0”)
       LI.SubItems(6) = Format(xRs.Fields!DISCOUNT, “#,##0”)
       LI.SubItems(7) = Format(xRs.Fields!DISCOUNT2, “#,##0”)
       LI.SubItems(8) = Format(xRs.Fields!HRGJUAL * xRs.Fields!JUMBRG, “#,##0”)
   xRs.MoveNext
   Wend
   ListView1.SelectedItem.Selected = False
End If
End Sub

Untuk yang terakhir kalinya double klik pada tombol; pencarian lalu panggil sub Books_TampilData dengan syntak Call Books_TampilaData. Simpan lalu RUN/F5 inputkan huruf pada textbox lalu klik tombol pencarian, secara otomatis data akan tampil dengan menurut field Kode barang dan nama barang yang mengandung huruf pada textbox.

Pencarian | Searching Data Items Di Listview Vb6
Bagi yang berminat untuk mendownload sourcode dari artikel diatas silahkan download di LINK INI dan agar artikel ini sanggup bermanfaat bagi pembaca

Row Flexgrid Berwarna Selang Seling

Pada artikel sebelumnya untuk tampilan data dengan berwarna selang seling telah admin bahasa dengan judul artikel Subitems Listview Berwarna Selang Seling dengan memakai kompoonen Listview. Pada artikel kali ini admin akan membahas Row FlexGrid Berwarna Selang Seling menggunakan komponen Microsoft FlexGrid Control 6.0, ibarat gambar dibawah ini

Row Flexgrid Berwarna Selang Seling

Agak sedikit berbeda dengan Listview tetapi secara garis besar cara kerja kedua komponen ini sama untuk menampilkan data. Data yang akan admin tampilkan pada FlexGrid memakai databse MySQL Server, langkah pertama siapkan terlebih dahulu databasenya dengan memakai script dibawah ini :

CREATE DATABASE `dbPencarian`
    CHARACTER SET ‘latin1’
    COLLATE ‘latin1_swedish_ci’;

CREATE TABLE `penjualan` (
  `IDBARANG` varchar(16) DEFAULT NULL,
  `NMBARANG` varchar(50) DEFAULT NULL,
  `SATUAN` varchar(10) DEFAULT NULL,
  `HRGJUAL` decimal(20,0) DEFAULT NULL,
  `JUMBRG` int(11) DEFAULT NULL,
  `DISCOUNT` decimal(20,0) DEFAULT NULL,
  `DISCOUNT2` decimal(20,0) DEFAULT NULL,
  `SUBTOTAL` decimal(20,0) DEFAULT NULL,
  `KATEGORI` varchar(20) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Setelah itu inputkan beberapa data ke dalam tabel penjualan yang telah kita buat dengan memakai script diatas, sesudah dirasa cukup dan untuk selanjutnya buka Microsoft Visual Basic 6.0 – StandartEXE buat form dan module, lalu tambahkan Microsoft FlexGrid 6.0, designlah form berdasarkan kreasi agan sendiri 

Row Flexgrid Berwarna Selang Seling

Copykan syntak koneksi ke database dibawah ini ke dalam module 

Syntax Koneksi Database

Public CN As New ADODB.Connection
Public xRs As New ADODB.Recordset

Sub Koneksi()
Dim NServer, NUser, NPass, NDatabase As String
NServer = “localhost”
NUser = “root”
NPass = “”
NDatabase = “dbpencarian”
                        
CN.CommandTimeout = 0
If CN.State Then
   CN.Close
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
Else
   CN.CursorLocation = adUseClient
   CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
   “SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
   “UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”
   CN.Open
End If

End Sub

Syntak Function Warna Flexgrid

Public Sub WarnaRow(fg As MSFlexGrid, lColor1 As Long, lcolor2 As Long)
 Dim lRow As Long, lCol As Long
 Dim lOrgRow As Long, lOrgCol As Long
 Dim lColor As Long

With fg
 .Redraw = False

lOrgRow = .Row
 lOrgCol = .Col

For lRow = .FixedRows To .Rows – 1
 .Row = lRow

If lRow / 2 = lRow \ 2 Then
 lColor = lColor1
 Else
 lColor = lcolor2
 End If

For lCol = .FixedCols To .Cols – 1
 .Col = lCol
 .CellBackColor = lColor
 Next lCol
 Next lRow

.Row = lOrgRow
 .Col = lOrgCol
 .Redraw = True
 End With
 End Sub

Kemudian double klik pada form lalu pilih mekanisme Form_Load dan copykan syntak dibawah ini

With MSFlexGrid1
.AllowUserResizing = flexResizeColumns
.Cols = 9
.ColAlignment(0) = 3
.ColAlignment(1) = 2
.ColAlignment(5) = 3

.ColWidth(0) = 400
.ColWidth(1) = 2000
.ColWidth(2) = 3000
.ColWidth(3) = 1200
.ColWidth(4) = 1200
.ColWidth(5) = 700

.ColWidth(6) = 1200
.ColWidth(8) = 1200
.TextMatrix(0, 0) = “No”
.TextMatrix(0, 1) = “Kode Barang”
.TextMatrix(0, 2) = “Nama Barang”
.TextMatrix(0, 3) = “Satuan”
.TextMatrix(0, 4) = “Harga”
.TextMatrix(0, 5) = “Qty”
.TextMatrix(0, 6) = “Discount 1”
.TextMatrix(0, 7) = “Discount 2”
.TextMatrix(0, 8) = “Subtotal”
End With
Call Koneksi

Tambahkan juga sub untuk menampilkan data ke flexgrid 

Private Sub TampilDataFlexi()
Dim nBaris As Long
Set xRs = New ADODB.Recordset
xRs.Open “select * from penjualan limit 10”, CN, 1, 3

With MSFlexGrid1
For nBaris = 1 To xRs.RecordCount
    DoEvents
    .Rows = nBaris + 1
    .TextMatrix(nBaris, 0) = nBaris
    .TextMatrix(nBaris, 1) = xRs.Fields!IDBARANG
    .TextMatrix(nBaris, 2) = xRs.Fields!NMBARANG
    .TextMatrix(nBaris, 3) = xRs.Fields!SATUAN
    .TextMatrix(nBaris, 4) = xRs.Fields!HRGJUAL
    .TextMatrix(nBaris, 5) = xRs.Fields!JUMBRG
    .TextMatrix(nBaris, 6) = xRs.Fields!DISCOUNT
    .TextMatrix(nBaris, 7) = xRs.Fields!DISCOUNT2
    .TextMatrix(nBaris, 8) = xRs.Fields!SUBTOTAL
    xRs.MoveNext
Next nBaris
End With

WarnaRow MSFlexGrid1, &HFFC0FF, vbWhite
End Sub

Untuk memanggil data dari tabel MysQL Server supaya tampil ke dalam Flexgrid, double klik pada CommanButton dan copykan syntak dibawah ini

Call TampilDataFlexi

Kemudian simpan dan RUN/F5 dan coba klik CommanButton pada form diatas, maka data akan tampil dengan disertai warna selang seling pada row dan untuk mengatur warna sesuai dengan kreasi agan, perhatikan pada syntak Sub TampilDataFlexi yang bercetak waena biru. Untuk sourcodenya sanggup didownload pada LINK INI secara free dan supaya artikel kali ini bermanfaat bagi pembaca dan sanggup dijadikan sebagai materi referensi

Generator Barcode Memakai Vb6

Pada kesempatan ini admin akan share sedikit wacana Generator Barcode Menggunakan VB6 pada pembahasan sebelumnya telah disinggung pada artikel berjudul Menampilkan Barcode di Laporan Crystal Report mengenai menampilkan barcode / isyarat barang melalui laporan crystal report. 
Buka Microsoft Visual Basic 6.0 – StandartEXE kemudian buat form, textbox, PictureBox, CommanButton dan tambahkan juga 1 buah module, rancang interface berdasarkan selera agan, kurang lebihnya menyerupai gambar dibawah ini
Generator Barcode Memakai Vb6
Copykan syntak sub function generator barcode dibawah ini ke dalam module

Sub DrawBarcode(ByVal Bc_string As String, Obj As Object)
Dim Xpos!
Dim Y1!
Dim Y2!
Dim Dw%
Dim Th!
Dim Tw
Dim New_string$
If Bc_string = “” Then Obj.Cls: Exit Sub

Dim Bc(90) As String
    Bc(1) = “1 1221”
    Bc(2) = “1 1221”
    Bc(48) = “11 221”
    Bc(49) = “21 112”
    Bc(50) = “12 112”
    Bc(50) = “12 112”
    Bc(51) = “22 111”
    Bc(52) = “11 212”
    Bc(53) = “21 211”
    Bc(54) = “12 211”
    Bc(55) = “11 122”
    Bc(56) = “21 121”
    Bc(57) = “12 121”
    Bc(65) = “211 12”
    Bc(66) = “121 12”
    Bc(67) = “221 11”
    Bc(68) = “112 12”
    Bc(69) = “212 11”
    Bc(70) = “122 11”
    Bc(71) = “111 22”
    Bc(72) = “211 21”
    Bc(73) = “121 21”
    Bc(74) = “112 21”
    Bc(75) = “2111 2”
    Bc(76) = “1211 2”
    Bc(77) = “2211 1”
    Bc(78) = “1121 2”
    Bc(79) = “2121 1”
    Bc(80) = “1221 1”
    Bc(81) = “1112 2”
    Bc(82) = “2112 1”
    Bc(83) = “1212 1”
    Bc(84) = “1122 1”
    Bc(85) = “2 1112”
    Bc(86) = “1 2112”
    Bc(87) = “2 2111”
    Bc(88) = “1 1212”
    Bc(89) = “2 1211”
    Bc(90) = “1 2211”
    Bc(32) = “1 2121”
    Bc(35) = “”
    Bc(36) = “1 1 1 11”
    Bc(37) = “11 1 1 1”
    Bc(43) = “1 11 1 1”
    Bc(45) = “1 1122”
    Bc(47) = “1 1 11 1”
    Bc(46) = “2 1121”
    Bc(64) = “”
    Bc(42) = “1 1221”
    Bc_string = UCase(Bc_string)
    Obj.ScaleMode = 3
    Obj.Cls
    Obj.Picture = Nothing
    Dw = CInt(Obj.ScaleHeight / 150)
    If Dw < 1 Then Dw = 1
    Th = Obj.TextHeight(Bc_string)
    Tw = Obj.TextWidth(Bc_string)
    New_string = Chr$(1) & Bc_string & Chr$(2)
    Y1 = Obj.ScaleTop
    Y2 = Obj.ScaleTop + Obj.ScaleHeight – 1.5 * Th
    Obj.Width = 1.1 * Len(New_string) * (15 * Dw) * Obj.Width / Obj.ScaleWidth
    Xpos = Obj.ScaleLeft
    For N = 1 To Len(New_string)
        C = Asc(Mid$(New_string, N, 1))
        If C > 90 Then C = 0
        bc_pattern$ = Bc(C)
        For i = 1 To Len(bc_pattern$)
            Select Case Mid$(bc_pattern$, i, 1)
                Case ” “
                Obj.Line (Xpos, Y1)-(Xpos + 1 * Dw, Y2), &HFFFFFF, BF
                Xpos = Xpos + Dw
                Case “1”
                Obj.Line (Xpos, Y1)-(Xpos + 1 * Dw, Y2), &HFFFFFF, BF
                Xpos = Xpos + Dw
                Obj.Line (Xpos, Y1)-(Xpos + 1 * Dw, Y2), &H0&, BF
                Xpos = Xpos + Dw
                Case “2”
                Obj.Line (Xpos, Y1)-(Xpos + 1 * Dw, Y2), &HFFFFFF, BF
                Xpos = Xpos + Dw
                Obj.Line (Xpos, Y1)-(Xpos + 2 * Dw, Y2), &H0&, BF
                Xpos = Xpos + 2 * Dw
            End Select
        Next
    Next
    Obj.Line (Xpos, Y1)-(Xpos + 1 * Dw, Y2), &HFFFFFF, BF
    Xpos = Xpos + Dw
    Obj.Width = (Xpos + Dw) * Obj.Width / Obj.ScaleWidth
    Obj.CurrentX = (Obj.ScaleWidth – Tw) / 2
    Obj.CurrentY = Y2 + 0.25 * Th
    Obj.Print Bc_string
End Sub

Untuk selanjutnya double klik pada TextBox pilih mekanisme Change. Panggil sub function generator barcode yang berada pada module tadi memakai syntak dibawah ini

Call DrawBarcode(Text1, Picture1)

Simpan dan RUN/F5, kini coba inputkan karkater pada TextBox, secara otomatis picturebox akan menciptakan simbol-simbol / garis-garis barcode berdasarkan dari abjad yang agan inputkan
Generator Barcode Memakai Vb6

Cukup gampang bukan, untuk sourcode sanggup didownload di LINK INI
Semoga artikel ini sanggup bermanfaat bagi pembaca sekalian.