15-11-13, 08:32 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
سيكون درسنا اليوم ان شاء الله عن جمل التكرار والدوران وسيكون عملنا الكلي على الكونسول
ولفتح مشروع كونسول جديد اتبع الصورة التالية :_
السلام عليكم ورحمة الله وبركاته
سيكون درسنا اليوم ان شاء الله عن جمل التكرار والدوران وسيكون عملنا الكلي على الكونسول
ولفتح مشروع كونسول جديد اتبع الصورة التالية :_
لقد قمنا بإيضاح شيء بسيط حول الكونسول في الفصل الاول
والان سوف نتعلم سوياً كيفية استخدام جمل التكرار والدوران داخل هذا الكونسول
ملاحظة هامة :_ المصفوفات غالباً مايتم استخدامها مع جمل التكرار والدوران
لذلك سوف نتعلم ذلك الان
==================================================
اولاً :- ماهي جمل التكرار :-
جمل التكرار :- باختصار هي جزء من البرنامج يتكرر
فمثلاً اذا اردنا ان نضيف على الكومبو ال قائمة المنسادلة الارقام من 0 إلى 100
فهل من المعقول ان نقوم بكتابة 100 سطر لاجل ذلك ؟؟
بالطبع لا ....
---------------------------------------
وسينتج لنا كود كبير جدأً وبدون اي فائدة منه :- مثل
كود :
ComboBox1.Items.Add(1)
ComboBox1.Items.Add(2)
ComboBox1.Items.Add(3)
.
.
.
ComboBox1.Items.Add(99)
ComboBox1.Items.Add(100)
الان سنجرب ان نضيف اليه الارقام ولكن باستخدام جملة التكرار for مثلاً :-
كود :
For i = 1 to 100
ComboBox1.Items.Add(i)
next
بهذه الكود هنا سوف يقوم بعمل اضافة للاعداد من 1 إلى 100 ولا حظ ان كلمة next تاتي مع حلقة for دائماً
---------------------------------------------
1-جمل التكرار باستخدام For..Next
2-جمل التكرار باستخدام Do...Loop
-------------------------------
*******************************************
اولاً :- جملة التكرار for --- next
يمكننا استخدام هذه الجملة عندما نريد تكرار التعليمة حسب المراد
فمثلاً كما في المثال السابق حدد انا نريد الارقام من 1 إلى 100 وبهذا صار التكرار معلوماً لدينا
وتكون الصيغة العامة لجملة التكرار for .... next بالشكل التالي :-
*******************************************
اولاً :- جملة التكرار for --- next
يمكننا استخدام هذه الجملة عندما نريد تكرار التعليمة حسب المراد
فمثلاً كما في المثال السابق حدد انا نريد الارقام من 1 إلى 100 وبهذا صار التكرار معلوماً لدينا
وتكون الصيغة العامة لجملة التكرار for .... next بالشكل التالي :-
كود :
For i = (StartValue) to (EndValue)
Condition
Next i
------------------------------------------
مثلاً هذا الكود لاضافة مصفوفة جديدة ومن خلال جملة التكرار اريدها ان تضع الاسماء التي بداخل المصفوفة
وتكتب في الكونسول
كود :
Dim vb4rab() As String = {"lo2i", "ali", "mohammed", "samer", "some one"}
For i = 0 To 4
Console.WriteLine("the name is " & vb4rabrab(i))
Next
Console.ReadKey()
------------------------------------------
قمنا بتعريف مصفوفة جديد وادخلنا فيها القيم التالية -
كود :
{"lo2i", "ali", "mohammed", "samer", "some one"}
استخدمنا الكلمة المحجوزة for
قمنا بتنفيذ تكرار جديد واعطينا قيمة له هي ان يبدأ بالعد من الصفر وينتهي ب اربعة
اي 0 1 2 3 4 اي خمس مرات
الصفر رقم منفصل -
الواحد رقم منفصل -
الاثنين رقم منفصل -
الثلاثة رقم منفصل -
الاربعة رقم منفصل -
يمكنك تجريب النتيجة بنفسك الان لعمل ذلك
ولا حظ هنا اننا كتبنا هذا الكود
كود :
Console.WriteLine("the name is " & vb4arab(i))
وهو الكود الذي سيقوم بتكرار نفسه خمس مرات على التوالي
ملاحظة هامة جداً :-
سيقوم تكرار العد على العداد الذي نقوم بتعريفه في جملة التكرار
فمثلاً قيمة i
لاول مرة سيكون 0
وبعد وصوله للكلمة المحجوزة next
سوف يعود لبداية التكرار
بعد ان تصبح قيمته 2
وهكذا حتى تصل إلى خمسة
اذا وصل العداد إلى الرقم 5 خرج من جملة التكرار
وادى الاكواد التالية ...
ولا تنسوا انه يمكننا الحصول على القيمة التي بداخل اي مصفوفة من خلال الكود التالي
كود :
Textbox1.text = vb4arab(1)
وسيظهر لنا في التيكست اسم lo2i
طيب لماذا في جملة التكرار لم نقم بكتابة عدد داخل فهرس المصفوفة
كما تلاحظون كتبنا داخل فهرس المصفوفة العداد i
الذي عرفناه على انه جملة تكرار تبدأ من الصفر وتنهي عند الاربعة
*********************************************
نعم المسألة بسيطة اكثر مما تتصور
فكما قلنا ان العداد سوف يبدأ من القيمة صفر وهي اول قيمة في المصفوقة ايضاً
لان المصفوفة كمان قيمها تبدأ من العدد ر قم صفر
وعند وصوله اول مرة إلى كلمة next
سوف يذهب إلى ال for
وتكون قيمته 1
وسيعرض لنا القيمة الاولى في المصفوفة التي تأتي بعد الصفر
وهكذا
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
يتبع
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .