لعبة مسلية
المتطلبات:
1-زر مكتوب عليه إبدأ
2-زر مكتوب عليه توقف
3-ليبل مكتوب عليه تسجيل
4-ليبل فارغ
5- زر عريض مكتوب عليه اضغط هنا
6- تايمر
رتبهم كما في الصورة
الأكواد :
أكواد المتغيرات
نضعه تحت اسم الكلاس
كود الزر إبدأ
كود الزر توقف
كود التايمر
كود الزر اضغط هنا
اكتب هذا الكود في أكواد الفورم
المتطلبات:
1-زر مكتوب عليه إبدأ
2-زر مكتوب عليه توقف
3-ليبل مكتوب عليه تسجيل
4-ليبل فارغ
5- زر عريض مكتوب عليه اضغط هنا
6- تايمر
رتبهم كما في الصورة
الأكواد :
أكواد المتغيرات
كود :
Dim Score As Integer
كود الزر إبدأ
كود :
Timer1.Start()
نقدر نغير اسم البوتون المهم أنه هو الزرالمذكور في رقم5'
Button1.Enabled = True
كود :
Timer1.Stop()
Button1.Enabled = False
كود :
Button1.Left = Rnd() * (Me.Width - Button1.Width)
Button1.Top = Rnd() * (Me.Height - Button1.Height)
كود :
Score = Score + 1
Label2.Text = Score
اكتب هذا الكود في أكواد الفورم
كود :
Button1.Enabled = False