[anasmoner]

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

السلام عليكم ورحمة الله وبركاته 

اليوم بإذن الله معانا تصميم لعبة الروليت وهي لعبة بها زر توليد عندما تضغط على الزر يولد أرقام عشوائية وهي ثلاث خانات وتستطيع ان تجعلها 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 فهتظهر رسالة مبروك
----------------------------------------------------------------
وهكذا نكون أنتهينا من تصميم لعبة الروليت 
يلا ألعب وأستمتع