الدعم الفنى وضمان الجودة _ شعارنا _ الطالب امانة والمعلم ضمير
منتديات إطسا التعليمية ترحب بكم
====================
عزيزي : أنت مسجل كزائر .
إذا كان لديك حساب أضغط ...
دخول
. وإذا أردت إنشاء حساب جديد أضغط ... تسجيل

الدعم الفنى وضمان الجودة _ شعارنا _ الطالب امانة والمعلم ضمير

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

شاطر | 
 

 دورة مبسطة فىأساسيات لغة Visual Basic 6 الدرس الثالث

اذهب الى الأسفل 
كاتب الموضوعرسالة
محمد عراقى
عصو سوبر
avatar

ذكر عدد الرسائل : 953
العمر : 63
علم الدولة :
نقاط : 1513
تاريخ التسجيل : 08/06/2008

مُساهمةموضوع: دورة مبسطة فىأساسيات لغة Visual Basic 6 الدرس الثالث   الخميس مارس 12, 2009 11:32 pm


[size=12]الدرس الثالث : الجمل التكرارية .

أحيناً نريد تنفيذ الأمر أكثر من مرة في نفس الوقت , كتعبئة عناصر مربع قائمة بالأرقام من 1 إلى 1000 , فأنت لست مضطرا إلى إضافة الألف رقم بنفسك , وإنما يمكنك استعمال الجمل التكرارية لتنفيذ الأمر بسرعة فائقة .
هنا عدة أنواع من الجمل التكرارية , أهمها :

تركيب For…To…Next : ويستخدم لتكرار أمر ما أكثر من مرة , بتعيين قيمة البداية والنهاية (ومقدار العد إن أردت) , ويكون بالشكل التالي :


كود
For X = start To end [Step num]
Command…
Next X


نشرح التركيب السابق :
For , To , Next : كلمات محجوزة , الأولى لبدء التركيب والثانية لربط قيمة البداية بقيمة النهاية والأخيرة لإنهاء التركيب

X : متغير توضع فيه قيمة الدوارة , أي أنه إن كانت الدوارة في الدورة 5 , ستكون قيمة X = 5
Start : قيمة البداية

End : قيمة النهاية

Step num : هذا الجزء يحدد مقدار العد حيث step كلمة محجوزة و num هو مقدار العد, أي هل يزيد قيمة X في كل مرة بمقدار واحد , اثنين , ثلاثة , عشرة ... إلخ , وقد وضعتهما بين [] لأنهما غير ضروريان ويتم تعيينهما افتراضياً على 1 .

مثلاً :

كود
For X = 1 To 10
Msgbox X
Next X

هذا الأمر سيعرض 10 رسائل تحتوي على قيمة x

ملحوظة : هناك جملة تستخدم للخروج من دوارة (أو تركيب) For , وهي Exit For ,, الفائدة منها هي عدم الحصول على دوارات غير منتهية مما يؤدي إلى الخروج عن مسار البرنامج.
مثلاً :

كود
For x = 1 To Val(text1.text)
Msgbox x
Next x

هذا الكود يقوم بعرض رسالة فيها قيمة x بدءاً من 1 إلى القيمة الرقمية (Val) في مربع النص , حيث Val هي دالة تحول النص إلى رقم , فمثلاً "1234" نوعها نصي , تحول إلى 1234 (سأشرحه التفصيل إن شاء الله تعالى في الدرس القادم)

حسناً , ماذا لو أن المستخدم كتب 1000000000 في مربع النص ؟!
سيعرض البرنامج 1000000000 رسالة مما يؤدي إلى تعطيل المستخدم

في هذه الحالة يمكن وضع جملة للتحقق من القيمة والخروج إن كانت كبيرة :

كود
For x = 1 To Val(text1.text)
If x > 100 Then
Exit For
End If
Next x


أيضاً يمكنك تقييد الدوارة بشكل آخر , مثلاً :

كود
For x = 1 To Val(text1.text)
If x < 100 Then goto 7
Msgbox x

7 Next x

سيعرض البرنامج رسالة فيها رقم 100 مباشرة , وهذا لأننا شرطنا أنه يجب أن يكون x أصغر من 100 حتى ننتقل إلى ننتقل إلى الدورة التالية , وبالتالي فإن البرنامج أكيد سينتقل إلى الدورة التالية مباشرة ويزيد قيمة x , إلى أن يكون X = 100 , أي أننا في الدورة 100 وعندها سيعرض الرسالة
والأمر GoTo هنا يقوم باستدعاء جزء رقم 7 , والذي يحتوي على أمر الإنتقال إلى الدورة التالية

تركيب Do While … Loop : ويستخدم لتنفيذ أمر طالما تحقق شرط ما

كود
Do While Condition
Command…
Loop


مثلاً :
كود
Do While x > 10
X = x + 1
Msgbox x
Loop

لاحظ أنه لن يعرض أية رسالة في التركيب السابق , لا مشكلة في هذا الآن

وهناك صيغة أخرى لهذا التركيب هي :

كود
Do
Commands...
Loop While Condition

وهنا سيتحقق من الشرط بعد تنفيذ الأوامر , وليس قبلها كما في الصيغة السابقة

تركيب Do Until … Loop : ويستخدم لتنفيذ أمر ما بشكل متكرر طالما أن الشرط غير متحقق

كود
Do Until Condition
Command…
Loop

فمثلاً (لاحظ أننا غيرنا مكان الشرط في المثال السابق) :

كود
Do
X = x + 1
Msgbox x
Loop Until X > 10


لاحظ أنه في هذا الأمر , سيعرض رسائل إلى أن تصل قيمة X إلى 11 , أي عندما يكون أكبر من 10 , بينما في الكود السابق لن يعرض أية رسالة لأن X أصلاً = صفر , أي أنه ليس أكبر من 10 وبالتالي لن يكمل التركيب الحلقة

لاحظ , تركيب While سيتابع الدوران طالما تحقق الشرط , بينما تركيب Until سيوقف الدوران إن تحقق الشرط .
يمكنك تذكر هذه الملحوظة من خلال معنى الكلمتين :
While : تعني ----> طالما الشرط صحيح , ننفذ الكود
Until : تعني ----> ننفذ الكود حتى يصبح الشرط صحيح



منقول
[/size]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
دورة مبسطة فىأساسيات لغة Visual Basic 6 الدرس الثالث
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» جهاز عرض الصور المعتمة والشفافيات والشرائح والمجسمات
» The Basic Parts of a Drip System
» Oxidation - Reduction Reactions
» حصرى كتاب سنل الاصدار التامن
» Visual Basic 6.0 Enterprise Edition Full

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الدعم الفنى وضمان الجودة _ شعارنا _ الطالب امانة والمعلم ضمير :: تقنيات :: تعلم البرمجــــــــه-
انتقل الى: