For i = 0 To 80 If Text1.Item(i).Text <> "" Then Text1.Item(i).Locked = True Text1.Item(i).ForeColor = vbRed Next i End If
ما هو الخطا ؟؟
لا اعلم ما الخطا ! الحلقات التكرارية For Next
مغلق
الخطأ في انك عكست End if مكان Next i
اخي ما وظيفة خاصيه Item ؟
فلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
Item هذه تستخدم عندما تكون لديك مصفوفة (array) من الـ Texts كلها بنفس الإسم على سبيل المثال Text1
يعني لديك ثلاث مربعات Text باسم Text1 فتصل إلى كل واحدة منهم على حده عن طريق
Text1.Item(0) Text1.Item(1) Text1.Item(2)
من أقوال الأئمة
الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".
الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".
الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".
الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".
علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".
وكل خير في اتباع من سلف وكل شر في ابتداع من خلف
Do x = Int(Rnd * 9) If Text1.Item(1).Locked = True Then Loop While x = Text1.Item(1).Text Text1.Item(0).Text = x Timer2.Enabled = True Timer1.Enabled = False End If
ما هو الخطا هنا
عذرا الكود ليس في الموضوع المناسب
Do If Loop While End If
المفترض أن Do تأتي مع Loop While و If تأتي مع End If
يعني تكتب
Do Loop While If End If
أو تكتب
Do If End If Loop While
على حسب الإستخدام يعني القاعدة أن آخر أمر فتحته هو أول أمر تغلقه
نصيحة مني لك أن تشتري كتاب في البرمجة وتقرأه لأنك بطريقة الأسئلة هذه لن تستفيد بشكل جيد اقرأ مثلا كتاب
Mastering Visual Basic
من أقوال الأئمة
الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".
الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".
الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".
الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".
علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".
وكل خير في اتباع من سلف وكل شر في ابتداع من خلف
لدي كتاب اخي ولكني منذ فترة لم اكمل هذه الاشياء فانتقلت الى التعامل مع dll , ocx و الان رجعت لها :)
أكيد ينفع
لاحظ هذا الكود
if for do loop while next end if
هذا الكود سليم تماما لأننا فتحنا if ثم for ثم do وعند الغلق بدأنا بآخر شئ فأغلقنا do بـ loop while ثم أغلقنا for بـ next ثم أغلقنا if بـ end if
كل ما بين if و end if سينفذ إذا تحقق الشرط المصاحب لـ if وكل ما بين for و next سينفذ حتى ينتهي العداد المصاحب لـ for وكل ما بين do و loop while سينفذ حتى ينتهي الشرط المصاحب لـ while وهكذا يمكنك تكرار هذا الأمر كيف تشاء وبأي ترتيب تشاء المهم أن آخر شئ فتحته هو أول شئ تغلقه
من أقوال الأئمة
الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".
الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".
الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".
الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".
علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".
وكل خير في اتباع من سلف وكل شر في ابتداع من خلف
شكرا على التوضيح اخي
لقد استفدت منه فقد كان لدي خطا لا اعرف سببه وتم التعديل
ولكني الا حد الان لم اعرف :
do loop while
اتمنى تشرحهم بالامثلة >>> لكي اعرف الاستعمال وليس التعريف
وشكرا مرة اخرى
مبرمج مبتدا كتب:شكرا على التوضيح اخيلقد استفدت منه فقد كان لدي خطا لا اعرف سببه وتم التعديل
ولكني الا حد الان لم اعرف :
do loop whileاتمنى تشرحهم بالامثلة >>> لكي اعرف الاستعمال وليس التعريف
وشكرا مرة اخرى
أخي الكريم
Do هي لعمل حلقة تكرارية غير منتهية مالم يتم ربطها بشرط معين للايقاف
مثلا :
لعمل حلقة تكرارية للتنقل بين سجلات جدول غير معلومة العدد نقوم بالاتي
Do Rs.Movenext Loop While NOT RS.EOF ويمكن كتابتها هكذا Do While not RS.EOF RS.MOVENEXT Lop حيث ان RS هنا ترمز الى الجدول المفتوح
أخي باسم
اعذرني للتدخل وتقبلوا
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
أخي omani أنت على الرحب والسعة فالمنتدى ليس منتداي وحدي والكل يمكن أن يشارك بلا حرج
من أقوال الأئمة
الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".
الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".
الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".
الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".
علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".
وكل خير في اتباع من سلف وكل شر في ابتداع من خلف
حسنا
Private Sub Form_Paint() Do Until x = 5 x = x + 1 Print x Loop End Sub
ارئيت انها نفس الطريقة
ربنا يوفقك
مبارك لشعب تونس 
هذا الموضوع مغلق.