منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : for...... next
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هل يمكن جعل قيمة start في for مثل

for i =1 to sum=0 ولا لابد ان تكون قيمة رقمية فقط مثل
for i=1 to 10
كود :
for i = 1 to datagridview1.rows.count
ممكن تضع متغير او تسترجع قيمة من اي اداة المهم ان القيمة تكون رقمية
مثلنا السابق الى اخر عدد الصفوف فى الداتا جريد كمثال
(07-08-17, 04:49 PM)محمود بكرى كتب : [ -> ]
كود :
for i = 1 to datagridview1.rows.count
ممكن تضع متغير او تسترجع قيمة من اي اداة المهم ان القيمة تكون رقمية
مثلنا السابق الى اخر عدد الصفوف فى الداتا جريد كمثال

طيب لو اريد العداد يعمل بشرط وليس بقيمة رقمية اي مثلا
ابدا العد من 1 حتى المبلغ <>0
وانهي لو المبلغ = 0 حبث في هذه الحالة لا يكون عندي متغير او علم بعدد المرات بشكل رقمي
ابسط شيئ دائما هى التجربة
يمكنك وضع شرط فى سياق التسلسل بمعني اذا كانت قيمة تزايده مثلال بمقدار 1 يمكنك ان تقول من i =1 الى i < 100 مثلا او ما شابه ذلك ونفس الطريقة للعكس مثلا نقول from i =100 to i =0 ولاكن فى هذه الحالة يفضل ان نستخدم جملة اخري وهى do .... while
ولاكن اذا كنت تريد ان تثتني بعض النتائج بشرط يجب استخدام جملة if داخل ال loop (الحلقة التكرارية)
وبالتوفيق
مرحبا اخى تناسيم

فقط اشاره لو استخدمت 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 

او
PHP كود :
Dim sum 5
Do
 
   sum -= 1
    MsgBox
(sum)
Loop Until sum <= 

او
PHP كود :
Dim sum 5
Do
 
   sum -= 1
    If sum 
<= 0 Then Exit Do
 
   MsgBox(sum)
Loop 

لاحظ اخى الافضل استخدام (اصغر او يساوى =>) لتلافي احتمال ان لا تكون القيمه صفر تماما فتقع في حلقه لانهائيه فيعلق عليك البرنامج ولا يخرج منها