تقييم الموضوع :
  • 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
جزاك الله خير وبارك الله فيك
تسلم كتير
إن شاء الله سأوافيك بالجديد
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 154 30-11-16, 11:21 PM
آخر رد: awidan76
  المصفوفات المرجعية LoveVb 7 172 17-07-16, 08:43 AM
آخر رد: LoveVb
  [سؤال] بعض دوال التعامل مع المصفوفات LoveVb 2 199 08-05-16, 07:35 PM
آخر رد: LoveVb
  [VB.NET] كيف اصمم فئة تماثل المصفوفات Fantastico 2 149 19-02-16, 01:48 AM
آخر رد: silverlight
  [نقاش] اصدقائي لدي نقاش بخصوص Report 0theghost0 2 274 28-07-15, 02:54 PM
آخر رد: 0theghost0
  [نقاش] نقاش بخصوص مستقبل لغة vb.net hassan 4 1,067 21-10-14, 12:12 PM
آخر رد: سعود
  [نقاش] طريقة عمل محاكاة التحدث مع الحاسبة عن طريق الكتابة مبرمج بلا حدود 0 336 20-05-13, 10:14 PM
آخر رد: مبرمج بلا حدود
  [نقاش] التحكم بجهاز الموبايل عن طريق اوامر at في الدوت نت يوجد برنامج بالكود مبرمج بلا حدود 0 1,830 01-12-12, 01:50 PM
آخر رد: مبرمج بلا حدود
  [نقاش مع البرامج] ارسالة رسالة الى الجوال (الموبايل) عن طريق الفيجوال بيسك مبرمج بلا حدود 13 2,554 20-11-12, 03:48 PM
آخر رد: مبرمج بلا حدود

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


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