+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] كيف تصمم لعبة الروليت (/showthread.php?tid=16847)
كيف تصمم لعبة الروليت - anasmoner - 18-08-16
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اليوم بإذن الله معانا تصميم لعبة الروليت وهي لعبة بها زر توليد عندما تضغط على الزر يولد أرقام عشوائية وهي ثلاث خانات وتستطيع ان تجعلها 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----------------------------------------------------------------
وهكذا نكون أنتهينا من تصميم لعبة الروليت
يلا ألعب وأستمتع
