Menutup Semua Form Child pada Form MDI

Apabila Anda mempunyai sebuah project yang menggunakan Form MDI dan mempunyai banyak Form Child, berikut ini adalah kode yang dibutuhkan agar semua form child tertutup dalam sekali klik.

[ VB 6.0 ]

Do Until Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop

[ VB .NET ]

For Each f As Form In Me.MdiChildren
f.Close()
Next

Mengurutkan DataGrid

Buat sebuah Module baru dan ketikkan :

Public Sub SortDatagrid(ByVal Dgd As DataGrid, ByVal Rst As Recordset, ByVal ColId As Integer)
If Rst.Sort = Dgd.Columns(ColId).DataField Then
Rst.Sort = Dgd.Columns(ColId).DataField & " DESC"
Else
Rst.Sort = Dgd.Columns(ColId).DataField
End If
End Sub

Sebagai contoh penggunaannya, buat sebuah kontrol 'Adodc' dan sebuah 'DataGrid'. Atur koneksi yang ada di kontrol Adodc, dan pastikan properti DataSource dari DataGrid adalah kontrol Adodc tersebut. Setelah itu pada bagian 'DataGrid1_HeadClick' ketikkan :

SortDatagrid DataGrid1, Adodc1.Recordset, ColIndex

Jalankan aplikasi dan coba klik header / nama kolom dari DataGrid.

Full Screen Form

Untuk membuat Full Screen Form atau Form yang menempati seluruh layar, tidak dibutuhkan kode-kode pemrograman. Yang Anda lakukan hanya mengatur properti pada Form itu sendiri. Berikut properti-properti Form yang perlu diatur :

1. Jika VB 6.0 atur 'Caption' menjadi kosong, sedangkan VB .NET atur 'Text' menjadi kosong.
2. 'ControlBox' = False.
3. 'WindowState' = Maximized.

TextBox Angka

Dalam aplikasi yang berkaitan dengan angka seperti aplikasi penjualan atau aplikasi gudang, pasti akan ditemukan TextBox yang diharuskan diisi angka saja. Sebagai contoh pembuatannya, buat sebuah Form baru dengan sebuah TextBox didalamnya.

[ VB 6.0 ]
Ketikkan kode berikut di bagian 'Text1_KeyPress'.

Select Case KeyAscii
Case 8, 13, 27, 24, 3, 22 'key penting
Case Else
If InStr("0123456789-.,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Select

Dan sebagai tambahan saja di bagian 'Text1_LostFocus' ketikkan :

If (Text1.Text <> "") And (Not IsNumeric(Text1.Text)) Then
MsgBox ("Harus bernilai angka !")
Text1.SetFocus
End If

[ VB .NET ]
Ketikkan kode berikut di bagian 'TextBox1_KeyPress'.

Select Case Asc(e.KeyChar)
Case 8, 13, 27, 24, 3, 22 'key penting
Case Else
If InStr("0123456789-.,", e.KeyChar) = 0 Then e.KeyChar = Chr(0)
End Select

Dan sebagai tambahan saja di bagian 'TextBox1_Leave' ketikkan :

If (TextBox1.Text <> "") And (Not IsNumeric(TextBox1.Text)) Then
MsgBox("Harus bernilai angka !")
TextBox1.Focus()
End If

Mengekspor Data ke Excel

MS Excel merupakan aplikasi pengolah data yang populer di dunia perkantoran. Dengan mengekspor data recordset ke aplikasi Excel, diharapkan user/pengguna lebih leluasa untuk memanipulasi data tersebut sebelum dicetak atau digunakan lebih lanjut. Ada berbagai cara untuk mengekspornya, berikut adalah beberapa caranya :

1. Membuat file baru. Cara ini dimulai dengan membuka Excel, lalu memasukkan data yang diperlukan. Jika ingin mengatur formatnya, maka juga harus menambahkan kode-kode tertentu.
2. Menggunakan file yang sudah ada. Cara ini mungkin akan lebih repot dari cara pertama, karena harus membuat file Excel terlebih dahulu yang kemudian disimpan. Keuntungan dari cara ini adalah aplikasi berjalan lebih cepat, karena aplikasi hanya memasukkan datanya saja tanpa perlu menambahkan kode-kode yang lain. Untuk cara ini disarankan menggunakan file Excel yang berjenis template (*.xlt).

Untuk lebih jelasnya, download source code-nya disini.

Kalkulator Mini

Aplikasi ini merupakan sebuah kalkulator dengan ukuran yang mini. Berbeda dengan aplikasi kalkulator pada umumnya, kalkulator ini tidak mempunyai tombol sama sekali.
Untuk menggunakannya, user tinggal mengetikkan rangkaian penghitungan angka ke dalam kontrol ComboBox. Aplikasi ini memerlukan Reference "Microsoft Script Control 1.0" (msscript.ocx) untuk proses penghitungannya.

Data Report tanpa Data Environment

Untuk menggunakan Data Report, sebenarnya tidak harus membuat Data Environment terlebih dulu. Data Report bisa digunakan melalui kontrol Adodc atau variabel bertipe recordset. Agar lebih jelasnya download source code-nya disini.

Shutdown, Restart, dan LogOff

Berikut ini kode yang digunakan untuk Shutdoww, Restart, dan LogOff komputer.

[ VB 6.0 ]  &  [ VB .NET ]
Shutdown

Shell "shutdown -s -f -t 0"

Restart

Shell "shutdown -r -f -t 0"

LogOff

Shell "shutdown -l -f -t 0"

[ VB Script ]
Untuk Shutdown ketikkan :

Set SH = CreateObject("WScript.Shell")
SH.Run shutdown -s -f -t 0

Untuk Restart gantikan tulisan yang bewarna merah dengan "shutdown -r -f -t 0", dan untuk LogOff gantikan dengan "shutdown -l -f -t 0".

Fungsi Hitung Umur

Fungsi ini akan menghitung umur dengan menghitung jarak antara selisih tanggal lahir dengan tanggal sekarang.

[ VB 6.0 ]  &  [ VBA Office ]

Public Function HitungUmur(ByVal TglLahir As Date) As String
Dim d As Integer, m As Integer, y As Integer

If TglLahir >= Now Then
HitungUmur = ""
Exit Function
End If

d = Day(Now) - Day(TglLahir)
m = Month(Now) - Month(TglLahir)
y = Year(Now) - Year(TglLahir)

If Sgn(d) = -1 Then
d = 30 - Abs(d)
m = m - 1
End If

If Sgn(m) = -1 Then
m = 12 - Abs(m)
y = y - 1
End If

HitungUmur = y & " Tahun, " & m & " Bulan, " & d & " Hari"
End Function

[ VB .NET ]

Public Function HitungUmur(ByVal TglLahir As Date) As String
Dim d, m, y As Integer

If TglLahir >= Now Then
HitungUmur = ""
Exit Function
End If

d = Now.Day - TglLahir.Day
m = Now.Month - TglLahir.Month
y = Now.Year - TglLahir.Year

If System.Math.Sign(d) = -1 Then
d = 30 - System.Math.Abs(d)
m = m - 1
End If

If System.Math.Sign(m) = -1 Then
m = 12 - System.Math.Abs(m)
y = y - 1
End If

HitungUmur = y & " Tahun, " & m & " Bulan, " & d & " Hari"
End Function

Contoh penggunaan :

s = HitungUmur(CDate("23/07/1989"))

Upgrade Aplikasi VB

Sebuah aplikasi game tebak kata yang dibuat semalam suntuk sebagai hadiah ulang tahun untuk kekasih tersayang tentu masih dapat digunakan tanpa perlu diubah menjadi versi .NET (terlebih kalau game tersebut hanya pernah dimainkan satu kali). Tetapi, bagaimana dengan aplikasi HRD perusahaan Anda?
Katakanlah, perusahaan Anda telah berkembang memiliki beberapa kantor cabang, tetapi menginginkan monitor keseluruhan pegawai pada kantor pusat melalui aplikasi HRD. Dengan dukungan infrastruktur yang tepat, Anda mulai memikirkan penerapan aplikasi .NET yang dapat memenuhi kebutuhan perusahaan saat ini maupun di masa yang akan datang.

Download artikel lengkapnya disini.

Pemrograman Excel 2007

MS Office Excel dapat dikatakan sebagai aplikasi sejuta umat, artinya pemakai aplikasi Excel ini sangat banyak. Fleksibilitas dan kemudahan aplikasi Excel inilah yang menjadikan alasan utama kenapa banyak orang menggunakan aplikasi Excel.
Pada umumnya, memprogram kode aplikasi sangat sulit dan ribet, tapi pemrograman Excel tidaklah seperti apa yang dibayangkan. Mudah, sederhana, dan menyenangkan.

Download artikel lengkapnya disini.

Optimasi SQL

Jika diibaratkan manusia, database adalah sahabat yang patuh dan mengerti pada setiap perintah yang diberikan, sayangnya terkadang tidak berlaku sebaliknya, kita tidak patuh dan tidak mengerti pada “perintah” yang diberikan database.
Optimasi dapat dilakukan dengan berbagai cara, dengan memahami tuning performance pada database dan best practice dari berbagai sumber, Anda dapat memiliki fundamental yang kuat dalam mengoptimalkan kinerja database.

Download artikel lengkapnya disini.

Optimasi Teknik Pemrograman

Pemrograman dapat dikatakan sebuah proses menulis, testing, debug, dan pemeliharaan source code dari program komputer. Source code itu sendiri ditulis dengan sebuah bahasa pemrograman.
Jika dikatakan teknik pemrograman, tentunya merupakan teknik melakukan pemrograman agar mendapatkan hasil yang lebih baik. Hasil yang diinginkan di sini bersifat relatif, jika ditinjau secara umum (tidak merujuk pada salah satu teknologi/bahasa pemrograman/arsitektur tertentu). Beberapa hal yang dapat dioptimasi, antara lain logika, kecepatan proses, ataupun ukuran kode.

Download artilel lengkapnya disini.

Windows Scripting

Mungkin sepanjang hari Anda menggunakan aplikasi kantor/database yang dibuat dengan bahasa Visual Basic/VB.NET, atau menggunakan website hasil kerja programer ASP/ASP.NET atau pengguna setia aplikasi macro yang ditulis dengan VBA (Visual Basic for Applications), dan jika hari Anda kurang beruntung, Anda adalah korban dari virus yang dibuat dengan VBScript.
Dari berbagai jenis Visual Basic yang disebutkan, VBScript merupakan bahasa script yang mudah didapatkan dan digunakan pada lingkungan Windows. Anda tidak perlu menginstal IDE, compiler, aplikasi atau tools tertentu.

Download artikel lengkapnya disini.

Testing Aplikasi

Bug merupakan kesalahan atau kerusakan program yang menyebabkan satu atau lebih fungsi tidak berjalan sebagaimana mestinya. Salah satu pencegahan bug adalah dengan melakukan testing pada aplikasi. Testing aplikasi merupakan suatu kegiatan untuk mengidentifikasikan keberhasilan, kelengkapan, keamanan, dan kualitas pada aplikasi yang bersangkutan.
Karena itu, testing aplikasi merupakan kegiatan yang sangat penting sebelum Anda memperkenalkan aplikasi Anda pada masyarakat luas. Testing bertujuan untuk menemukan bug, testing merupakan proses membandingkan output nyata dengan output yang diharapkan.

Download artikel lengkapnya disini.

Membuat Aplikasi untuk Perusahaan

Bagi Anda yang baru kali pertama membuat program untuk sebuah perusahaan, tentunya situasi yang dihadapi saat ini berbeda dibandingkan membuat program untuk tugas kuliah atau skripsi. Perbedaannya tidak semata-mata dari kompleksitas, tetapi lebih merujuk pada tanggung jawab dan bagaimana memberikan aplikasi yang baik untuk perusahaan.
Aplikasi yang dibuat untuk perusahaan mutlak harus stabil dan dapat menangani kesalahan yang mungkin terjadi dengan baik, mengingat operasi bisnis perusahaan tergantung pada aplikasi tersebut.

Download artikel lengkapnya disini.

Perencanaan dan Pemeliharaan Aplikasi

Membangun sebuah aplikasi dapat dianalogikan dengan membuat sebuah film ataupun buku yang memiliki cerita. Di mana pada cerita tersebut, Anda menentukan tokoh dan karakter, alur cerita, dan skenario, juga menentukan akhir cerita. Demikian pula halnya dengan membangun aplikasi.
Satu-satunya perbedaan yang nyata, jika suatu cerita dapat disengaja berujung sad ending story, maka hal tersebut justru dihindari dalam skenario pembuatan aplikasi. Anda tentu tidak menginginkan akhir dari pembuatan aplikasi Anda menjadi cerita horror atau menguras air mata (dalam arti yang sebenarnya).

Download artikel lengkapnya disini.

Mengenal MySQL

MySQL merupakan salah satu sistem database open source yang paling popular, dengan kemudahan implementasi, reliabilitas, dan tentunya total biaya yang relatif murah. Ditambah dengan dukungan konektivitas pada platform Windows, Linux, Unix, Solaris, dan banyak lagi.
Sebagai sebuah sistem database, MySQL juga memerlukan pendamping, yaitu bahasa pemrograman yang berinteraksi dengannya. Bahasa pemrograman seperti C, C++, PHP, ASP, ASP.NET, Perl, C#, Visual Basic, Java, Phyton, dan lain sebagainya dapat digunakan untuk mengakses MySQL.

Download artikel lengkapnya disini.

Kesalahan Pemrograman

Hampir tidak ada aplikasi yang berjalan sempurna sebelum melewati berbagai rentetan kesalahan, semakin besar aplikasi yang dibuat, semakin banyak kesalahan yang dapat timbul. Sukar dibayangkan jika Anda dapat mengetikkan ratusan baris kode program tanpa ditemukan kesalahan pada saat dijalankan atau dikompilasi untuk kali pertama.

Download artikel lengkapnya disini.

Mengelola File dan Database

Pada sebuah aplikasi, database sering menjadi faktor penting. Sebagai contoh, sebuah aplikasi absensi tidak akan berjalan tanpa data absen, atau sebuah aplikasi kasir tidak akan berjalan tanpa data produk dan harga. Untuk menyimpan database, Anda mutlak memerlukan ruang pada media penyimpanan. Anda perlu menyimpan database pada file dan mengelolanya.
Konsep mengelola file dan database bisa jadi sama untuk semua bahasa pemrograman, tetapi jika Anda menggunakan Visual Basic .NET, beberapa teknik khusus perlu diketahui agar Anda dapat membuat aplikasi database yang baik dengan waktu yang relatif singkat.

Download artikel lengkapnya disini.

Fase Pembuatan Aplikasi

Pembuatan aplikasi tidak melulu seni menulis ratusan atau bahkan ribuan baris kode program, Anda harus memperlakukannya sebagai sebuah proyek, yang memiliki tahapan-tahapan tertentu. Terdapat cukup banyak referensi mengenai tahapan pembuatan aplikasi dan bisa jadi sedikit berbeda satu sama lain, tetapi satu hal yang sama adalah semuanya menggambarkan rentetan tahapan tersebut sebagai suatu siklus hidup (life cycle).

Download artikel lengkapnya disini.

Kompilasi dan Optimasi Executable File

Kode-kode program yang Anda ketik dengan bahasa pemrograman seperti Visual Basic, Fox Pro, C++, dan lain-lain tentu cukup mudah dimengerti secara umum. Sayangnya komputer tidak secerdas manusia, komputer tidak memahami bahasa tersebut. Bahasa ini baru akan dimengerti oleh komputer setelah menjadi kode-kode biner, proses pengolahan menjadi kode-kode biner inilah yang dinamakan kompilasi.
Executable file merupakan file biner hasil dari kompilasi yang dilakukan terhadap kode program Anda. Kompilasi dapat dibagi menjadi Full Compilation dan On-demand Compilation, sedangkan aplikasi yang melakukan kompilasi disebut dengan Compiler, pada umumnya bahasa pemrograman telah dilengkapi dengan fasilitas Compiler.

Download artikel lengkapnya disini.