الفصل الثالث الحلقات التكرارية

اولا قاعدة For ...................... Next 

https://www.blogger.com/blogger.g?blogID=808266641882786960#editor/target=post;postID=8781489651929489925;onPublishedMenu=allposts;onClosedMenu=allposts;postNum=10;src=link

FOR – NEXTيتم التكرار لعدد محدد مسبقا من الأوقات. .
·         بناء الجملة FOR Variable = Expression TO Expression [STEP Expression]

...NEXT'تكرار محدد. FOR iCount = 1 TO 20 STEP 3
   PRINT iCount & " ";
 NEXTFOR EACH INتكرار محدد بعدد المتغيرات في تعبير معين.

·         تركيب الجملةFOR EACH Variable IN Expression
...NEXTحلقة تعداد.
 FOR EACH Element IN Dict
   PRINT Element;
 NEXT

تدريبات

DO – LOOPهذه الجملة تقوم بعملية تكرار للشرط طالما

 كانت قيمة ذلك الشرط صحيحة. سيتم تقييم الشرط إما في بداية الشرط أو نهايته وذلك إعتمادا على الجملة المستخدمة هل هي: DO WHILE - LOOP أو DO - LOOP UNTIL. إذا كانت قيمة الشرط منذ البداية خطأ (false) عند تقييم الشرط في بداية الجملة (شرط الدخول) فلن يتم تنفيذ الأكواد بداخل تلك الجملة أبدا. وعلى العكس من ذلك ، إذا تم تقييم الشرط في نهاية الجملة (شرط الخروج) فسيتم تنفيذ الأكواد بداخل تلك الجملة على الأقل مرة واحدة ، على الرغم من أن الشرط صحيحا في خروج ودخول الجملة.
·         بناء الجملة

DO [WHILE Condition]
...[BREAK|CONTINUE]...LOOP [UNTIL Condition]
'تكرار لا نهائي. DO WHILE a <= 5
   PRINT "Hello World"; a
   INC a LOOP' نفس التأثير مع UNTIL DO   PRINT "Hello World"; a

   INC a LOOP UNTIL a = 6
REPEAT – UNTIL
·         بناء الجملةREPEAT...UNTIL Condition
'حلقة تكرار مع اختبار خروج في النهاية. REPEAT   PRINT Timer 'حلقة التكرار سيتم تنفيذها مرة واحدة على الأقل حتى لو كانت قيمة UNTIL خطأ منذ البداية.
 UNTIL Timer > 10

سيتم تكرار الجمل المحصورة بين طرفي الجملة حتى تصبح قيمة تلك الجمل صحيح

Timer 
 
عمل برنامج لعرض التاريخ والوقت
 
أنشئ 2 label   واحد للتاريخ والاخر للوقت وامسح ما بداخلهم من الخاصيه caption
 
اسحب الاداه timer  وضعها على الفورم ولا تتحكم فى شكلها لانها لا تظهر اثناء عرض البرنامج
 
اضغط على الاداه timer   واكتب بداخلها هذا الكود
 
Label1.Caption = Time
 
Label2.Caption = Date
 
ليكون الكود النهائي هكذا
 
Private Sub Timer1_Timer()
 
Label1.Caption = Time
 
Label2.Caption = Date
 
End Sub
 
 
شرح الكود
 
Label1.caption  هو ما يعرض فى الاداه label1 وقد اخترته Time وهو الوقت
 
Label2.caption  هو ما يعرض فى الاداه  label2 وقد اخترته  Date وهو التاريخ
 
الان اضغط على الاداه Timer واذهب الى الخصائص واجعل قيمه interval  تساوي 100
 
الان اضغط على F5   وانظر للبرنامج 

·  whileلحفظ المشروع
 
1_لحفظ المشروع نهائيا بدون التعديل عليه من اعلى البرنامج اختر File
ثم Make project exe
 
2- لحفظ المشروع للتعديل عليه فيما بعد
اختر Fie  ثم  Save project as
 
 
 
عمل برنامج لغلق البرنامج الذي تشتغل عليه بعد وقت معين
 
افتح الفيجوال
 
ضع اداه timer   اضغط عليها مرتين
 
ضع داخلها هذا الكود
 
End
 
ليكون الكود النهائي
 
Private Sub Timer1_Timer()
 
End
 
End Sub
 
الكود سهل جدا وهو للخروج من البرنامج
 
غير الخاصيه للاداه ntervsl  الي 5000
 
مثلا ضعه 5000 اي 5 ثواني
 
اضغط F5 وجرب البرنامج.