Aplikasi Belajar Mewarnai

Aplikasi ini dibuat untuk digunakan anak-anak sebagai media dalam belajar mewarnai suatu gambar. Aplikasi ini sejenis aplikasi Paint yang dibuat lebih sederhana.

Filter Data Berdasarkan Tanggal

Mungkin banyak yang belum tahu bagaimana cara mem-filter / menyeleksi data berdasarkan tanggal tertentu, berikut ini contoh souce code-nya.

Tanggal Akhir Bulan

Tanggal akhir bulan biasanya digunakan untuk melengkapi title / judul data laporan keuangan di akhir periode (misal, Laporan Neraca per . . . . . . . . . . . . ). Untuk mengetahui tanggal akhir bulan, tidak diperlukan kode yang terlalu banyak. Berikut ini contohnya :

Dim Bulan As Integer, Tahun As Integer, d As Date

Bulan = 7 'JULI

Tahun = 2011

d = DateSerial(Tahun, Bulan + 1, 0) 'menampung hasil
MsgBox d 'memunculkan pesan

Jika Anda ingin mengetahui tanggal akhir bulan dari bulan sekarang dan tahun sekarang, gantikan kode yang berwarna merah dengan kode berikut :

Bulan = Month(Now)
Tahun = Year(Now)

Menyembunyikan TaskBar dan Desktop Icon

Berikut ini adalah contoh kode yang digunakan untuk menyembunyikan TaskBar dan Desktop Icon. Buat Project baru dengan sebuah Form didalamnya.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dan di bagian Form_Load ketikkan :

ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0 'taskbar
ShowWindow FindWindow("Progman", vbNullString), 0 'desktop icon

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

Dan di bagian Form1_Load ketikkan :

ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0) 'taskbar
ShowWindow(FindWindow("Progman", vbNullString), 0) 'desktop icon

CATATAN : Jika Anda ingin mengembalikannya seperti semula, gantikan nilai 0 yang berwarna merah, menjadi nilai 1.

Menambahkan Tab dalam Form MDI

Penambahan kontrol Tab ke dalam Form MDI, berguna untuk mempermudah User ketika berpindah-pindah antar Form Child-nya.

Menghilangkan DoubleClick Mouse

Kode ini berguna untuk menghilangkan / meniadakan perintah double click pada mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SetDoubleClickTime 1

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SetDoubleClickTime(1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Buttons". Lalu sesuaikan kembali Double-click speed-nya.

Resource

Dalam istilah yang sederhana, Resource dapat diartikan sebagai tempat untuk menyimpan file-file yang dibutuhkan atau diakses aplikasi. File-file yang dimasukkan ke dalam Resource akan dijadikan satu atau ikut ter-compile ketika aplikasi dijadikan *.exe.
Sebagai percobaan, langkah berikut ini akan mengatur gambar dari Form dimana gambar tersebut diambil dari Resource. Jadi sebelumnya siapkan sebuah file gambar *.jpg, kemudian ikuti langkah selanjutnya berikut ini :


[ VB 6.0 ]
Secara default, VB 6.0 tidak mengaktifkan fitur untuk membuat Resource. Untuk mengaktifkannya klik menu Add-Ins >> Add-In Manager. Dalam daftar pilih item dengan nama "VB 6 Resource Editor", lalu centang pilhan / checkbox "Loaded/Unloaded" dan "Load on Startup" kemudian klik tombol OK untuk menutupnya. Selanjutnya klik menu Tools >> Resource Editor, maka akan muncul jendela seperti berikut :

Dalam toolbar-nya, pilih "Add Custom Resource", kemudian buka file gambar *.jpg yang sudah disiapkan tadi. Setelah itu maka secara otomatis muncul item folder baru "CUSTOM" dan item "101" dibawahnya. Penjelasanya adalah file gambar *.jpg tadi, tersimpan dibagian "CUSTOM" dengan nomor index atau ID = 101 (dapat dirubah). Kemudian klik toolbar "Save" untuk menyimpannya.
Sekarang langkah kode untuk memanggil gambar tersebut dari Resource yang akan dijadikan gambar untuk Form. Di bagian 'Form_Load' ketikkan :

Dim b() As Byte
      
Open "tmp" For Binary As #1
b() = LoadResData(101, "CUSTOM") '101 adlh ID dr gambar
Put #1, 1, b()
Close #1

Me.Picture = LoadPicture("tmp")

[ VB .NET ]
Klik menu Project >> "Nama Project" Properties, kemudian pilih tab "Resources". Selanjutnya pilih menu combo box Add Resouce >> Add Existing File, lalu pilih file gambar *.jpg yang sudah disiapkan tadi. Kemudian simpan / save project tersebut.
Sekarang langkah kode untuk memanggil gambar tersebut dari Resource yang akan dijadikan gambar untuk Form. Di bagian 'Form1_Load' ketikkan :

Me.BackgroundImage = My.Resources.Gambar 'sesuaikan kembali