تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] كيف تصمم لعبة سودوكو بتايمر------>عندي الحل
#1
Tongue 
بسم الله الرحمن الرحيم 
معانا اليوم هو كيفية تصميم لعبة السودوكو نبدأ ببسم الله 

إذا لم تكن الأدوات واضحة من الصورة فسأعرضها لك
1-------->(9من textbox)-->إجعل 3 من التيكست بوكس للقراء فقط
2--->(button1)
3-------------------->menustrip1--->خصائص----------->لعبة جديدة ،تعليمات ، خروج
4-------->timer1
5-splash screen 
ثم



وبنفس الطريقة نضيف about box 
يعني انت عندك ثلاث فورمات 
الاول فورم اللعبة (المدرج في الأعلى)
الثاني about box
الثالث splash screen (رسالة ترحيبية) وطريقة إضافتها -------->اذهب الى خصائص المشروع وستجد إختيار يسمى splash screen اختر الفورم الذي تريده ان يكون رسالة ترحيبية
----------------------------------------
نبدأ في الأكواد  Big Grin
سأضع لك الكود كامل وإذا لم تفهم شئ فأخبرني (عشان مستعجل بس Angry )
كود :
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
وإلى اللقاء في موضوع أخر بإذن وسيكون عن كيفية عمل إختبار إلكتروني او مسابقة بتايمر وأشياء اخرى كثيرة بإذن الله والسلام عليكم ورحمة الله وبركاته  Heart
(أحبكم في الله)
اخوكم أنس
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [مثال] كيف تصمم لعبة الروليت anasmoner 0 104 18-08-16, 06:00 PM
آخر رد: anasmoner
  @@@ لعبة تعليمية بسحب الصور واسقاطها على اسمها @@@ @@أبورائد@@ 21 5,297 15-06-16, 11:12 PM
آخر رد: خالد الرماح
  [مشروع] لعبة جميلة جدا بالفيجول بيسك mohamedalmorshdy 2 901 19-06-15, 01:53 AM
آخر رد: ramyy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم