Eingabe des Textfelds für den numerischen Bereich prüfen 1-100

Question

Ich versuche die Eingaben zu validieren, um nur einen Zahlenbereich zwischen 1 und 100 zu akzeptieren. Ich habe es, wo es Zahlen im Bereich von 1-100 akzeptiert. Was ich brauche ist, wie man sicherstellen kann, dass Zeicheneingaben wie ein Buchstabe oder ein Symbol (?, /, <,> ect ...) nicht verwendet werden können. Ich benutze eine Schleife, um jeden Eingang zu durchsuchen, der in ein Array eingefügt wird. Wenn Eingaben validiert werden, gebe ich ein blnOk = True zurück, um es in meinem Button-Event zu verwenden, um das Programm zu starten. Ich habe double.TryParse versucht, aber ich kann es nicht mit dem Array arbeiten. Ich habe auch Option Strict ON. dblStudentTestScores (i) ist das Array, in dem die Eingaben gespeichert werden. txtTestScores (i) Array wird verwendet, um dem Programm mitzuteilen, in welchem ​​Textfeld die Schleife aktiviert ist, damit es mit einem Fehler den Fokus erhalten kann.

Dies ist der Code mit der IsNumeric, aber es wird nicht in die Else-Klausel gehen. Es springt in den Versuch zu fangen. Ich möchte wirklich, dass ich mich auf die Textbox konzentriere, die die ungültige Eingabe hat. Ähnlich wie wenn die Zahl nicht zwischen 0 und 100 liegt.

Private Sub ValidateScores() 

    For i = 0 To 8 
     If CInt(IsNumeric(dblStudentTestScores(i))) >= 0 And CInt(IsNumeric(dblStudentTestScores(i))) <= 100 Then 
      blnOK = True 

     Else 
      MessageBox.Show("Please Enter Test Score between 0 and 100") 
      txtTestScores(i).Clear() 
      txtTestScores(i).Focus() 
      txtTestScores(i).BackColor = Color.Yellow 
      blnOK = False 
      Exit Sub 
     End If 
     txtTestScores(i).BackColor = Color.White 
    Next 
    blnOK = True 
End Sub 

Jeder Eingang füllt das Array.

Public Sub PopulateTestScores() 
    'Student 1 test scores 
    dblStudentTestScores(0) = CDbl(txtStudent1Score1.Text) 
    dblStudentTestScores(1) = CDbl(txtStudent1Score2.Text) 
    dblStudentTestScores(2) = CDbl(txtStudent1Score3.Text) 
    'Student 2 test scores 
    dblStudentTestScores(3) = CDbl(txtStudent2Score1.Text) 
    dblStudentTestScores(4) = CDbl(txtStudent2Score2.Text) 
    dblStudentTestScores(5) = CDbl(txtStudent2Score3.Text) 
    'Student 3 test scores 
    dblStudentTestScores(6) = CDbl(txtStudent3Score1.Text) 
    dblStudentTestScores(7) = CDbl(txtStudent3Score2.Text) 
    dblStudentTestScores(8) = CDbl(txtStudent3Score3.Text) 
End Sub 

Answer 1

Sie sollten double.TryParse verwenden, da, falls die Eingabe nicht ein gültiger doppelt so hoch ist, ist es false zurück, anstatt eine Ausnahme zu werfen.

Public Function PopulateTestScores() as Boolean 
    Dim ok as Boolean 
    ok = CheckInput(txtStudent1Score1.Text, 0) 
    if not ok Then 
     txtStudent1Score1.Focus() 
     return ok 
    End if 

    ok = CheckInput(txtStudent1Score2.Text, 1) 
    if not ok Then 
     txtStudent1Score2.Focus() 
     return ok 
    End if 
    ..... 
    return ok 
End Function 

private Function CheckInput(input as String, index as integer) as Boolean 
    Dim d as Double   
    Dim ok as Boolean 
    ok = double.TryParse(input, d) 
    if ok Then dblStudentTestScores(index) = d 
    return ok 
End Function 

Die Version von TryParse mit zwei Argumenten erwartet, dass die Zeichenfolge im gleichen Format Ihrer locale (Punkt/Komma für Dezimalstellen) zu sein. Wenn Sie mit verschiedenen Kulturen arbeiten möchten, verwenden Sie einfach die entsprechende TryParse-Überladung, die auch den CultureInfo-Parameter übernimmt.

Zum Beispiel, wenn Sie die Überlastung verwenden, die eine Number und ein Culture

ok = Double.TryParse(input, NumberStyles.None, CultureInfo.CurrentCulture, d) 

TryParse falsch kehrt nimmt, wenn die Eingabe nicht Ihre Culture passt und die richtige Konvention für Zifferngruppierung.

Eine gültige Doppel wie 10.1 in Kultur en-US ungültig ist die it-IT ein, wo der richtige Eingang ist 10,1

Answer 2

Sie können den Eingang mit der Funktion isNumeric überprüfen.

https://msdn.microsoft.com/en-us/library/6cd3f6w1(v=vs.90).aspx