Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET (Part 3) [END]

Posting ini saya buat untuk menyempurnakan source code saya sebelumnya. Hasilnya :

• Textbox hanya bisa menerima input angka.
• Textbox hanya bisa diinput dengan 1 huruf pemisah desimal (koma atau titik).
• Textbox hanya bisa diinput huruf minus (-) jika textbox masih kosong.
• Textbox akan otomatis memberikan pemisah ribuan. (seperti kalkulator windows jika diaktifkan fitur digit grouping)

Untuk mencoba source code berikut, anda cukup menambahkan 1 buah textbox ke dalam form. Selanjutnya, tinggal dipastekan pada bagian source code form tersebut. Berikut adalah source codenya :

Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET (Part 2)

Pada posting saya sebelumnya, saya ada menulis tentang cara membuat textbox agar hanya bisa menerima input angka saja dan huruf pemisah desimal (koma). Untuk huruf pemisah desimal, hanya bisa diinput 1 kali saja. Validasi tersebut sudah cukup bagus. Namun masih ada kekurangan yakni textbox tidak bisa menerima input huruf - (minus / negatif). Untuk menjawab kekurangan tersebut, pada posting ini saya akan menyempurnakan source code sebelumnya sehingga textbox hanya hanya bisa menerima input angka, pemisah desimal dan tombol negatif saja. Jika pada source code sebelumnya ditulis dengan statement IF, maka pada source code ini saya ubah dengan statement Select Case. Hasilnya tetap sama. Penulisan source code juga masih dilakukan di event KeyPress textbox. Untuk textbox tersebut, saya set property TextAlign = Right dan MaxLength = 20 pada event Form Load-nya.

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

Berikut source pada event KeyPress textbox tersebut :

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