Validasi Input Angka dan Huruf menggunakan VB.NET

Setelah posting mengenai validasi input menggunakan VB6 ada beberapa permintaan/request tentang validasi input menggunakan VB.NET yang sebenarnya tidak jauh beda cara menggunakannya. Berikut langkah-langkah mudah membuat validasi input yang berupa input yang hanya boleh huruf saja, misalnya untuk menuliskan nama seseorang, input yang hanya boleh angka saja, berupa tanggal dan waktu.

1. Buat Project baru atau buka project yang akan diberi validasi input.
2. Buat Form seperti pada contoh gambar 1. beserta object2 lain yang diperlukan.
3. Atur Properti setiap object sesuai keinginan.
4. tuliskan kode program berikut;

Gambar 1 Desain Form Validasi Input

Kode Program pada bagian Form

------------------------------------------------------------------------------------------------------------------------------

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'untuk membuat yang keluar adalah huruf besar semua tanpa harus menekan tombol

        'CAPSLOCK pada Keyboard 

        txtHuruf.CharacterCasing = CharacterCasing.Upper

        'memberi nilai tanggal dan waktu saat ini

        mskTglLahir.Text = Format(Now, "dd/MM/yyyy")

        mskWaktu.Text = Format(Now, "HH:MM")

    End Sub

Kode program pada Bagian TextBox Angka, sesuaikan dengan event KeyPress

------------------------------------------------------------------------------------------------------------------------------

Private Sub txtAngka_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtAngka.KeyPress

        'menyaring hanya angka saja yang boleh diinputkan

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then 

              e.Handled() = True

End Sub

Kode program pada Bagian TextBox Angka, sesuaikan dengan event KeyPress

------------------------------------------------------------------------------------------------------------------------------

Private Sub txtHuruf_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtHuruf.KeyPress

        HanyaHUrufSaja(e)

End Sub

Buat Prosedur HanyaHUrufSaja

Private Sub HanyaHUrufSaja(e As KeyPressEventArgs)

        'Hanya huruf A-Z atau a-z dan tombol BackSpace, Delete, Space serta Enter

        Dim KeyAscii As Short = Asc(e.KeyChar)

        If (e.KeyChar Like "[A-Z,a-z]" _

            OrElse KeyAscii = Keys.Back _

             OrElse KeyAscii = Keys.Space _

            OrElse KeyAscii = Keys.Return _

            OrElse KeyAscii = Keys.Delete) Then

            KeyAscii = 0

        End If

        e.Handled = CBool(KeyAscii)

    End Sub

Ada pertanyaan/diskusi? silahkan tinggalkan komentar. Semoga bermanfaat.