أداة الشرط المنطقية إذا IF :

في المثالين السابقين وردت أداة الشرط المنطقية IF ، وهي تشبه أداة الشرط في اللغة العربية :

إذا كان الجو ملبداً بالغيوم ، فإنه من المحتمل أن يمطر .

فالجزء الذي يعب أداة الشرط يسمي بالشرط بينما الجزء الثاني يسمي بجواب الشرط .

If X>60 then print "ناجح"

--

وبتأمل المثال نجد أنه في حالة X=70 (تحقق الشرط) يتم طباعة كلمة ناجح ؟

ولكن ماذا لو كان الشرط غير متحققاً مثل X=40 هنا لن يتم طباعة شئ ، وسوف يواصل البرنامج تنفيذ السطور التالية .

If condition=true then execute-----

If condition=true then execute

----

دالة العدد العشوائي RND  :

دالة العدد العشوائي  تولد أعداد عشوائياً أقل من 1 بمعني  غير مرتبة ، فلا يمكنك أن تعرف العدد ، وحتى يتضح لك وظيفة الدالة RND ابدأ مشروع فيجوال بيسك جديد وضع زر أوامر وضع وانقره وضع الشفرة التالية فيه :

Option Explicit

Dim z As Single

Private Sub Command1_Click()

z =  RND (1)

Print z

End Sub

شغل البرنامج تجد الأرقام كما يلي :

من الواضح أن الأرقام الناتجة أقل من 1 ، ويمكننا الحصول علي أرقام أكبر  عشوائية أكبر من 1 بضرب العدد في 10 أو 100 ….. الخ ، ولكن سيظل لدينا جزء كسري ، ويمكننا التخلص منه بدالة العدد الصحيح INT ، الآن اكتب السطر التالي :

z = int (10* RND (1))

 هنا نلاحظ أن الأعداد الناتجة هي أعداد صحيحة ليست أكبر من 10 الآن نريد أن نجعل الرقم الناتج عدد صحيح من 0 إلي 100 هل يمكنك تنفيذ ذلك ؟

هل يمكنك أن تستغني عن دالة العدد الصحيح وتجعل البرنامج يعطي قيم صحيحة - غير تعريف المتغير Z من Single إلي Integer