vb.net - Visual Basic で簡単なゲーム スコア マネージャーを作成しますか?

Question

ユーザーが特定の数字を入力できるようにするビジュアルベーシックでスコアボードを作成し、毎回スコアに追加したいと考えています。

これは私が使用している種類のレイアウトです

2 つのチームがあり、ユーザーがテキスト ボックス (白いもの) に数字を入力すると、上の灰色のテキスト ボックスに表示され、ユーザーが数字を入力するたびに追加されます。

また、ユーザーが無効なデータを入力したときに警告メッセージを表示するにはどうすればよいですか? EG - 手紙。

Answer 1

アプリケーションの外部にスコア値を格納するために単純な XMlserialize を使用できます。アプリケーションを開くたびにオブジェクトを読み取ることができ、終了するたびにオブジェクトを格納できます。詳細: http://support.microsoft.com/kb /316730 シンプルなシリアライズ可能なクラスは次のようになります:

<Serializable()>
Class UsersList

        Public Property members As List(Of User)
        Sub New()
            members = New List(Of User)
        End Sub

        Public Sub add(user As User)
            If IsNothing(members) = False Then
                members.Add(user)
            End If

        End Sub
    End Class
    Class User
        Public scores As List(Of Single)
        Public Property name As String
        Sub New()
            scores = New List(Of Single)
        End Sub

        Public Sub add(score As Single)
            If IsNothing(scores) = False Then
                scores.Add(score)
            End If

        End Sub

    End Class

And For user input you can do two ways :

        'Displaying warning when it is not valid float number
    'works for floating numbers too
            Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles YouTextbox1.TextChanged,YourTextbox2.TextChanged
                Dim cheked As TextBox = CType(sender, TextBox)
                If IsNothing(cheked) = False Then
                    Dim f As Single
                    If Single.TryParse(cheked.Text, f) = False Then
                        MessageBox.Show("Warning .Please enter valid number")

                    End If

                End If
            End Sub
        'not allow user enter to type wrong keys
         Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress
              'Disallow user type anything besides numbers 
                If e.KeyChar < CChar("0") Or e.KeyChar > CChar("9") Then
                    e.Handled = True
                End If
            End Sub