VB6 Code - Mengunci Proses Program (LockWindowUpdate)

LockWindowUpdate merupakan sebagian fungsi API yang terdapat dalam dll inti (core) windows "user32". Kegunaannya adalah untuk mengunci program pada saat terjadi proses, yaitu proses yang tidak ingin kita perlihatkan kepada user. Disamping itu software yang sedang memproses akan memiliki kecepatan yang lebih tinggi dibandingkan tanpa menggunakan fungsi API LockWindowUpdate.

Untuk melihat kinerjanya, buatlah project kemudian copy paste source code dibawah ini:

'--------------------------------------------------------------------
'http://khoiriyyah.blogspot.com
'--------------------------------------------------------------------

Option Explicit

Private Declare Function LockWindowUpdate Lib "USER32" (ByVal hwndLock As Long) As Long

'Tanpa fungsi LockWindowUpdate
Private Sub Command1_Click()

    Dim i As Integer
    Label1.Caption = 1
    
    For i = 1 To 2000
        Label1.Caption = i
        DoEvents
    Next

End Sub

'Dengan fungsi LockWindowUpdate
Private Sub Command2_Click()

    Label1.Caption = 1
    MsgBox "Perhatikan sekarang label caption berubah menjadi angka 1"
    
    LockWindowUpdate Form1.hWnd
    
    'Ini identik dengan fungsi di atas Private Sub Command1_Click()
    'Hanya ditambahkan fungsi LockWindowUpdate pada line code sebelumnya
    Dim i As Integer
    For i = 1 To 2000
        Label1.Caption = i
        DoEvents
    Next
    
    LockWindowUpdate 0
    
    MsgBox "Tidak terjadi flicker (gambar berkedip) dan lebih cepat bukan?"

End Sub

READ MORE - VB6 Code - Mengunci Proses Program (LockWindowUpdate)

theBatch Add-Ins, Mengatasi Beberapa Masalah Manifest Resour

Ini merupakan aplikasi VB6 Add-Ins, saya namakan dengan theBatch, karena ia dapat menyelesaikan masalah form yang disebabkan manifest resource secara bersamaan/sekaligus berapapun banyaknya form tersebut. Modul utamanya milik Eduardo A. Morcillo and Vlad Vissoultchev (pembuat Hook Menu).

Beberapa masalah manifest tersebut, diantaranya:

1. Flickering pada frame
2. Hilangnya mnemonic (shorcut underline), ini sangat mengganggu dalam aplikasi database.
3. CommandButton yang ditempatkan pada frame akan memiliki border hitam disekelilingnya
4. CommandButton dengan property Style = 1 - Graphical, tidak bisa ditheme XP
5. OptionButton yang dtempatkan pada frame akan memiliki background hitam

Download: theBatch dan Sample UI.

READ MORE - theBatch Add-Ins, Mengatasi Beberapa Masalah Manifest Resour

Download Software Speech/Voice Recognition

Ini merupakan software pembelajaran untuk melatih mengucapkan frase-frase pendek dalam percakapan. Adapun yang menjadi lawan bicaranya adalah sebuah komputer.

Cara menggunakan:

1. Isi terlebih dahulu database percakapan yang terdapat pada C:\Program Files\Speech\dbase.mdb. Isi dari percakapan tersebut disesuaikan dengan kebutuhan Anda atau anak didik Anda.
2. Siapkan mikrofon berkualitas baik
3. Atur volume
4. Bacalah frase-frase pendek yang telah Anda isi ke dalam database yang terdapat pada sisi kiri. Selanjutnya komputer akan menjawabnya.

Keunggulan dari software ini adalah sangat sederhana, sehingga sangat mudah untuk digunakan. Disamping itu ukurannya sangat kecil, sekitar 400kb lebih. Nah, selamat berlatih dan bercakap-cakap dengan komputer dan Insya Allah dikembangkan jika ada waktu.

Download: Speech 1.5

READ MORE - Download Software Speech/Voice Recognition

Software - Simple SQL Query Tester 2.0 Open Source

Ini merupakan software sederhana untuk menguji connection string beberapa database serta menguji sql query meliputi INSERT, UPDATE, SELECT, DELETE selanjutnya melalui software ini, Anda dapat merubahnya menjadi Visual Basic String dan mengcopy paste pada project yang sedang Anda buat.Selain yang telah dijelaskan, Anda pun dapat mempelajari pembuatan script installer untuk pembuatan file setup, dan beberapa code VB6 yang kebanyakan telah dituliskan pada postingan secara terpisah.

Catatan:

1. Compile terlebih dahulu menjadi file .exe, karena ada sedikit perbedaan antara design time dan runtime.
2. Apabila Anda berkeinginan membuat file setup, download terlebih dahulu innosetup installer kemudian klik kanan pada file Application.iss >> compile. maka pada folder output Anda akan mendapati file Query Tester.EXE yang merupakan file setup.

Download: Query Tester (Source Code)
Download: Query Tester (Setup)

READ MORE - Software - Simple SQL Query Tester 2.0 Open Source

Update: My Source Online 2.0 - Online MySQL Database

Rupanya pada versi yang sebelumnya terjadi beberapa kegagalan, diantaranya:

1. Gagal dalam mengecek koneksi internet, modul yang digunakan adalah -[memeriksa keberadaan koneksi internet]- sehingga selalu terkadang menampilkan pesan error "Mohon maaf, tidak ada koneksi internet".
2. Gagal dalam meregistrasikan COMDLG32.OCX (CommonDialog ActiveX), kemungkinan masalah versi.

Kedua masalah tersebut telah saya perbaiki, pertama dengan mengganti modul check koneksi internet masalah kedua diatasi dengan cara mengganti COMDLG32.OCX dengan class yang diembed langsung pada aplikasi.

Catatan: karena aplikasi ini tidak dilengkapi dengan file-file runtime (hanya dua ActiveX yang disertakan vbSendMail dan CMAX20.OCX [Syntax Hightlighter]), maka sebaiknya Anda lengkapi dulu runtimenya dan beberapa file untuk mengakses database MySQL, atau Anda rujuk pada link di bawah ini:

1. Aplikasi Minimarket (menggunakan database MySQL, lengkap beserta file-file runtime yang dibutuhkan)
2. MySQL ODBC 3.51 Driver

Nah, setelah menjalankan dua file di atas, seharusnya Anda sudah dapat mengakses database MySQL secara online menggunakan VB6.

READ MORE - Update: My Source Online 2.0 - Online MySQL Database

Aplikasi iImsyakiyah Dari http://www.diajar.com

Aplikasi iImsyakiyah ini dibuat oleh saudara Agung Novian pemiliki situs http://www.diajar.com. Aplikasi ini digunakan untuk memberitahukan jadwal sholat lima waktu.

Keterangan mengenai Aplikasi iImsyakiyah:

• Dibuat menggunakan bahasa pemrograman Visual Basic 6.
• Portable, artinya tidak memerlukan penginstallan.
• GUI yang menarik dan serasi.
• Dilengkapi dengan tray icon.
• Alarm untuk memberitahukan waktu imsyak, dan adzan untuk memberitahukan waktu shalat (bisa dirubah settingannya).
• Dilengkapi fasilitas shutdown dan hibernate
• Walaupun aplikasi hanya mencantumkan tiga daerah (Jakarta, Bandung, dan Cirebon) tetapi Anda dapat dengan mudah menambahkan nama daerah, dengan terlebih dahulu menyesuaikan settingannya, seperti tampak pada gambar di bawah ini:

Bagi Anda yang berminat memiliki aplikasinya, Anda dapat mengunjungi tautan di samping http://www.diajar.com/#/aplikasi-iimsakiyahv1-1. Kritik dan saran mengenai aplikasi ini bisa Anda kirimkan ke alamat email disamping:
pujanggabageur[at]yahoo.com (ganti [at] dengan @)

Terima kasih semoga bermanfaat.

READ MORE - Aplikasi iImsyakiyah Dari http://www.diajar.com

Software Kamus Bahasa Inggris 1.0 Open Source

Project kamus bahasa inggris open source ini seperti biasa dibuat menggunakan bahasa pemrogrman Visual Basic 6.0. Untuk kekurangan dan fitur tambahan bisa Anda perbaiki dan tambahkan pada source code di bawah ini.

Mengenai cara pembuatannya, telah dijelaskan pada bagian-bagian yang dipisahkan agar mudah mempelajarinya klik tautan ini untuk mempelajarinya.

Catatan:
Untuk menggunakannya, compile terlebih dahulu ke dalam file .EXE.

Download: Kamus Inggris Source Code
Download: Kamus Inggris Setup

READ MORE - Software Kamus Bahasa Inggris 1.0 Open Source

Software Kamus Bahasa Inggriis Freeware 1.0

Ini merupakan aplikasi kamus bahasa inggris versi pertama, kosakatanya belum begitu banyak hanya ada sekitar 23 ribuan. Merupakan pengembangan dari cara membuat kamus bahasa inggris yang telah dijelaskan secara panjang lebar. Kelebihan dan kekurangannya bisa Anda lihat pada link tersebut.

Download: Kamus Bahasa Inggris Freeware 1.0

READ MORE - Software Kamus Bahasa Inggriis Freeware 1.0

Just One Click - LaVolpes Manifest Creator - Tools VB6

Tools VB6 ini - [VB6] XP/Vista/Win7 Manifest Creator - diambil dari sebuah Thread milik LaVolpe yang terdapat di situs VBForums - Setelah beberapa kali mencoba Manifest Creator yang dibuat oleh LaVolpe ternyata hasilnya sangat baik dan memuaskan dengan adanya fitur merger terhadap file resource yang telah ada. Walaupun demikian dalam penggunaannya sedikit merepotkan, terutama jika Anda memiliki banyak project yang harus ditambahkan manifest resouce. Akhirnya saya berinisiatif untuk merubahnya menjadi sebuah Add-Ins, sehingga sekarang memiliki fitur tambahan 'Just One Click'.

Download: LaVolpe's Manifest Creator.

Cara menggunakan:

1. Ekstrak file, double klik install.bat untuk meregistrasikan komponen
2. Buka project baru, atau project yang telah Anda buat.
3. Klik menu Add-Ins >> ManifestCreator >> Create Manifest.

Ucapan terima kasih kepada LaVolpe yang telah membuat tools yang sangat bermanfaat ini.

READ MORE - Just One Click - LaVolpes Manifest Creator - Tools VB6

Software Flying-Fox 1.0 Ini Menggunakan Engine Google Transl

Ini merupakan software Kamus Bahasa Inggris Indonesia, database kamus ini menggunakan google translate, software yang menggunakan database google translate umumnya dinamakan dengan Google Translate Client, mungkin software ini merupakan salah satunya. Mengenai kemampuannya, tentu saja sama dengan Google Translate, Ia dapat menerjemahkan satu kata, satu frase atau satu kalimat. Ia, saya beri nama dengan Flying-Fox 1.0, laksana seekor rubah lincah yang dapat terbang kesana kemari.

Proses Instalasi
Proses instalasi kamus ini sangat sederhana, ia tidak menggunakan InnoSetup Installer, hanya menggunakan file .bat biasa. Sehingga bisa disebut sebagai software semi portable dan bisa dijalankan dari Flashdisk.

Cara Menggunakan

1. Jalankan Flying-Fox 10
2. Buka dokumen berbahasa inggris, bisa dari word, wordpad, notepad, browser, dll.
3. Double klik, untuk menterjemahkan satu kata dan gunakan blok & copy untuk menterjemahkan satu frase atau satu kalimat.

[Download Flying-Fox 1.0]

READ MORE - Software Flying-Fox 1.0 Ini Menggunakan Engine Google Transl

VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali - Part-2

Di bawah ini merupakan prosedure VB6 kedua masih mengenai cara mencegah aplikasi dijalankan dua kali. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Declare Function OpenIcon Lib "user32" (ByVal hWnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Public Const GW_HWNDPREV = 3

Sub ActivatePrevInstance()

    Dim AppTitle As String
    Dim PrevHndl As Long
    Dim result As Long

    AppTitle = App.Title
    App.Title = "unwanted instance"
    
    If PrevHndl = 0 Then
        PrevHndl = FindWindow("ThunderRT6Main", AppTitle)
        If PrevHndl <> 0 Then
                PrevHndl =  GetWindow(PrevHndl, GW_HWNDPREV)
                result = OpenIcon(PrevHndl)
                result = SetForegroundWindow(PrevHndl)
                End
        End If
    End If
    
End Sub

Contoh penggunaan prosedure VB6 di atas:

Private Sub Form_Load()
    If App.PrevInstance Then ActivatePrevInstance
End Sub

READ MORE - VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali - Part-2

VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali

Di bawah ini merupakan cara termudah untuk mencegah sebuah aplikasi dijalankan dua kali (double instance) menggunakan VB6. Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit

Private Sub ActivatePrevInstance()
    AppActivate App.Title
    SendKeys "+", True
    End
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Form_Load()
    If App.PrevInstance Then ActivatePrevInstance
End Sub

READ MORE - VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali

VB6 Code - Menutup Seluruh Aplikasi Yang Sedang Berjalan

Di bawah ini merupakan fungsi VB6 untuk menutup seluruh aplikasi yang sedang berjalan. Mengapa seluruh aplikasi yang sedang berjalan tersebut harus ditutup? contoh kecilnya dalam pembuatan billing warnet. Misalnya A (user) log-out, kemudian datang B (user baru) log-in, B tidak akan melihat aplikasi-aplikasi yang masih terbuka (kemungkinan lupa ditutup oleh A), karena seluruh aplikasi yang sedang berjalan telah ditutup secara otomatis dengan fungsi di bawah ini.
Mungkin ada pertanyaan, Apakah ditutup dengan software billing warnetnya juga? ya, boleh jika kita mau, bahkan sekalian di shutdown pula.

Option Explicit

Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, _
ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Public Declare Function IsWindowVisible& Lib "user32" (ByVal hwnd As Long)
Public Declare  Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess& Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long)
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Const SMTO_BLOCK = &H1
Public Const SMTO_ABORTIFHUNG = &H2
Public Const SC_CLOSE = &HF060&
Public Const WM_SYSCOMMAND = &H112
Public Const WM_NULL = &H0
Public  Const PROCESS_ALL_ACCESS = &H1F0FFF

Public HWND_Taskbar As Long
Public HWND_Desktop As Long
Public HWND_ExplorerW As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim lThreadID As Long
    Dim lPid As Long
    Dim lHp As Long
    
    If hwnd <> HWND_Taskbar And hwnd <> HWND_Desktop And hwnd <> HWND_ExplorerW Then
    lThreadID = GetWindowThreadProcessId(hwnd, lPid)
        If lThreadID <> App.ThreadID Then
            If IsWindowVisible(hwnd) Then
                SendMessageTimeout hwnd, WM_SYSCOMMAND, SC_CLOSE, 0, 0, 500, 0
                If IsWindow(hwnd) Then
                    lHp = OpenProcess(PROCESS_ALL_ACCESS, 0&, lPid)
                    TerminateProcess lHp&, 0&
                    CloseHandle lHp
                End If
            End If
        End If
    End If
    
    EnumWindowsProc = 1

End Function

Public Sub  CloseAllRuning()
    HWND_Desktop = FindWindowEx(0&, 0&, "Progman", vbNullString)
    HWND_Taskbar = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)
    EnumWindows AddressOf EnumWindowsProc, 0&
End Sub

Contoh Penggunaan fungsi untuk menutup seluruh aplikasi menggunakan VB6:

Sub Main()
      Call CloseAllRuning
End Sub

READ MORE - VB6 Code - Menutup Seluruh Aplikasi Yang Sedang Berjalan

VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan

Artikel di bawah ini kami beri judul Tunggu hingga Aplikasi selesai dijalankan, maksudnya menjalankan sebuah aplikasi kemudian kode yang berada sesudahnya menunggu (tidak dieksekusi [dijalankan]) sebelum aplikasi tersebut ditutup terlebih dahulu. Bagaimana implementasinya dalam pengkodean Visual Basic 6.0, copy dan pastekan kode di bawah ini kemudian buatlah 1 objek CommandButton.

Fungsi tunggu hingga aplikasi selesai dijalankan

Function WaitUntilFinish(sCommand, WindowsStyle, Wait As Boolean)
   Dim wsh As New IWshRuntimeLibrary.WshShell
   wsh.Run "notepad.exe", 1, True
   'code di bawah akan dijalankan apabila notepad telah ditutup.
   Set wsh = Nothing
End Function

Cara penggunaan fungsi tunggu hingga aplikasi selesai dijalankan

Private Sub Command1_Click()
   Call WaitUntilFinish("notepad.exe", 1, True)
   MsgBox "Kode ini dijalankan apabila notepad di tutup"
End Sub

READ MORE - VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan