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