Validasi Inputan Angka pada VB

Untuk menghindari inputan berupa huruf dari user maka kita perlu melakukan validasi terhadap inputan tersebut. Di sini saya akan menerangkan bagaimana metode validasi bekerja.

Pertama buatlah Project Baru. Kemudian buatlah textbox pada sebuah form dan beri nama textbox itu text1.

Selanjutnya click dua kali textbox tersebut, maka akan muncul tampilan view code. Kemudian isilah script sebagai berikut :

Private Sub Text1_Change()
Dim betul As Boolean
betul = True
If Text1.Text <> “” Then
jumlah = Len(Text1.Text)
For i = 1 To jumlah
If Asc(Right(Text1.Text, i)) < 48 Or Asc(Right(Text1.Text, i)) > 57 Then
betul = False
End If
Next i
If betul = False Then
MsgBox “harus angka”
Text1.Text = “”
Text1.SetFocus
End If
End If
End Sub

Penjelasan :
Pengecekan angka terjadi pada baris ke-7, yaitu pengecekan code ASCII dari inputan, jika kurang dari 48 dan lebih dari 57 maka inputan bukan angka.

3 thoughts on “Validasi Inputan Angka pada VB

  1. Thx gan!
    Ada 2 pertanyaan nih :
    1. Kapan aja kita gunakan Len.
    2. Kapan aja kita gunakan .
    maksudnya sih fungsinya gan, sama contohnya klo di kodingan lain😀
    thx atas balasannya🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s