تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقاش حول المصفوفات
#1
بعد حمد الله تعالي
نصلي ونسلم علي الحبيب المصطفي
السلام عليكم
قبل يومين طرحت مشكلة خاصة بالمصفوفات ولم أجد من يتجاوب مع الموضوع
واجهتني مشكلة أخري ولكنني وجدت لها حل مؤقت ولايفي بالغرض بالكامل ولن أطرح الحل لأنه غبي بصراحة Cool

لم استطع الشرح بالعربي لكن سأشرح الكود حتي يكون الجميع في الصورة <إبتسموا Big Grin
المهم هذا هو الكود
المشروع عبارة عن تحكم في عدة أجهزة عن طريق منفذ الطابعة


المشكلة :
index was outside the bounds of the array
تظهر عندما تكون قيمة x أقل من
128 بالثنائي تساوي 10000000 اي الـled رقم 8 تعمل
أو 255 بالثنائي تساوي 11111111 اي كل الـLeds تعمل

بمعني انه يتم تجاهل اي أصفار إذ كانت من ناحية الشمال <هذا علي حسب فهمي والله أعلم

يارب أكون تمكنت من توصيل الفهم
رجاء الفهمني يقول حتي وإن لم يجد حل يكفي إنه فهمني
الرد }}}
تم الشكر بواسطة:
#2
سبب الخطأ إنك بتطلب القيمة رقم 8 مثلا في مصفوفة تحتوي على 7 قيم فقط

إستخدم أمر conv.Count لمعرفة عدد القيم في المصفوفة
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك
طيب أنا محتاج ال 8 قيم حتي لو كانت اصفار
كيف يتم ذلك ؟
الرد }}}
تم الشكر بواسطة:
#4
كود :
For I =0 To conv.Count
Dim a = conv(i)
'MsgBox(a.ToString)
Next
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خير

لكن المشكلة لاتزال قائمة

index was outside the bounds of the array

اليك مااريده
إذا كان عدد خانات المصفوفة أقل من 8 أريد ملئ باقي الخانات أصفار
الرد }}}
تم الشكر بواسطة:
#6
حاولت أكتب التالي :

if conv.count<8 then
conv.setvalue() '????here

اريد مكان الاستفهامات يكون جملة ملء الحقول الفارغة بالأصفار
الرد }}}
تم الشكر بواسطة:
#7
عفوا نسيت أمر بسيط
كود :
For I =0 To conv.Count [COLOR=#ff0000]- 1
[/COLOR] Dim a = conv(i)
'MsgBox(a.ToString)
Next
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#8
جميل جدا جدا وهذا هو المطلوب

أريد القيم في متغيرات حتي يمكنني التعامل معها مرة أخري
+
المشاركة السابقة(اريد عرض الخانات الفارغة موجودة قيمتها صفر)
الرد }}}
تم الشكر بواسطة:
#9
ضيف أي شي بدك ياه بالقيم داخل الحلقة التكرارية
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#10
جزاك الله خير وبارك الله فيك
تسلم كتير
إن شاء الله سأوافيك بالجديد
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] نقاش تحويل المشاريع بتقنية vbnet للعمل على الأنظمة الأخرى Kit909 3 1,114 11-05-22, 05:22 AM
آخر رد: Kit909
  سؤال في المصفوفات اليوم السابع 1 857 15-01-22, 10:50 PM
آخر رد: محمود صالح
  [VB.NET] المصفوفات thabit 1 802 03-10-20, 12:59 PM
آخر رد: kiki
  [سؤال] استفسار او نقاش بخصوص قواعد البيانات اليوم السابع 2 1,382 08-05-20, 11:38 PM
آخر رد: اليوم السابع
  [نقاش] نقاش الي اعضاء المنتدي bakriano30@yahoo.com 3 1,548 20-08-19, 01:37 PM
آخر رد: أمجد وضاح
  [vb6.0] المصفوفات اسامه الجبوري 1 1,386 23-12-18, 01:50 PM
آخر رد: اسامه الهرماوي
  نقاش :- ما هي الطريقة المستخمة في عمل اصناف مجمعة قاسم 5 2,509 24-06-18, 05:15 PM
آخر رد: قاسم
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 5,177 21-01-17, 04:35 PM
آخر رد: abudawoodd
  [نقاش] :::نقاش::: صلاحية الاتصال البعيد stocket UDP Abou Eman 3 2,174 17-12-16, 03:28 PM
آخر رد: أبو ناصر
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 2,071 30-11-16, 11:21 PM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم