Visual Basic - Входная проверка

Question

Мне нужна помощь с небольшой проблемой. Я долго не программировал и не могу понять, как это исправить. У меня есть небольшой проект для школы, и я не могу понять, почему я получаю эту ошибку при проверке входных данных.

Например, я проверяю, является ли вход действительным и между диапазоном min и max, создавая функцию для возврата значения true или false на основе введенных значений. Причина, по которой я использую функцию, заключается в том, что я выполняю несколько подобных проверок, и я решил скорее переписать ее, это был лучший способ выполнить эту задачу.

Do While inputValid(string, min, max) 

Это моя проверка, ниже приведена простая функция для подтверждения этого.

Private Function inputValid(input As String, min As Integer, max As Integer) 
    If Not IsNumeric(input) Then 
     Return False 
    End If 

    If input > min Or input < max Then 
     Return False 
    Else 
     Return True 
    End If 
End Function 

По какой-то причине, несмотря на то, что следует убедиться, что значение является числовым, прежде чем он проверяет, является ли она в числовом диапазоне. Он по-прежнему отправляет мне сообщение об ошибке, когда я ввожу ничего или строку из-за того, что он пытается преобразовать его в double, но если я не делаю никаких проверок диапазона, он отлично проверяет, является ли он только числовым без ошибок.

Может ли кто-нибудь помочь мне исправить это? Благодаря!

Answer 1

Вы можете использовать CInt преобразовать строку в целое

Private Function inputValid(input As String, min As Integer, max As Integer) 
    Dim v as Integer 
    If Not IsNumeric(input) Then 
     Return False 
    End If 
    v=CInt(input) 
    If v < min Or v > max Then 
     Return False 
    Else 
     Return True 
    End If 
End Function 

Answer 2

Вы могли бы быть лучше служил, используя регулярное выражение, чтобы сделать цифровую проверку на струне

Private Function inputValid(input As String, min As Integer, max As Integer) 
    dim regex as new Regex("[\d]+")  
    If not regex.isMatch(input) OrElse cint(input) > min OrElse cint(input) < max Then 
     Return False 
    Else 
     Return True 
    End If 
End Function 

Answer 3

Вы можете использовать Integer.TryParse функция, чтобы проверить, может ли строка быть преобразована в целое число.

Кроме того, вы можете вернуть логическое значение, которое является результатом сравнения: вместо чего-то вроде If x > 4 Then Return True вы можете использовать Return x > 4.

Так что ваша функция может выглядеть

Private Function StringIsValidInteger(s As String, min As Integer, max As Integer) As Boolean 
    Dim tmp As Integer 

    If Integer.TryParse(s, tmp) Then 
     Return (tmp >= min AndAlso tmp <= max) 
    End If 

    Return False 

End Function 

Answer 4

Извините, ребята. Я возвращал true, и ложный неправильный путь вокруг него появляется, потому что мне нужно продолжить цикл, который должен быть истинным, где он обычно будет ложным при регулярной проверке.

Просто изменив функцию inputValid на истинные и ложные возвращаемые типы, он отлично работает.

Спасибо за помощь.