1.3-رقم الحظ

المثال الثالث رقم الحظ


الهدف من المشروع
-توليد أرقام عشوائية
-إظهار الصورة المدمجة فقط عند ما يتم توليد رقم معين
سوف تظهر الصورة فقط إذا كان رقم 7 من ضمن الأرقام العشوائية الناتجة مع إعطاء صوت للتنبية عند الحصول على الرقم الهدف
1-مشروع جديد
2-قم بإدراج عدد 2Button و 4 Label و1 PictureBox يعنى 2زر و 4 عناوين ومربع صورة ونقوم بظبط الشكل العام
3-تخصيص المكونات
تغيير خصائص Label1 و Label2 و Label3
لكى لا تقوم بتخصيص كل عنوان على حدة و تخصيص العناوين الثلاثة دفعة واحدة اتبع ما يلى:
قم بعمل كليك على Lable1 ثم اضغط Shift ولا ترفع إصبعك من على Shift حتى تنتهى من التحديد
قم بعمل كليك على الزر الثانى ثم على الزر الثالث
الان قم برفع إصبعك من على Shift
أى تخصيص نقوم بعملة الان سينطبق على الثلاثة مجتمعين
-إذهب إلى لوحة الخصائص وقم بتغيير ImageAlignإلى Middle Center وهذا سيؤدى إلى أن المحتوى سيظهر فى المنتصف تماما
-فى نفس لوحة الخصائص إذهب إلى BorderStyle وقم بتغييرها إلى FixedSingle



نقوم أيضا بتغيير خصائص الخطوط
-إذهب إلى الخاصية Font ثم اضغط على علامة + واسمها باللغة الإنجليزية ellipsis تفتح لك قائمة بخصائص الخط نقم بتغييرها كالتالى
قم بتغيير نوع الخط إلى Times New Roman أو كما تشاء
قم بتغيير Size حجم الخط إلى 25 أو كما تشاء
قم بتغيير نمط الخط Bold إلى True
-إذهب إلى الخاصية Text وقم بتغيير النص إلى 0 يعنى رقم صفر
-إذهب إلى الخاصية ForeColor وقم بتغيير اللون أو كما تريد
تغيير خصائص الأزرار
-قم بتسمية أحد الأزرار تشغيل والاخر إنهاء
تخصيص صندوق الصورة
إذهب إلى خصائص مربع الصورة ثم قم بتغيير الخصائص التالية
- إذهب إلى Image ثم قم بالضغط على علامة المستعرض تظهر لك نافذة Select Resource إختيار المصدر قم بالضغط على Local Resource ثم Import وقم باختيار أى صورة من جهازك
-قم بتغيير الخاصية SizeMode إلى StretchImage
-قم بتغيير Visible لتصبح False بدلا من True
لمعرفة المزيد عن طريقة تخصيص مربع الصورة قم بالرجوع إلى مثال2
تخصيص Label4
-قم بتسمية العنوان باسم الصورة التى اخترتها وقم بتغيير لون الخط ونوعة.......الخ حسبما تريد
-قم بتغيير الخاصية Visible إلى False
4-كتابة الكود
-قم بالضغط ضغطة مزدوجة على أى منطقة خالية فى الشكل Form1 واكتب الكود التالى


كود:
Randomize()


-ضغطة مزدوجة على الزر تشغيل وكتب الكود التالى


كود:

PictureBox1.Visible = False
Label1.Text = CStr(Int(Rnd() * 10))
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
If (Label1.Text = "7") Or (Label2.Text = "7") _
Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Label4.Visible = True
Beep()
End If
-ضغطة مزدوجة على الزر إنهاء واكتب الكود التالى


كود:
end

يمكنكم وضع رقم اخر غير رقم7 للتجربة
قم بتطبيق العمل عن طريق F5


إضغط على الزر تشغيل حتى يتم ظهور أرقام تحتوى على الرقم 7 فتظهر الصورة وتسمع صوت التنبية
إضغط على الزر إنهاء ومعناها


إنتهى مع أمل الفائده للجميع

__________________



كثر الله خير و جمل الله حالك ياهبشان
لو أنني كنت شاعراً لكتبت معلقة غزل في روعة و جمال هذى النظام
أضغط على الصورة

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر