+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول جملة for (/showthread.php?tid=26454)
سؤال حول جملة for - DOX.1 - 11-09-18
مســاء الخير يا جماعه
من المعروف أن جملة for حلقه دوران لعمل شي معين لحين الأنتهاء منه
السؤال لو كان لدي كود بهذه الطريقه
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For index = 0 To dt.Rows.Count - 1
x = dt(index)(0)
Dim cmd As SqlCommand
cmd = New SqlCommand("UpdateTBL_22", con)
cmd.CommandType = CommandType.StoredProcedure
Dim Parma(1) As SqlParameter
Parma(0) = New SqlParameter("@ID", SqlDbType.Int) With {.Value = x}
Parma(1) = New SqlParameter("@ysers", SqlDbType.Int) With {.Value = "700"}
cmd.Parameters.AddRange(Parma)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Next
MsgBox("ok")
End Subيعني ما عملت Exit For
هل يسبب تعليق أو تأخير في النظام
RE: سؤال حول جملة for - عبدالله الدوسري - 11-09-18
مساء النور
أولا : Exit For تستخدم للخروخ من الحلقة قبل إنتهائها.
على سبيل المثال حلقة في منتصفها وجدة ما تبحث عنة أو إنتهيت من القيام بعمل معين, لماذا تكمل الحلقة وأنت قد وجدة ما تبحث عنة, لذلك تستخدم Exit For
ثانياً : إذا كنت قلق من التأخير , فيجب أن تعيد النظر في مسألة فتح وإغلاق الإتصال في كل حلقة تكرار.
فتح وإغلاق الإتصال في كل حلقة تكرار سيسبب الكثير من التأخير , وأنت في غنى عن إغلاق وإعادة فتح الإتصال في كل حلقة.
لو قلت لك امسك قلم حبر واكتب على ورقة بيضاء كلام من أختيارك على الأقل 20 كلمة!!!!!
السؤال : هل ستفتح غطاء القلم وتغلقة بعد كل كلمة؟ أم أنك ستفتح الغطاء مرة واحدة ثم تبداء بالكتابة وعند الإنتهاء كلياً تقوم بإغلاق غطاء القلم؟؟؟؟؟؟
لاحظ هنا فتح وإغلاق الإتصال خارج الحلقة For
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
con.Open() <<<---------------
For index = 0 To dt.Rows.Count - 1
x = dt(index)(0)
Dim cmd As SqlCommand
cmd = New SqlCommand("UpdateTBL_22", con)
cmd.CommandType = CommandType.StoredProcedure
Dim Parma(1) As SqlParameter
Parma(0) = New SqlParameter("@ID", SqlDbType.Int) With {.Value = x}
Parma(1) = New SqlParameter("@ysers", SqlDbType.Int) With {.Value = "700"}
cmd.Parameters.AddRange(Parma)
cmd.ExecuteNonQuery()
Next
con.Close() <<<---------------
MsgBox("ok")
End SubRE: سؤال حول جملة for - elgokr - 12-09-18
اهلاً بك اخى DOX.1
الامر For نس الفكرة ولكن بطريقة الاصح
تخيل بقول ابداء العد من 1 الى 100 بطبيعة الحال
لما تبداء العد ستنتهى عند رقم 100
اهو هنا For يقوم بتطبيق ده وهو لا يتعامل مع اى شئ الا بالاعداد
حتى عندما تمرر له نصوص يقوم هو بالتعامل معها بالاعداد
فانت هنا استخدامت
كود :
For index = 0 To dt.Rows.Count - 1حيث ان Index هو قيمة رقمي ويبداء بـ 0
وحيث ان dt.Rows.Count هو عدد اسطر الداتا خريد فلول
مثلاً لديك 10 قيم فاصبح يري القيمة 10 للوقوف عندها
فانت الان كما لو تقول يا لان ابداء العد من 1 الى 10
لكن بما ان العد هنا يبداء من 0
فاصبحت النطق لها يا فلان ابداء العد من 0 الى 10 - 1 بمعنى 0 الى 9
والكود الذى بداخل For ما هو الا كود انت تريد تنفيذه
مثل اضاة قيمة فى كل مرة الى قاعدة البيانات أو عرض رسالة او تخزين يم بالذاكرة
طيب الى هنا تمام متى يتم استخدام Exit For وما وظيفتها
فى البداية Exit For هو عبارة عن انهاء العد مهما كان الوضع
يعنى مثلاً لو قلت لك قم بالعد من 1 الى 10 وانت فى وسط العد قت لك
لحظة خلاص مش عايزك تعد فانت هنا وقت حتى وو كنت عند العدد 2
طيب متى يتم الاستخدم وكيف تستخدم
تخيل انك تريد عمل بحث عن قيمة فى الداتا جريد فى 10 صفوف مثلاً الموجود
عن اسم ما او قيمة ما فى اى صف
فلما انت عملت الامر For وهو العد من 0 الى 9
وضعت بداخله كود تحقق من قيمة لكل خلية كل صف
واذا تحقق وتم ايجاد القيمة المطلوبة فهنا انت لست بحاجة بان For يكمل باقى العد
لتوضح اكتر For بيعد من 0 الى 9 ولاحظ عنه عند وصوله لـ 3 وجد القيمة المطلوبة
فانت تقول له استريح الان فلا داعي من استكمال العد بدون اى فائدة فتوقف
اهو كلمة توقف هنا تعنى جملة Exit For طيب لو كنت تريده ان يستكمل
لعل كون فى صق اخر يحتوى على نفس القيمة فهنا انت لست بحاجة لاستخدام Exit For نهائي
اتمنى ان يكون الشرح بسيط وانه موضح كلياً من امر For
تحياتى لك
وتمنياتى لك التوفيق