FileSystemWatcher

FileSystemWatcher adalah sebuah kontrol yang digunakan untuk me-monitor / memantau aktifitas yang terjadi di suatu Folder, seperti membuat, merubah, menghapus File maupun Folder. Penggunaannya sangat mudah, berikut contoh caranya :

• Buat Project baru dengan sebuah Form didalamnya. Masukkan 1 kontrol FileSystemWatcher ke dalam Form tersebut.
• Pilih Folder mana yang akan di monitor dengan mengubah properti "Path"-nya.
• Jika proses monitor ingin dilakukan juga pada Folder di dalam Folder terpilih, ubah properti "IncludeSubdirestories" menjadi "True".
• Sekarang untuk menampung hasilnya, tambahkan 1 kontrol ListBox ke dalam Form.
• Ketikkan kode :
  Di bagian 'FileSystemWatcher1_Changed'
  
  ListBox1.Items.Add("Dirubah > " & e.FullPath)
  Di bagian 'FileSystemWatcher1_Created'
  
  ListBox1.Items.Add("Dibuat > " & e.FullPath)
  Di bagian 'FileSystemWatcher1_Deleted'
  
  ListBox1.Items.Add("Dihapus > " & e.FullPath)
  Di bagian 'FileSystemWatcher1_Renamed'
  
  ListBox1.Items.Add("Diganti namanya > " & e.FullPath)

Sekarang jalankan Project, lalu buat percobaan dengan melakukan aktifitas seperti membuat dan menghapus File atau Folder.

Menjalankan dan Menunggu Aplikasi Ditutup

Yang dimaksud disini adalah proses dimana aplikasi Anda menjalankan sebuah aplikasi lain (dengan kode), lalu aplikasi Anda berhenti dan menunggu sampai aplikasi yang dijalankan tadi ditutup / diakhiri. Berikut ini contoh pembuatannya.
Buat Project baru dengan sebuah Form didalamnya, lalu tambahkan sebuah kontrol Tombol / Button ke Form tersebut.

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

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Const SYNCHRONIZE = &H100000

Di bagian 'Command1_Click' ketikkan :

Dim l As Long
  
l = Shell("notepad.exe", vbNormalFocus) 'menjalankan aplikasi notepad
l = OpenProcess(SYNCHRONIZE, 0, l)
  
Me.Hide 'menyembunyikan form
  
WaitForSingleObject l, -1  'proses menunggu
  
Me.Show 'memunculkan form kembali

Untuk kelancaran prosesnya, buatlah Project menjadi aplikasi (*.exe)




[ VB .NET ]
Di bagian 'Button1_Click' ketikkan :

Dim p As New Diagnostics.Process
p = Diagnostics.Process.Start("notepad.exe") 'menjalankan aplikasi notepad

Me.Hide() 'menyembunyikan form

p.WaitForExit(-1) 'proses menunggu

Me.Show() 'memunculkan form kembali

Splash Screen

Splash Screen merupakan suatu istilah bagi Form hiasan yang ditampilkan sebelum Form utama ditampilkan. Proses pembuatannya sangat mudah, berikut caranya :

• Buat Project baru dengan dua buah Form didalamnya (Form1 dan Form2). Dalam hal ini Form1 dianggap sebagai Form splash screen-nya, dan Form2 sebagai Form utamanya.


• Atur properti dari Form1, yaitu :
  [ VB 6.0 ] / [ VB .NET ]
  BorderStyle / FormBorderStyle = None
  StartUpPosition / StartPosition = CenterScreen
  ShowInTaskbar = False


• Untuk mempercantik tampilan, tambahkan gambar dan informasi aplikasi ke dalam Form1 seperti gambar diatas.


• [ VB 6.0 ]
  Lalu didalam Form1 masukkan sebuah kontrol Timer(properti Enabled=True; Interval=2000), dan ketikkan kode ini di bagian 'Timer1_Timer'
  
  Form2.Show 'memunculkan form utama
  Unload Me 'menutup form splash
  
  
  
  [ VB .NET ]
  Buka jendela Properties dari Project (klik menu Project > NamaProject Properties).
  Atur nilai "Startup Form" menjadi Form2, dan "Splash Screen" menjadi Form1.
  
  
  Sekarang untuk mengatur ulang waktu lamanya, di jendela "Solution Explorer" klik tombol "Show All Files" lalu cari dan buka file Application.Designer.vb.
  
  
  Lalu gantikan kode (area paling bawah) yang tadinya seperti ini :
  Protected Overrides Sub OnCreateSplashScreen()
      Me.SplashScreen = Global.WindowsApplication1.Form1
  End Sub
  Menjadi seperti ini :
  Protected Overrides Sub OnCreateSplashScreen()
      Me.MinimumSplashScreenDisplayTime = 3000 '3 detik
      Me.SplashScreen = Global.WindowsApplication1.Form1
  End Sub

Informasi Regional

Setiap komputer memiliki pengaturan regional yang berbeda (Control Panel > Regional and Language Options). Jika Anda membutuhkan informasi regional tersebut untuk kebutuhan aplikasi, berikut contoh penggunaannya.
Buat Project baru dengan sebuah Form didalamnya. Di dalam Form buatlah sebuah kontrol TextBox (Multiline=True). Lalu di bagian 'Form_Load' ketikkan kode berikut :

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s = s & "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s = s & "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s = s & "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s = s & "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s = s & "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf
  
Text1.Text = s

[ VB .NET ]

Dim Reg As Object = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s &= "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s &= "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s &= "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s &= "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s &= "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf

TextBox1.Text = s

Animasi Fade Form

Animasi Fade Form adalah animasi fade / transparasi / opacity yang ditampilkan ketika suatu Form dibuka dan ditutup. Berikut cara membuatnya :

[ VB 6.0 ]
Buat Project baru dengan sebuah Form dan sebuah Module didalamnya. Di Module ketikkan kode Module yang ada disini. Lalu di Form di bagian 'Form_Load' ketikkan :

FadeForm Me, 0
Me.Show
  
Dim i As Integer
For i = 1 To 255 Step 1
FadeForm Me, i
DoEvents
Next
  
FadeForm Me, 255

Dan di bagian 'Form_Unload' ketikkan :

Dim i As Integer
For i = 255 To 1 Step -1
FadeForm Me, i
DoEvents
Next

[ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya. Di bagian 'Form1_Load' ketikkan :

Me.Opacity = 0
Me.Show()

Dim i As Integer
For i = 1 To 100 Step 1
Me.Opacity = i / 100
Application.DoEvents()
Next

Me.Opacity = 1

Dan di bagian 'Form1_FormClosed' ketikkan :

Dim i As Integer
For i = 100 To 1 Step -1
Me.Opacity = i / 100
Application.DoEvents()
Next

CATATAN : Kecepatan animasi tergantung besar nilai angka yang berwarna merah dan ukuran Form itu sendiri.

Membuat Template Sendiri

Jika Anda adalah seorang Programmer yang mempunyai banyak Project, ada baiknya membuat Template sendiri untuk lebih mempercepat dan mempermudah pembuatan suatu aplikasi. Sebut saja aplikasi-aplikasi database, pasti ada kesamaannya yaitu ada sebuah Module atau Class khusus untuk pengaturan koneksi ke database-nya. Disinilah fungsi Template sangat berguna, dimana jika Anda ingin menambahkan sebuah Module khusus koneksi database, akan semudah menambahkan Module biasa.
Cara membuat Template (sebagai contoh untuk membuat Module) sebagai berikut :


[ VB 6.0 ]

• Buat Project baru, lalu tambahkan Module (sebagai contoh beri nama "modKoneksiDB").
• Didalam Module tersebut, ketikkan beberapa baris kode sebagai contoh saja.
• Lalu simpan Project-nya seperti biasa. Kemudian tutup program VB 6.0.
• Buka lokasi penyimpanan Project tadi, kemudian copy-kan file Module-nya ("modKoneksiDB.bas") ke lokasi instalasi VB 6.0. Karena ini berupa Module, maka copy-kan ke folder khusus Template Module yaitu di "C:\Program Files\Microsoft Visual Studio\VB98\Template\Modules". Jika folder tersebut tidak ada, maka buatlah sendiri foldernya.
• Sekarang Module tersebut sudah siap dipakai sebagai Template untuk penambahan / add Module untuk berbagai Project.

[ VB .NET ]

• Buat Project baru, lalu tambahkan Module.
• Didalam Module tersebut, ketikkan beberapa baris kode sebagai contoh saja.
• Lalu klik menu File > Export Template. Jika muncul perintah penyimpanan klik saja Save.
• Kemudian akan muncul jendela langkah-langkah pembuatan Template.
• Di halaman pertama akan muncul pilihan tipe Template-nya. Karena yang ingin dijadikan Template hanya Module-nya saja, pilih "Item template". Lalu klik Next.
• Di halaman ke-2 pilih file Module-nya saja. Lalu klik Next.
• Di halaman ke-3 pilih Reference apa saja yang dibutuhkan untuk Module tersebut. Jika tidak perlu, tidak usah dipilih. Lalu klik Next.
• Di halaman ke-4 / terakhir sesuaikan sendiri Icon, Nama Template, Deskripsi. Sebagai contoh beri Nama Template-nya dengan nama "modKoneksiDB". Lalu klik Finish.
• Sekarang Module tersebut sudah siap dipakai sebagai Template untuk penambahan item Module untuk berbagai Project.

 

CATATAN : Selain bisa diterapkan untuk Module, cara ini juga bisa diterapkan untuk object yang lain seperti Form, Class, User Control, dll.

Menyembunyikan File dan Folder

Terkadang seorang programmer ingin membuat sebuah File atau Folder yang tersembunyi (hidden) dengan tujuan agar lebih aman dan tidak mudah diutak atik oleh user. Berikut ini cara menyembunyikan File dan Folder sesuai tingkat ke-hidden-annya.

• Tingkat 1 (Hidden)
  [ VB 6.0 ]
  
  SetAttr "Lokasi File atau Folder", vbHidden
  [ VB .NET ]
  
  SetAttr("Lokasi File atau Folder", FileAttribute.Hidden)


• Tingkat 2 (Super Hidden)
  [ VB 6.0 ]
  
  SetAttr "Lokasi File atau Folder", vbHidden Or vbSystem
  [ VB .NET ]
  
  SetAttr("Lokasi File atau Folder", FileAttribute.Hidden Or FileAttribute.System)

Ketika File atau Folder di hidden / disembunyikan, maka File atau Folder tersebut tidak dapat di olah /di proses. Maka dari itu File atau Folder tersebut harus dimunculkan terlebih dulu. Contoh kode pemrosesan file :

[ VB 6.0 ]

SetAttr "Lokasi File atau Folder", vbNormal 'memunculkan file

'pemrosesan file
'kode-kode pemrosesan file
'kode-kode pemrosesan file

SetAttr "Lokasi File atau Folder", vbHidden 'disembunyikan lagi

[ VB .NET ]

SetAttr("Lokasi File atau Folder", FileAttribute.Normal) 'memunculkan file

'pemrosesan file
'kode-kode pemrosesan file
'kode-kode pemrosesan file

SetAttr("Lokasi File atau Folder", FileAttribute.Hidden) 'disembunyikan lagi

Aplikasi Facebook Mini

Sebenarnya aplikasi Facebook Mini hanyalah merupakan aplikasi sejenis web browser yang dikhususkan untuk mengakses halaman Facebook saja.
Tapi bagi para Facebooker, pasti akan tertarik dengan aplikasi ini. Karena aplikasi ini menggunakan halaman Facebook versi ponsel, maka waktu loadingnya lebih cepat daripada versi normalnya. Selain itu juga dilengkapi beragam shortcut menu untuk memudahkan navigasi antar halaman.
Perlu diingat sebelum menggunakan aplikasi ini, pastikan di komputer sudah ter-install Internet Explorer 8.

Drive Icon Maker

Ini merupakan source code aplikasi Drive Icon Maker yang merupakan aplikasi untuk membuat ikon untuk drive-drive di komputer.

All-In-One Toolbar

All-In-One Toolbar bukanlah sebuah kontrol Toolbar baru atau buatan sendiri, tetapi hanya konsep / cara bagaimana lebih memanfaatkan kontrol Toolbar biasa,
khususnya aplikasi yang menggunakan tampilan MDI.

Mengenal LINQ

LINQ adalah fitur baru yang ditambahkan sejak pada Visual Basic 2008 (9.0) yang berguna untuk lebih mempermudah dalam proses pembuatan aplikasi.

Lampu Lalu Lintas

Berikut ini merupakan contoh source code membuat simulasi lampu lalu lintas / traffic light, cocok untuk mengasah kemampuan logika Anda.