配列を使用して数値入力を確認する

Question

私はVB.NETを学ぶオンラインの学生です。私は、私が取り組んでいるプロジェクトを持っていて、始めに助けが必要でした。

私たちは配列を学んでおり、少し苦労しています。私は各入力の数値の範囲をチェックする配列を使って、ピン検証を作成する必要があります。

アプリケーションには7つのテキストボックスがあります。 txtBox1は範囲7-9、txtBox2は範囲5-7、txtBox3は範囲0-4、txtBox4は範囲0-9、txtBox5は範囲6-9、txtBox6は範囲3-6、およびtxtBox7は範囲内になければなりません。範囲4-8。

[Verify]ボタンをクリックすると、アレイは各入力が指定された範囲内にあることを確認し、ピンが良ければメッセージを表示する必要があります。

コードが実行されていますが、入力が不正であることを確認できません。入力が数値で、範囲内にあることを確認する必要があります。入力が悪い場合、黄色で強調表示するテキストボックスとそのボックスにフォーカスが必要です。私はIsNumericの多くのバリエーションを試して、テキストボックスにフォーカスやハイライトを得ることができません。

コードの仕組みを明確に説明して、私が自分自身でやっていることを理解し、自分が何をしているのかを完全に理解できることを願っています。この将来のプログラマの助けに感謝します。

Option Strict On 

Public Class frmPinVerifier 
Dim blnOk As Boolean = False 

Private Sub btnVerify_Click(sender As Object, e As EventArgs) Handles btnVerify.Click 
    'Arrays 
    Dim intMinimum() As Integer = {7, 5, 0, 0, 6, 3, 4} 
    Dim intMaximum() As Integer = {9, 7, 4, 9, 9, 6, 8} 
    Dim strArrayMessage() As String = {"Must be in range of 7 through 9", "Must be in range of 5 through 7", "Must be in range of 0 through 4", "Must be in range of 0 through 9", "Must be in range of 6 through 9", "Must be in range of 3 through 6", "Must be in range of 4 through 8"} 
    Dim intTextBox() As Integer = {CInt(txtBox1.Text), CInt(txtBox2.Text), CInt(txtBox3.Text), CInt(txtBox4.Text), CInt(txtBox5.Text), CInt(txtBox6.Text), CInt(txtBox7.Text)} 


    'Start Count 
    Dim intCount As Integer = 0 


    For intCount = 0 To intMinimum.Length - 1 And intMaximum.Length - 1 
     If intTextBox(intCount) >= intMinimum(intCount) And intTextBox(intCount) <= intMaximum(intCount) Then 
      blnOk = True 
     Else 

      MessageBox.Show(strArrayMessage(intCount)) 

     End If 

    Next 

    If blnOk = True Then 
     MessageBox.Show("PIN Verified") 
     txtBox1.Clear() 
     txtBox2.Clear() 
     txtBox3.Clear() 
     txtBox4.Clear() 
     txtBox5.Clear() 
     txtBox6.Clear() 
     txtBox7.Clear() 


    End If 

Answer 1

問題のテキストボックスのフォーカスを設定するか、または背景色を変更するコードはありません。

テキストボックスへの参照として配列を設定できます。これにより、これらのテキストボックスのプロパティに簡単にアクセスできます。 Dim intTextBox() As Integer = {CInt(txtBox1.Text),...に近づいていましたが、配列内で.Textプロパティを使用すると、あまりにも特殊すぎます。

Private Sub btnVerify_Click(sender As Object, e As EventArgs) Handles btnVerify.Click 
    Dim nums = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7} 
    Dim intMinimum() As Integer = {7, 5, 0, 0, 6, 3, 4} 
    Dim intMaximum() As Integer = {9, 7, 4, 9, 9, 6, 8} 
    Dim pinIsValid As Boolean = True 

    For Each tb In nums 
     tb.BackColor = Color.White 
    Next 

    For i = 0 To nums.Length - 1 
     Dim val = Integer.Parse(nums(i).Text) 
     Dim minVal = intMinimum(i) 
     Dim maxVal = intMaximum(i) 
     If val < minVal OrElse val > maxVal Then 
      pinIsValid = False 
      nums(i).BackColor = Color.Yellow 
      nums(i).Focus() 
      'TODO: Adjust "Entry {i + 1}" so it makes sense to the user. 
      MessageBox.Show($"Entry {i + 1} must be in the range {minVal} to {maxVal} (inclusive)") 
      Exit Sub 
     End If 
    Next 

    If pinIsValid Then 
     For i = 0 To nums.Length - 1 
      nums(i).Text = "" 
     Next 
     MessageBox.Show("PIN Verified") 
    End If 

End Sub