07-08-17, 03:43 PM
07-08-17, 04:49 PM
كود :
for i = 1 to datagridview1.rows.countمثلنا السابق الى اخر عدد الصفوف فى الداتا جريد كمثال
07-08-17, 05:04 PM
(07-08-17, 04:49 PM)محمود بكرى كتب : [ -> ]ممكن تضع متغير او تسترجع قيمة من اي اداة المهم ان القيمة تكون رقميةكود :
for i = 1 to datagridview1.rows.count
مثلنا السابق الى اخر عدد الصفوف فى الداتا جريد كمثال
طيب لو اريد العداد يعمل بشرط وليس بقيمة رقمية اي مثلا
ابدا العد من 1 حتى المبلغ <>0
وانهي لو المبلغ = 0 حبث في هذه الحالة لا يكون عندي متغير او علم بعدد المرات بشكل رقمي
07-08-17, 10:48 PM
ابسط شيئ دائما هى التجربة
يمكنك وضع شرط فى سياق التسلسل بمعني اذا كانت قيمة تزايده مثلال بمقدار 1 يمكنك ان تقول من i =1 الى i < 100 مثلا او ما شابه ذلك ونفس الطريقة للعكس مثلا نقول from i =100 to i =0 ولاكن فى هذه الحالة يفضل ان نستخدم جملة اخري وهى do .... while
ولاكن اذا كنت تريد ان تثتني بعض النتائج بشرط يجب استخدام جملة if داخل ال loop (الحلقة التكرارية)
وبالتوفيق
يمكنك وضع شرط فى سياق التسلسل بمعني اذا كانت قيمة تزايده مثلال بمقدار 1 يمكنك ان تقول من i =1 الى i < 100 مثلا او ما شابه ذلك ونفس الطريقة للعكس مثلا نقول from i =100 to i =0 ولاكن فى هذه الحالة يفضل ان نستخدم جملة اخري وهى do .... while
ولاكن اذا كنت تريد ان تثتني بعض النتائج بشرط يجب استخدام جملة if داخل ال loop (الحلقة التكرارية)
وبالتوفيق
07-08-17, 11:46 PM
مرحبا اخى تناسيم
فقط اشاره لو استخدمت for i =1 to sum=0
فهنا sum=0 ستكون نتيجتها boolean يعنى اذا كانت sum تساوى 0 فستكون true واذا كانت غير ذلك ستكون false
اي كانك بتقول for i =1 to true او for i =1 to false اذا فهذه الطريقه غير صحيحه
الطريقه مثل ما ذكر اخى محمد باستخدام do .... while
مثل
او
او
لاحظ اخى الافضل استخدام (اصغر او يساوى =>) لتلافي احتمال ان لا تكون القيمه صفر تماما فتقع في حلقه لانهائيه فيعلق عليك البرنامج ولا يخرج منها
فقط اشاره لو استخدمت for i =1 to sum=0
فهنا sum=0 ستكون نتيجتها boolean يعنى اذا كانت sum تساوى 0 فستكون true واذا كانت غير ذلك ستكون false
اي كانك بتقول for i =1 to true او for i =1 to false اذا فهذه الطريقه غير صحيحه
الطريقه مثل ما ذكر اخى محمد باستخدام do .... while
مثل
PHP كود :
Dim sum = 5
Do
sum -= 1
MsgBox(sum)
Loop While sum > 0
او
PHP كود :
Dim sum = 5
Do
sum -= 1
MsgBox(sum)
Loop Until sum <= 0
او
PHP كود :
Dim sum = 5
Do
sum -= 1
If sum <= 0 Then Exit Do
MsgBox(sum)
Loop
لاحظ اخى الافضل استخدام (اصغر او يساوى =>) لتلافي احتمال ان لا تكون القيمه صفر تماما فتقع في حلقه لانهائيه فيعلق عليك البرنامج ولا يخرج منها