Mendeteksi Versi MS Office

Cara termudah untuk mendeteksi versi MS Office yang ter-install di komputer, yaitu dengan cara membaca nilai registry. Berikut kodenya :

Tulis kode function ini di Module baru :

Function VersiOffice(ByVal Aplikasi As String) As String
    On Error GoTo Ero
    Dim Reg As Object
    Dim s As String
      
    Set Reg = CreateObject("Wscript.Shell")

ListBox yang bisa di Edit

Agar item yang terdapat di ListBox bisa di edit, maka diperlukan cara khusus dengan mengkombinasikannya dengan TextBox. Berikut caranya :

Aplikasi Pinger

Sesuai dengan namanya, aplikasi ini berguna untuk melakukan ping ke website. Aplikasi ini juga berguna untuk menyetabilkan koneksi internet yang lemah.

Aplikasi Penge-"Block" Website

Ini merupakan aplikasi yang digunakan untuk menge-block atau memblokir Komputer untuk mengakses website / situs tertentu dari Browser.

Menata Form Child di Form MDI

Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.

Memblokir USB Drive

Potongan kode ini berguna untuk memblokir USB Drive, seperti flash disk, memory card, dll. Tapi tidak memblokir hardware lain yang menggunakan USB yang tidak bersifat drive, seperti printer atau modem.

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"

Membulatkan Bilangan Desimal

Banyak cara dalam VB untuk membulatkan suatu bilangan/ angka desimal menjadi bilangan bulat. Jika Anda belum paham, berikut penjelasan singkatnya :

• Pembulatan Otomatis
  Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
  Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
  Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
  

Menghitung Selisih Tanggal

Bila Anda membutuhkan kode untuk menghitung selisih antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :

Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )

Jenis Interval	Keterangan
d	Day (Hari)
m	Month (Bulan)
yyyy	Year (Tahun)
h	Hour (Jam)

Menambah dan Mengurangi Tanggal

Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan operator + dan -. Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya :

Fungsi : DateAdd( Jenis interval, Besar perubahan, Tanggal yang dihitung )

Jenis Interval	Keterangan
d	Day (Hari)
m	Month (Bulan)
yyyy	Year (Tahun)

Fungsi-fungsi Date/Time

Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic

• Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
  d = Now , hasilnya 13/01/2012 1:22:42


• Date, digunakan untuk mendapatkan Tanggal sekarang.
  [ VB 6.0 ] d = Date , hasilnya 13/01/2012
  [ VB .NET ] d = Now.Date , hasilnya 13/01/2012