+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=20080)
ظهور رسالة خطأ في هذا الكود - ahmedfa71 - 19-04-17
عند إضافة هذا الكود أو الدالة
PHP كود :
Function GetTSDB(ByVal EC As Integer) As Double
If (EC < 1 Or EC > 17) Then Return 0
Dim ASDB(,) As Integer = { _
{30, 25, 33, 60, 29, 63, 69, 71, 86, 101, 117, 150, 180, 207, 255, 300, 390}}
Dim TASDB As Double = (ASDB((EC - 1)) * 55)
Return TASDB
End Function
تظهر رسالة خطأ
number of indices is less than the number of dimensions of the indexed array
فأرجو من الإخوة مساعدتي في تصحيح الخطأ
مع العلم أن EC هي عبارة عن قيمة الكومبوبوكس
وجزاكم الله خيرا
RE: ظهور رسالة خطأ في هذا الكود - عبـدالله - 20-04-17
احذف الفاصلة في تعريف ASDB
RE: ظهور رسالة خطأ في هذا الكود - ahmedfa71 - 20-04-17
(20-04-17, 07:09 AM)عبـدالله كتب : احذف الفاصلة في تعريف ASDB
شكرا لك أخي عبد الله وجزاك الله خيرا على المساعدة
فعلا إشتغل الكود بعد حذف الفاصلة في تعريف ASDB
شكرا جزيلا وجعلها الله في ميزان حسناتك
RE: ظهور رسالة خطأ في هذا الكود - IBRA939 - 20-04-17
مشاءالله ماقصرت