Membuat program valiasi input VB6

Membuat Validasi Input

Sibuk membuat program? Susah bikin validasi? Atau bahkan tdak tahu apa itu validasi? Baiklah berikut ini kita akan bahas mengenai validasi input. Fungsi validasi adalah untuk pengujian data input atau isian agar sesuai persyaratan yang diinginkan dan meminimalkan kesalahan pada saat pemasukan dan pengubahan data. Dalam pemrograman menggunakan Visual Basic, Java, PHP, atau apapun jenisnya yang berkaitan dengan pengisian data pasti memerlukan validasi input. Misalnya kita akan memasukkan yang seluruhnya berupa angka untuk perhitungan secara matematis, nama seseorang yang tidak boleh terdapat unsur selain huruf dan pembatasan tanggal atau waktu. Tidak lucu jika kita akan memasukkan tanggal lahir seorang pegawai tetapi tanggal lahirnya malah belum dilahirkan. Misalnya saat ini tahun 2006 bulan Januari, tetapi tanggal lahir yang dimasukkan adalah 09/04/2006. Apakah masuk akal ada pegawai tetapi belum dilahirkan?
Maka hal ini perlu kita sesuaikan misalnya rata-rata pegawai yang diterima adalah berumur 17 tahun atau lebih. Maka kita buat batasan jika selisih tahun saat ini dengan tanggal lahir kurang dari 17 maka sistem secara otomatis akan mengingatkan pengguna. Oke langsung saja ke praktek ya,… yang perlu disediakan yaitu:

1.Visual Basic 6.0 dengan pilihan Standard Exe.
2. Bubuhkan Label dan sesuaikan Caption-nya.
3. TextBox sebanyak 2, kosongkan property Text-nya, atur property Name-nya menjadi txtAngka dan txtCapital 
4.DTPicker atau Date Time Picker sebanyak 2, jika belum ada karena menggunakan Standard Exe maka tambahkan komponen dengan cara:

a.       Pilih menu Project, kemudian pilih Component atau cukup tekan Ctrl+T

b.      Akan muncul seperti pada Gambar 1, kemudian beri centang pada Ms. Windows Common Controls-2 6.0 (SP4), kemudian jangan lupa tekan tombol Apply, dan kemudian Close.

Gambar 1. Menambahkan komponen baru

mengatur properti tanggal atau khusus waktu saja dari DTPicker yang sudah dibuat sebagai berikut:
a.       DTPicker1, atur propertinya pada Name menjadi DTTanggal, Format, pilih angka 1 atau 1-dtpShortDate. Untuk pembatasan umurnya yang kurang dari 17 tahun tidak boleh dimasukkan, nanti kita buat kode programnya.
b.      DTPicker2, atur propertinya pada Name menjadi DTWaktu, Format, pilih angka 2 atau 2-dtpTime. Kedua DTPicker tersebut dibuat agar mudah dibandingkan antara yang tanggal dan waktu.

Secara lengkap bentuknya disajikan pada Gambar 2. Sesuaikan caption atau teks-nya sesuai keinginan ya…

 Gambar 2. Berbagai Contoh Validasi Input

Kode programnya bisa dilihat pada Gambar 3, atau ketikkan kode berikut:

Private Sub cmdClose_Click()

    Unload Me

End Sub

Private Sub DTTanggal_LostFocus()

    'dalam sistem Visual Basic 6.0 tidak ada tahun ke 0,

    'jadi secara default

    'tahun 0 adalah 1900, sehingga untuk pembatasannya menjadi 1917

    If Year(Date - DTTanggal.Value) < 1917 Then

        MsgBox "Pegawai belum genap usia 17 Tahun", vbExclamation

    End If

    Me.Caption = Year(Date - DTTanggal.Value)

End Sub

Private Sub Form_Load()

    'Setting waktu dan tanggal sesuai sistem komputer saat ini

    DTTanggal.Value = Date

    DTWaktu.Value = Time

End Sub

Private Sub txtAngka_KeyPress(KeyAscii As Integer)

    'Selain angka 0-9 maka tidak akan muncul

    If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or _

        KeyAscii = vbKeyBack) Then

        Beep

        KeyAscii = 0

    End If

End Sub

Private Sub txtCapital_KeyPress(KeyAscii As Integer)

    'Selain Huruf A-Z maka tidak akan muncul

    If Not (KeyAscii >= Asc("65") Or KeyAscii = vbKeyBack Or _

    KeyAscii = vbKeySpace) Then

        Beep

        KeyAscii = 0

    End If

    'membuat huruf menjadi kapital semua

    KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Gambar 3. Kode Program Validasi Inputan

Cara memasukkan tanggal atau waktu bisa dilakukan dengan 3 cara, yaitu: 1) klik pada tombol yang disediakan, 2) letakkan kursor pada bagian tanggal atau waktu yangakan dirubah, kemudian tekan tombol panah, atas-bawah dan kiri-kanan, 3) langsung diketikkan pada tempat yang disediakan. Validasi pada fungsi tanggal dicontohkan pada Gambar 4. berikut;

Gambar 4. Contoh validasi input berupa tanggal.

Selamat mencoba dan semoga bermanfaat, jika masih kurang faham silahkan bubuhkan komtar di bagian bawah potingan ini.