Hanya Angka

Dalam VB kita bisa mengatur input user sehingga human error dapat di kurangi. contoh pada waktu kita megisi formulir, kita mengisi sebuah form yang hanya menampung angka seperti pada form harga atau yang lain, tidak mungkin harga ada hurufnya, masa ada seeh satu buah baju harganya Rp 20a300, umumnya harga itu hanya berupa angka, karena harga adalah suatu entryan yang dapat di kalkulasikan kembali.

bagai mana caranya agar terhindar dari human error tersebut

sekarang kita siapkan sebuah textbox dengan nama txt_harga, kita beri event text_box tersebut yaitu keypress jadi program akan menjalankan perintah pada saat keybord ditekan.

algoritmanya adalah jika user mengetik seseuatu yang bukan angka maka program akan menjadikan nya menjadi ascii 0 atau kosong

maka kita tambah kode berikut ini

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 46 Then
   KeyAscii = 0
End If

sehingga kode akan menjadi

Private Sub txt_harga_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 46 Then
   KeyAscii = 0
End If
End Sub

silahkan coba mengetik huruf atau yang lainnya. maka textbox akan tetap kosong. slamat mencoba