20-08-16, 04:14 PM
بسم الله الرحمن الرحيم
معانا اليوم هو كيفية تصميم لعبة السودوكو نبدأ ببسم الله
إذا لم تكن الأدوات واضحة من الصورة فسأعرضها لك
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
(أحبكم في الله)
اخوكم أنس