[مثال] كيف تصمم لعبة سودوكو بتايمر------>عندي الحل

كود :
Public Class Form1

    Private Sub جديدToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles جديدToolStripMenuItem.Click



        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""



        TextBox6.Text = ""



        TextBox8.Text = ""

        TextBox9.Text = ""

        Label1.Text = "60"

        Timer1.Start()

    End Sub

    Private Sub معلوماتToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles معلوماتToolStripMenuItem.Click

        AboutBox1.Show()

        Me.Hide()

        Timer1.Stop()

    End Sub



    Private Sub خروجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles خروجToolStripMenuItem.Click

        End

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) = 9 And

            Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) = 9 And

            Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) = 9 And

            Val(TextBox1.Text) + Val(TextBox4.Text) + Val(TextBox7.Text) = 9 And

            Val(TextBox2.Text) + Val(TextBox5.Text) + Val(TextBox8.Text) = 9 And

            Val(TextBox3.Text) + Val(TextBox6.Text) + Val(TextBox9.Text) = 9 Then

            MsgBox("مبرووووووووووووووووك")

            Timer1.Stop()

        Else

            MsgBox("للأسف إجابتك خاطئة")



        End If





    End Sub







    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Start()

        If Label1.Text = "0" Then

            MsgBox(" إنتهى الوقت")

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""



            TextBox6.Text = ""



            TextBox8.Text = ""

            TextBox9.Text = ""

            Label1.Text = "60"

        End If

    End Sub



    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub



    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox5_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox7_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

    Private Sub TextBox8_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        Select Case e.KeyChar

            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub



    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub



    Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label1.Text = Label1.Text - 1

        If Label1.Text = "0" Then

            MsgBox(" إنتهى الوقت")

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""



            TextBox6.Text = ""



            TextBox8.Text = ""

            TextBox9.Text = ""

            Label1.Text = "60"

            Timer1.Stop()

        End If



    End Sub

End Class