[اسامه الجبوري]

السلام عليكم
كيف يتم تحويل المصفوفه
الثنائيه الى احاديه بلغة
Vb6
 ارجو
المساعده وشكرآ.

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك اخي الكريم , هذا مثال على ذلك :

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 


[عبدالله الصافي]

اخي احمد بارك الله في حضرتك وزادك من علمه


هل ممكن تغيير ذلك السطر الي هذا الشكل

كود :

ReDim B(((UBound(A, 1) + 1) * (UBound(A, 2) + 1)) - 1) As String

[Ahmed_Mansoor]

أهلا بك أخي عبدالله بارك الله فيك فعلا صحيح ماذكرت تعديلك في مكانه فعلا لابد من إنقاص بمقدار واحد ، عفواً لم أنتبه له ، شكراً جزيلاً لك وجزاك الله كل خير وزادك الله من واسعه علمه وفضله .

[اسامه الجبوري]

السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ

[عبدالله الصافي]

(01-01-19, 12:34 PM)اسامه الجبوري كتب : السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ

قم بتغيير الرقم 2 في هذا السطر الي البعد الاول للمصفوفة  For H = 0 To 2
قم بتغيير الرقم 2 في هذا السطر الي البعد الثاني للمصفوفة  For i = 0 To 2