Kid Math - Educational Arithmetic Game

' Kid Math - VB.NET Version
Public Class KidMathForm
    Private num1 As Integer
    Private num2 As Integer
    Private totalQuestions As Integer = 0
    Private correctAnswers As Integer = 0
    Private currentLevel As Integer = 10
    
    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click
        ResetGame()
        GenerateNewProblem()
    End Sub
    
    Private Sub CheckButton_Click(sender As Object, e As EventArgs) Handles CheckButton.Click
        CheckAnswer()
    End Sub
    
    Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
        GenerateNewProblem()
        FeedbackLabel.Visible = False
        AnswerTextBox.Text = ""
    End Sub
    
    Private Sub Level1Radio_CheckedChanged(sender As Object, e As EventArgs) Handles Level1Radio.CheckedChanged
        If Level1Radio.Checked Then
            currentLevel = 10
            GenerateNewProblem()
        End If
    End Sub
    
    Private Sub Level2Radio_CheckedChanged(sender As Object, e As EventArgs) Handles Level2Radio.CheckedChanged
        If Level2Radio.Checked Then
            currentLevel = 100
            GenerateNewProblem()
        End If
    End Sub
    
    Private Sub Level3Radio_CheckedChanged(sender As Object, e As EventArgs) Handles Level3Radio.CheckedChanged
        If Level3Radio.Checked Then
            currentLevel = 1000
            GenerateNewProblem()
        End If
    End Sub
    
    Private Sub AnswerTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles AnswerTextBox.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            CheckAnswer()
            e.Handled = True
        End If
    End Sub
    
    Private Sub ResetGame()
        totalQuestions = 0
        correctAnswers = 0
        UpdateStats()
        FeedbackLabel.Visible = False
        AnswerTextBox.Text = ""
    End Sub
    
    Private Sub GenerateNewProblem()
        Dim rnd As New Random()
        num1 = rnd.Next(1, currentLevel)
        num2 = rnd.Next(1, currentLevel)
        Number1Label.Text = num1.ToString()
        Number2Label.Text = num2.ToString()
        AnswerTextBox.Text = ""
        AnswerTextBox.Focus()
    End Sub
    
    Private Sub CheckAnswer()
        Dim userAnswer As Integer
        If Integer.TryParse(AnswerTextBox.Text, userAnswer) Then
            totalQuestions += 1
            
            If userAnswer = num1 + num2 Then
                correctAnswers += 1
                FeedbackLabel.Text = "Correct! 😊"
                FeedbackLabel.ForeColor = Color.Green
            Else
                FeedbackLabel.Text = "Try again! 😢"
                FeedbackLabel.ForeColor = Color.Red
            End If
            
            FeedbackLabel.Visible = True
            UpdateStats()
        Else
            MessageBox.Show("Please enter a valid number", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    End Sub
    
    Private Sub UpdateStats()
        TotalQuestionsLabel.Text = totalQuestions.ToString()
        CorrectAnswersLabel.Text = correctAnswers.ToString()
        
        Dim scorePercentage As Integer = 0
        If totalQuestions > 0 Then
            scorePercentage = CInt((correctAnswers / totalQuestions) * 100)
        End If
        ScoreLabel.Text = scorePercentage.ToString() & "%"
    End Sub
End Class