Oleh: denysutani | November 25, 2008

Validasi uang di Visual Basic 6

Pada artikel sebelumnya, sudah pernah dibahas bagaimana caranya untuk memvalidasi supaya inputan harus berupa angka. Paling simple adalah dengan menggunakan isNumeric(), namun cara ini tidak akan berhasil jika input yang di validasi harus berformat mata uang seperti x.xxx,yy ataupun mata uang asing berformat x,xxx.yy. Oleh karena itu ada cara lain yang dapat dilakukan untuk memvalidasi inputan ini, yaitu dengan cara memblok semua karakter keyboard selain angka, titik dan koma.

Coding berikut saya ambil dari program skripsi saya. Berikut caranya
Private Sub txtAmount_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdSave.SetFocus
Else
If KeyAscii >= 48 And KeyAscii <= 57 Then ‘character angka
ElseIf KeyAscii = 44 Then ‘character ,
ElseIf KeyAscii = 46 Then ‘character .
ElseIf KeyAscii = 8 Then ‘character backspace
‘ semua yang diatas diperbolehkan untuk diinput,selain itu akan muncul msgbox seperti dibawah
Else
MsgBox “Amount must be a number”, vbCritical, “Error”
KeyAscii = 0 ‘untuk menghilangkan hasil input di textbox
End If
End If
End Sub

Semoga bermanfaat.


Responses

  1. mas, mungkin menggunakan fungsi ini lebih simpel

    Public Function ValidInteger(KeyAscii As Integer) As Integer
    Dim strValid As String

    strValid = “0123456789”
    If InStr(strValid, Chr(KeyAscii)) = 0 And Not (KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then
    ValidInteger = 0
    Else
    ValidInteger = KeyAscii
    End If
    End Function

    coba deh mas

    • Wow, terima kasi masukkannya. Ini menandakan algoritma itu begitu luas. banyak cara untuk menghasilkan sesuatu yg sama.
      Salam kenal mas danang.🙂

  2. kalo ini di taruh di event Keypress Textbox gimana :
    If InStr(“0123456789,”, Chr(KeyAscii)) = 0 Then
    If KeyAscii vbKeyBack Then
    KeyAscii = 0
    End If
    End If


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

Kategori

%d blogger menyukai ini: