在Visual Basic中創建一個簡單的遊戲得分管理器？

Question

我想在視覺基礎上製作一個記分牌，讓用戶輸入一定的數字，並且每次都會增加分數。

This is the kind of layout I am using

有兩個隊，當用戶在文本框中（白色一個）進入數它將川方灰色文本框的上方，這將增加每一次用戶鍵入一個數字。

另外，如何在用戶輸入無效數據時顯示警告消息？ EG - 一封信。

Answer 1

您可以使用簡單的XMLSERIALIZE用於存儲應用程序。每次外面的分值，當你打開的應用程序，你可以閱讀你的對象，每次當你退出，你可以存儲你的對象.Read更多：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 

Answer 2

這將只正整數工作：

Public Class Form1 

    Private Score1 As Integer = 0 
    Private score2 As Integer = 0 

    Public Const GWL_STYLE As Integer = (-16) 
    Public Const ES_NUMBER As Integer = &H2000 

    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
     (ByVal handle As IntPtr, ByVal nIndex As Integer) As Integer 

    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
     (ByVal handle As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer 

    Public Sub SetNumbersOnlyTextBox(ByVal TB As TextBox) 
     SetWindowLong(TB.Handle, GWL_STYLE, GetWindowLong(TB.Handle, GWL_STYLE) Or ES_NUMBER) 
    End Sub 

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     SetNumbersOnlyTextBox(txtScore1) 
     SetNumbersOnlyTextBox(txtScore1) 
     DisplayScores() 
    End Sub 

    Private Sub btnAddScore1_Click(sender As System.Object, e As System.EventArgs) Handles btnAddScore1.Click 
     If txtScore1.Text.Trim.Length > 0 Then 
      Score1 = Score1 + CInt(txtScore1.Text) 
      DisplayScores() 
      txtScore1.Clear() 
     End If 
    End Sub 

    Private Sub btnAddScore2_Click(sender As System.Object, e As System.EventArgs) Handles btnAddScore2.Click 
     If txtScore2.Text.Trim.Length > 0 Then 
      score2 = score2 + CInt(txtScore2.Text) 
      DisplayScores() 
      txtScore2.Clear() 
     End If 
    End Sub 

    Private Sub DisplayScores() 
     lblScore1.Text = Score1 
     lblScore2.Text = score2 
    End Sub 

End Class