Make your own free website on Tripod.com

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

 

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001