+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه (/showthread.php?tid=28041)
سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - اسامه الجبوري - 26-12-18
السلام عليكم
كيف يتم تحويل المصفوفه
الثنائيه الى احاديه بلغة
Vb6
ارجو
المساعده وشكرآ.
RE: سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - Ahmed_Mansoor - 26-12-18
وعليكم السلام ورحمة الله وبركاته
أهلا بك اخي الكريم , هذا مثال على ذلك :
PHP كود :
Dim A(2, 2) As String
Dim B() As String
Dim I, H, N As Integer
A(0, 0) = "A"
A(0, 1) = "B"
A(0, 2) = "C"
A(1, 0) = "D"
A(1, 1) = "E"
A(1, 2) = "F"
A(2, 0) = "G"
A(2, 1) = "H"
A(2, 2) = "N"
ReDim B((UBound(A, 1) + 1) * (UBound(A, 2) + 1)) As String
For H = 0 To 2
For I = 0 To 2
B(N) = A(H, I)
N = N + 1
Next
Next
RE: سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - عبدالله الصافي - 27-12-18
اخي احمد بارك الله في حضرتك وزادك من علمه
هل ممكن تغيير ذلك السطر الي هذا الشكل
كود :
ReDim B(((UBound(A, 1) + 1) * (UBound(A, 2) + 1)) - 1) As StringRE: سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - Ahmed_Mansoor - 27-12-18
أهلا بك أخي عبدالله بارك الله فيك فعلا صحيح ماذكرت تعديلك في مكانه فعلا لابد من إنقاص بمقدار واحد ، عفواً لم أنتبه له ، شكراً جزيلاً لك وجزاك الله كل خير وزادك الله من واسعه علمه وفضله .
RE: سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - اسامه الجبوري - 01-01-19
السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
RE: سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه - عبدالله الصافي - 01-01-19
(01-01-19, 12:34 PM)اسامه الجبوري كتب : السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
قم بتغيير الرقم 2 في هذا السطر الي البعد الاول للمصفوفة For H = 0 To 2
قم بتغيير الرقم 2 في هذا السطر الي البعد الثاني للمصفوفة For i = 0 To 2