Showing posts with label Application. Show all posts
Showing posts with label Application. Show all posts

Monday, December 10, 2012

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)

Monday, June 25, 2012

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

Tuesday, June 12, 2012

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

Tuesday, August 23, 2011

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

Monday, July 25, 2011

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.

Software Kamus Bahasa Inggris Flying-Fox 1.0
[Download Flying-Fox 1.0]
READ MORE - Software Flying-Fox 1.0 Ini Menggunakan Engine Google Transl

Saturday, April 3, 2010

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

Friday, March 19, 2010

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