أداة الشرط المنطقية إذا 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
|