تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه
#1
السلام عليكم
كيف يتم تحويل المصفوفه
الثنائيه الى احاديه بلغة
Vb6
 ارجو
المساعده وشكرآ.
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

PHP كود :
Dim A(22) As String
Dim B
() As String
Dim I
HAs Integer

A
(00) = "A"
A(01) = "B"
A(02) = "C"

A(10) = "D"
A(11) = "E"
A(12) = "F"

A(20) = "G"
A(21) = "H"
A(22) = "N"

ReDim B((UBound(A1) + 1) * (UBound(A2) + 1)) As String

For 0 To 2
    For I 
0 To 2
        B
(N) = A(HI)
 
       N 1
    Next
Next 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
#3
اخي احمد بارك الله في حضرتك وزادك من علمه


هل ممكن تغيير ذلك السطر الي هذا الشكل
كود :
ReDim B(((UBound(A, 1) + 1) * (UBound(A, 2) + 1)) - 1) As String
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Microformt , elgokr
#4
أهلا بك أخي عبدالله بارك الله فيك فعلا صحيح ماذكرت تعديلك في مكانه فعلا لابد من إنقاص بمقدار واحد ، عفواً لم أنتبه له ، شكراً جزيلاً لك وجزاك الله كل خير وزادك الله من واسعه علمه وفضله .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: عبدالله الصافي , Microformt , elgokr
#5
السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ
الرد
تم الشكر بواسطة:
#6
(01-01-19, 12:34 PM)اسامه الجبوري كتب : السلام عليكم
اخي ارجو التوضيح اكثر
اذا كانت مصفوفه(3,3)كيف
يتم تحويلها الى احاديه
ارجو التوضيح
وشكرآ

قم بتغيير الرقم 2 في هذا السطر الي البعد الاول للمصفوفة  For 0 To 2
قم بتغيير الرقم 2 في هذا السطر الي البعد الثاني للمصفوفة  For 0 To 2
الرد
تم الشكر بواسطة: elgokr



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


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