26-12-18, 05:11 PM
26-12-18, 11:55 PM
وعليكم السلام ورحمة الله وبركاته
أهلا بك اخي الكريم , هذا مثال على ذلك :
أهلا بك اخي الكريم , هذا مثال على ذلك :
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
27-12-18, 08:54 AM
اخي احمد بارك الله في حضرتك وزادك من علمه
هل ممكن تغيير ذلك السطر الي هذا الشكل
هل ممكن تغيير ذلك السطر الي هذا الشكل
كود :
ReDim B(((UBound(A, 1) + 1) * (UBound(A, 2) + 1)) - 1) As String27-12-18, 01:25 PM
أهلا بك أخي عبدالله بارك الله فيك فعلا صحيح ماذكرت تعديلك في مكانه فعلا لابد من إنقاص بمقدار واحد ، عفواً لم أنتبه له ، شكراً جزيلاً لك وجزاك الله كل خير وزادك الله من واسعه علمه وفضله .
01-01-19, 12:34 PM
السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
01-01-19, 04:44 PM
(01-01-19, 12:34 PM)اسامه الجبوري كتب : [ -> ]السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
قم بتغيير الرقم 2 في هذا السطر الي البعد الاول للمصفوفة For H = 0 To 2
قم بتغيير الرقم 2 في هذا السطر الي البعد الثاني للمصفوفة For i = 0 To 2