VB.NET validasi angka/numeric String inputan

Misal anda membuat form inputan barang dimana didalamnya terdapat data-data yang harus diinput berupa data numeric, bagaimana cara validasinya ? ada banyak cara, salah satunya membuat fungsi untuk mengecek inputan user, fungsi akan mengembalikan nilai boolean TRUE jika data benar berupa angka dan sebaliknya mengembalikan nilai boolean FALSE

Berikut kode fungsinya

Public Function tesAngka(ByRef value As String)  As Boolean
        Dim angka As String = "0123456789"
        For i As Integer = value.Length - 1 To 0 Step -1
            If angka.IndexOf(value(i)) = -1 Then
                Return False
            End If
        Next
        Return True
    End Function

Berikut contoh penggunaannya :

Dim valid as boolean = TRUE
If tesAngka(TxtMinStok.Text) = False Then
            MsgBox("MinStok Harus Angka !!!!")
            valid = False
        End If

Post a Response