هذه لعبة الروليت نقوم بإضافة
3صور مكتوب فيها الرقم 7
2 أزرار
3 نصوص
1تايمر
1 نص مسطر
رتب الأدوات كما في الصورة
3 النصوص مكتوب فيها الرقم 0
الزر الأول المكتوب فيه إبدأ
الزر الثاني خروج معروف
3صور مكتوب فيها الرقم 7
2 أزرار
3 نصوص
1تايمر
1 نص مسطر
رتب الأدوات كما في الصورة
3 النصوص مكتوب فيها الرقم 0
الزر الأول المكتوب فيه إبدأ
كود :
Timar1.Start()
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
Label1.Text = CStr(Int(Rnd() * 10))
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
If (Label1.Text = "7") Then
PictureBox1.Visible = True
End If
If (Label2.Text = "7") Then
PictureBox2.Visible = True
End If
If (Label3.Text = "7") Then
PictureBox3.Visible = True
End If
If Label1.Text = "7" And Label2.Text = "7" And Label3.Text = "7" Then
LinkLabel1.Text = "لقد فزت"
End If
كود :
()Me.Close