الدرس السابع : الأوامر العشوائية .

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

الدرس السابع : الأوامر العشوائية .

يمكنك توليد أرقام عشوائية من خلال أمرين سنناقشهم بإذن الله تعالى في هذا الدرس.
- فائدة الأوامر العشوائية :
تستخدم بكثرة في الألعاب مثلاً إظهار العدو في مكان عشوائي من الشاشة.
وأيضاً في الكثير من الأغراض.
- الأمر Rnd :
وهو يقوم بتوليد أرقام عشوائية , وصيغته كالتالي :

Rnd(Number)

قم بتنفيذ الأمر في Form_Load
واكتب :

Rnd(5)

قم بتشغيل البرنامج عدة مرات ولاحظ :
- الرقم الذي يظهر هو نفسه دائماً.
- الرقم فيه فاصلة عشرية رغم أننا أدخلنا عدداً صحيحاً.
حل المشكلة الأولى هو أن الأمر Rnd يولد أرقاماً عشوائية تقريباً , ولكنها بنفس الترتيب.
لذا سنستخدم أمر Randomize لتوليد أرقام عشوائية فعلاً.
ويكون كالتالي :

Randomize

Rnd(Number)

جرب الكود السابق بعد تعديله إلى :

Randomize

Rnd(5)

رأيت الفرق ؟
الآن نأتي إلى المشكلة الثانية وهي , أن الأرقام غير صحيحة , وفيها فاصلة.
لذا سنستخدم دالة Int لتحويل العدد المدخل لها إلى عدد صحيح.
فيصبح الكود :

Randomize

Me.Caption = Int(Rnd(5))

لاحظ أن الرقم الظاهر هو 0 دائماً !
الآن نأتي إلى الجزء الآخر وهو إزالة الفاصلة , ويكون عن طريق ضرب الرقم في 10 أو 100 أو غيره حسب عدد المنازل التي تريد عرضها.
فيصبح الكود كالتالي :

Randomize

Me.Caption = Int(Rnd(5) * 10)

لاحظ أن الرقم الظاهر آحاد دائماً.
يمكن تعديل الكود إلى :

Int(Rnd(5) * 1000)

لعرض ثلاثة منازل , وكلما زاد الرقم المضروب فيه (لاحظ أنه يجب يكون من مضاعفات العشرة) كلما زاد حجم الرقم المعروض.

أرجو أن يكون الدرس مفيدا , وأن ينال إعجابكم.

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