[anasmoner]

بسم الله الرحمن الرحيم 

معانا اليوم هو كيفية تصميم لعبة السودوكو نبدأ ببسم الله 

إذا لم تكن الأدوات واضحة من الصورة فسأعرضها لك

1-------->(9من textbox)-->إجعل 3 من التيكست بوكس للقراء فقط

2--->(button1)

3-------------------->menustrip1--->خصائص----------->لعبة جديدة ،تعليمات ، خروج

4-------->timer1

5-splash screen 

ثم

وبنفس الطريقة نضيف about box 
يعني انت عندك ثلاث فورمات 
الاول فورم اللعبة (المدرج في الأعلى)
الثاني about box
الثالث splash screen (رسالة ترحيبية) وطريقة إضافتها -------->اذهب الى خصائص المشروع وستجد إختيار يسمى splash screen اختر الفورم الذي تريده ان يكون رسالة ترحيبية
----------------------------------------
نبدأ في الأكواد 
سأضع لك الكود كامل وإذا لم تفهم شئ فأخبرني (عشان مستعجل بس )

كود :

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

وإلى اللقاء في موضوع أخر بإذن وسيكون عن كيفية عمل إختبار إلكتروني او مسابقة بتايمر وأشياء اخرى كثيرة بإذن الله والسلام عليكم ورحمة الله وبركاته 
(أحبكم في الله)
اخوكم أنس