Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET

Posting ini merupakan gabungan source code pada posting-an saya sebelumnya yakni Membatasi Textbox agar bisa diInput Angka saja dengan VB.NET, Mengubah Huruf Koma dan Titik menjadi Huruf Pemisah Desimal dengan VB.NET dan Membatasi Huruf diInput 2 kali atau lebih pada Textbox dengan VB.NET. Dengan 3 dasar tersebut, kita dapat membuat validasi pada textbox agar bisa diinput angka desimal saja (angka yang memiliki komponen desimal / pecahan). Agar tampilan-nya bagus, set property TextAlign pada textbox menjadi Right atau set programmatically dengan perintah sebagai berikut :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TextBox1.TextAlign = HorizontalAlignment.Right
End Sub

Oke tanpa basa basi lagi, berikut adalah source codenya lengkap dengan komentar-komentar agar mudah dipelajari.

Membatasi Huruf diInput 2 kali atau lebih pada Textbox dengan VB.NET

Dalam pemograman, kadang-kadang kita diwajibkan untuk membatasi penginputan huruf yang sama dalam sebuah textbox. Contoh : Angka pemisah desimal (koma) hanya boleh diinput 1 kali dalam penulisan harga atau quantity barang. Dengan menggunakan pemograman VB.NET, kita cukup menggunakan event KeyPress pada textbox yang bersangkutan. Berikut source code nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA TEXTBOX SUDAH MEMILIKI HURUF PEMISAH DESIMAL
    If Me.TextBox1.Text.Contains(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator) = True Then
        'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
        If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
        e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
            e.Handled = True 'STOP INPUT
        Else
            e.Handled = False 'LANJUTKAN INPUT
        End If
    Else 'JIKA BELUM
        'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
        If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
        e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
            'UBAH HURUF TERSEBUT MENJADI HURUF PEMISAH DESIMAL
            e.KeyChar = CChar(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        End If
    End If
End Sub

Mengubah Huruf Koma dan Titik menjadi Huruf Pemisah Desimal dengan VB.NET

Jika kita menekan huruf titik atau koma di keyboard pada program calculator windows, maka calculator akan otomatis mengubah huruf yang ditekan menjadi huruf pemisah desimal. [Huruf koma jika regional komputer Indonesia atau huruf titik jika regional komputer English(United State)]. Untuk melakukan hal tersebut di textbox pada VB.NET, kita cukup menulis source code di event KeyPress textbox tersebut. Berikut adalah source code-nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
    If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
    e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
        'UBAH HURUF TERSEBUT MENJADI HURUF PEMISAH DESIMAL
        e.KeyChar = CChar(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        'NB : NUMBERGROUPSEPARATOR ADALAH PEMISAH RIBUAN PADA PENULISAN ANGKA
        'NB : NUMBERDECIMALSEPARATOR ADALAH PEMISAH DESIMAL PADA PENULISAN ANGKA
    End If
End Sub

Membatasi Textbox agar bisa diInput Angka saja dengan VB.NET

Untuk membatasi textbox agar bisa diinput angka saja, kita cukup menambahkan coding di event KeyPress pada textbox tersebut. Berikut source code-nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA YANG DITEKAN ADALAH TOMBOL 0-9 ATAU TOMBOL BACKSPACE
    If IsNumeric(e.KeyChar) = True OrElse e.KeyChar = vbBack Then
        e.Handled = False 'LANJUTKAN INPUT
    Else 'SELAIN ITU
        e.Handled = True 'STOP INPUT
    End If
End Sub

Cara Menampilkan Drive, Folder dan File yang Tersembunyi pada Windows Explorer

Berikut merupakan cara untuk menampilkan drive, folder dan file yang tersembunyi pada windows explorer di sistem operasi windows :

1. Buka komputer. Setelah itu buka Windows Explorer dari “Start - All Programs – Accessories – Windows Explorer” seperti gambar 1 berikut
   

   

   Gambar 1 : Buka Windows Explorer