Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page
Search the Web

 

موقع فيجوال بيسيك التعليمي .......... المعاملات المنطقية والجمل الشرطية .......... نتمنى لكم الإستفادة الكاملة

 

 

تابع الجمل الشرطية في فيجوال بيسيك

 

الجملة الشرطية  if…then ….else

وتكون صياغته بالشكل التالي :

then             شرطif         

              مجموعة أوامر

else

مجموعة أوامر

end if

في هذا التركيب يقوم "فيجول بيسيك" بتقييم الشرط ، فإن كان صحيحاً فإنه ينفذ مجموعة الأوامر

التي تلي كلمة then حتى كلمة else وإن كان خاطئاً فإنه ينفذ مجموعة الأوامر

التي تلي كلمة else حتى كلمة end if . أي أنه لابد من تنفيذ إحدى المجموعتين من الأوامر . مثال :

)"أدخل كلمة السر من فضلك"pw$ = inputbox (

then "أحمد" if pw$ =

   "أهلا وسهلاً بك في عالم البرمجة بلغة فيجوال بيسيك" msgbox

else

"هذا البرنامج مخصص لمستخدمي فيجوال بيسيك"msgbox

end

end if

يقوم البرنامج بسؤال المستخدم عن كلمة سر فإذا كانت صحيحة فإنه يرحب به وأما إذا كانت غير ذلك يعرض عليه

رسالة توضيحية وبعدها يخرج من البرنامج

وسوف أوضحها لكم من خلال برنامج بسيط حمله الآن

التكرار  LOOP

التكرار loop  يعني تكرار مجموعة معينة من الأوامر عدد معين من المرات . وهناك ثلاثة تركيبات لعمل ذلك وهي :

تكرار  for …next

يستخدم إذا كنت تعرف عدد المرات التي ترغب في تكرارها ، وتكون صياغته كالتالي:

 

الزيادة في كل مرة(اختياري)

step

النهاية

to

البداية

=

متغير يستخدم للعد

for
 
ضع مجموعة الأوامر التي تريد تكرارها هنا

 اسم المتغير    next

مثال :

إذا أردت أن تكرر مجموعة أوامر عشرة مرات مثلا قم بما يلي :

for counter = 1 to 10

مجموعة الأوامر

next counter

ويجب أن لا تعدل قيمة المتغير الذي يحمل عدد مرات التكرار

مثال

for counter = 1 to 10

………………….

Counter = counter +1

Next counter

 

هذا التكرار سيتفذ 5 مرات لأن في كل مرة يتم فيها تنفيذ مجموعة الأوامر المحصورة بين for و next

تتم فيها زيادة المتغير مرتان .

 

تكرار do.....loop

يفيد هذا التكرار إذا كنت لاتعرف عدد مرات التكرار التي تريدها

لنفرض أنك تريد تكرار مجموعة أوامر بشكل مستمر حتى يتحقق شرط معين فإنك تستخدم هذا التكرار . ( هذا التكرار له

عدة أشكال سوف نشرح هذه الاشكال كما يلي :

الشكل الأول 

 شرط   do while

مجموعة الأوامر ……

loop

في هذه الصياغة يقوم "فيجول بيسيك" بتقييم الشرط ، فإن كان خاطئا فلا يقوم بتنفيذ التكرار أبداً . أما إذا كان صحيحاً ،

فإنه يقوم بتنفيذ مجموعة الأوامر المحصورة كلمتي do   و loop  مرة. ثم يعود ويختبر الشرط مرة أخرى .. وهكذا حتى يجد

الشرط خاطئاً فيخرج من التكرار . مثال :

dim myval as string

do while myval <> "bye"

input #1, myval

print myval

loop

في هذا المثال يضل يقرأ حتى يصل إلى كملة "bye "

الشكل الثاني 

DO

مجموعة الأوامر

الشرط Loop while

في هذه الحالة يقوم "فيجول بيسيك" بتنفيذ التكرار مرة واحدة ثم يحتبر الشرط فإن كان خاطئا فإنه يوقف التكرار ، وإن

كان صحيحا فإنه يقوم بتكرار مجموعة الأوامر

 

الخروج من التكرار :

اسم التكرار
طريقة الخروج

التكرار for…next

Exit for

التكرار do …loop

Exit loop

 

 


     
    

جميع حقوق التصميم محفوظة © AM-Designer 2006