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.

This entry was posted in VB 6 and tagged , , , , . Bookmark the permalink.

3 Responses to Validasi uang di Visual Basic 6

  1. danang says:

    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

    • denysutani says:

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

  2. Joshua Emba says:

    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

Leave a Reply

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>