منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن تعرفون لي الخطأ في الكود ده بليززززززز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن تعرفون لي الخطأ في الكود ده بليززززززز (/showthread.php?tid=916)

ممكن تعرفون لي الخطأ في الكود ده بليززززززز - المبرمج البسيط1 - 10-11-13

كود :
Dim MCG(10) As Double

        MCG(0) = Val(ComboBox1.ValueMember)
        MCG(1) = Val(ComboBox2.ValueMember)
        MCG(2) = Val(ComboBox3.ValueMember)
        MCG(3) = Val(ComboBox4.ValueMember)
        MCG(4) = Val(ComboBox5.ValueMember)
        MCG(5) = Val(ComboBox6.ValueMember)
        MCG(6) = Val(ComboBox7.ValueMember)
        MCG(7) = Val(ComboBox8.ValueMember)
        MCG(8) = Val(ComboBox9.ValueMember)
        MCG(9) = Val(ComboBox10.ValueMember)

        Max = MCG(0)
        For i=1 to 9 do
            If Max > MCG(i) Then Max = MCG(i)

        Next i
        End if

        For i = Max to 48 do
            If MCG(0) mod i = 0 and MCG(1) mod i = 0 and MCG(2) mod i = 0 and MCG(3) mod i = 0 and MCG(4) mod i = 0 and MCG(5) mod i = 0 and MCG(6) mod i = 0 and MCG(7) mod i = 0 and MCG(8) mod i = 0 and MCG(9) mod i = 0 and
                ff = i
                Next i
        TextBox1.Text = ff
        End if


RE: ممكن تعرفون لي الخطأ في الكود ده بليززززززز - تركي قرمزلي - 11-11-13

السلام عليكم و رحمة الله و بركاته
اعتقد ان هذا السطر به خطأ For i = Max to 48 do
و الله اعلى و اعلم
السلام عليكم و رحمة الله و بركاته

RE: ممكن تعرفون لي الخطأ في الكود ده بليززززززز - smss - 11-11-13

PHP كود :
ValueMember 
اعتقد انه selected value صحيح؟؟

RE: ممكن تعرفون لي الخطأ في الكود ده بليززززززز - ناجي إبراهيم - 14-11-13

السلام عليكم...

حلقتا For كلتاهما خطأ، و كذلك جمل If. يبدو أن الأخ المبرمج البسيط1 كان يعمل بلغة Pascal أو أخذ كوداً مكتوباً بها.

حلقة For في VB لا تستعمل كلمة Do. الصحيح للحلقة الأولى:

كود :
For i = 1 to 9
    If Max > MCG(i) Then Max = MCG(i)
Next i

و جملة End If التي بعد الحلقة الأولى خاطئة من ناحيتين: أولاً لأنه إذا كتبنا جواب الشرط بعد Then (جملة If أحادية السطر) فإن جملة If لا تحتاج إلى End If. و ثانياً حتى إذا كانت جملة If متعددة الأسطر و تحتاج إلى End If فإنها في الكود المذكور في السؤال يجب أن تكون داخل الحلقة (قبل Next و ليس بعدها) لإن جملة If التي تتبعها موجودة داخل الحلقة.

أما حلقة For الثانية فبها الأخطاء التالية:
1. يجب كما قلنا أعلاه حذف كلمة Do من سطر For.
2. جملة If الطويلة يجب أن تنهي بـ Then و ليس and.
3. كما ذكرنا سابقاً، جملة End If يجب أن تكون قبل Next و ليس بعدها لأن If المقابلة لها موجودة داخل الحلقة.

نرجو الاستفادة و السلام.