تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] كيف تصمم لعبة الروليت
#1
Wink 
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته 
اليوم بإذن الله معانا تصميم لعبة الروليت وهي لعبة بها زر توليد عندما تضغط على الزر يولد أرقام عشوائية وهي ثلاث خانات وتستطيع ان تجعلها 4 خانات او 5 او كما تريد
 والرابح الذي يجمع نفس الرقم في كل الخانات  نبدأ بسم الله:
أولا: ماذا سنحتاج --> سنحتاج إلى: 
3-->button
3--> picture box
3-->label
-----------------------------------
ثانيا:الخصائص
button1-->text-->start
button2-->text-->new
button3-->text-->exit
------------
label1 and label2 and label3 -->text-->0
----------------
 picture box 1 and picture box2 and picture box3 -->نضيف صورة للرقم 7 او اي رقم تريده واجعل الخاصية visible = true
-----------------------------------------------
ثالثا: الأكواد و شرحها
في button 1 =start
كود :
Label1.Text = CStr(Int(Rnd() * 10))
       Label2.Text = CStr(Int(Rnd() * 10))
       Label3.Text = CStr(Int(Rnd() * 10))
       Beep()
       If Label1.Text = 7 Then
           PictureBox1.Visible = True
       Else
           PictureBox1.Visible = False
       End If



       If Label2.Text = 7 Then
           PictureBox2.Visible = True
       Else
           PictureBox2.Visible = False
       End If
       If Label3.Text = 7 Then
           PictureBox3.Visible = True
       Else
           PictureBox3.Visible = False
       End If

نحن نريد أن يظهر في label ارقام مسلسلة لذلك أدرجنا Cstr و أدرجنا الكود int لتوليد ارقام صحيحة  و rnd تولد أرقام عشوائية  وكتبنا الرقم 10 ليولد ارقام من 0 الى 9
وإذا كتبنا  10 بدل 9  فإنه سيولد ارقام من 0 الى 8 وهكذا  ووضعنا  الكود beep ليولد صوت عندما تضغط على الزر  وأظن الباقي مفهوم 
--------------------------------
 في button2=new
كود :
PictureBox1.Visible = False
       PictureBox2.Visible = False
       PictureBox3.Visible = False
       Label1.Text = 0
       Label2.Text = 0
       Label3.Text = 0

في button3=exit
كود :
end
وفي الفورم 
كود :
If Label1.Text = 7 And Label2.Text = 7 And Label3.Text = 7 Then
           MsgBox("مبرووووووووووووووووووك")
       End If
لو label1 and label2 and label3 =0 فهتظهر رسالة مبروك
----------------------------------------------------------------
وهكذا نكون أنتهينا من تصميم لعبة الروليت 
يلا ألعب وأستمتع Cool
الرد }}}}
تم الشكر بواسطة: ابو نجلاء , سعود


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

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


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