30-11-15, 01:04 PM
02-12-15, 01:12 PM
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
05-12-15, 05:24 AM
أهلا بك أختي الكريمة , أرجو المعذرة على التأخر بالرد , يرجى لو توضحي أكثر المطلوب , وإن شاء الله خير .
05-12-15, 02:37 PM
السلام عليكم شكرا لك اخي الكريم
كانت فكرة البرنامج ان يكون توزيع الحروف كالتالي
ان يكون الصف الاول كالتالي
aaaa ,aaba,aaca,aada,aaea
والسطر الثاني
aaba,aabb,aadc,aabd,aabe
وهكذا الا السطر الخامس,وياحبذا لو عملنا حلقة تكراريه بإنشاء مصفوفة لذلك
وبدون استخدام الاسكي
كانت فكرة البرنامج ان يكون توزيع الحروف كالتالي
ان يكون الصف الاول كالتالي
aaaa ,aaba,aaca,aada,aaea
والسطر الثاني
aaba,aabb,aadc,aabd,aabe
وهكذا الا السطر الخامس,وياحبذا لو عملنا حلقة تكراريه بإنشاء مصفوفة لذلك
وبدون استخدام الاسكي
06-12-15, 05:45 AM
أهلا أختي الكريمه ، على حسب فهمي الأحرف المستخدمه هي abcde وتريدين توزيعها الآليه التي وضحتيها في ردك الأخير بحيث يكون عدد الأسطر الناتجه هو خمسة أسطر إذا سيكون الكود بهذا الشكل :
ملاحظه : تستطيعين زيادة عدد الأحرف في المتغير Chars بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .
كود :
Dim Chars As String
Dim I As Integer
Dim H As Integer
Chars = "abcde"
Dim ResultLines(1 To Len(Chars) ) As String
For I = 1 To Len(Chars)
For H = 1 To Len(Chars)
ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars,I,1) & Mid(Chars,H,1) & ","
Next
ResultLines(I) = Left(ResultLines(I),Len(ResultLines(I)) - 1)
MsgBox "Line" & I & "=" & ResultLines(I)
Next
ملاحظه : تستطيعين زيادة عدد الأحرف في المتغير Chars بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .
07-12-15, 12:29 AM
شكرا لك استاذنا الكريم
لو اردنا ان يكون الظهور في مصفوفة بدل msgbox كيف سيكون ذلك
لو اردنا ان يكون الظهور في مصفوفة بدل msgbox كيف سيكون ذلك
07-12-15, 02:07 AM
أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم ResultLines ولكن أنا أظهر المسج بوكس لكي تشاهدي النتيجة أو عناصر المصفوفه , عموما عدلت تعديل بسيط على الكود كا فيه خطأ بسيط لأنه لم أجربه على الفيجول , ووضعته في مثال .
PHP كود :
Dim Chars As String
Dim ResultLines() As String
Dim I As Integer
Dim H As Integer
Chars = "abcde"
ReDim ResultLines(1 To Len(Chars)) As String
For I = 1 To Len(Chars)
For H = 1 To Len(Chars)
ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars, I, 1) & Mid(Chars, H, 1) & ","
Next
ResultLines(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
MsgBox ResultLines(I)
Next
07-12-15, 08:43 PM
(07-12-15, 02:07 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم ResultLines ولكن أنا أظهر المسج بوكس لكي تشاهدي النتيجة أو عناصر المصفوفه , عموما عدلت تعديل بسيط على الكود كا فيه خطأ بسيط لأنه لم أجربه على الفيجول , ووضعته في مثال .شكرا لك استاذنا الغالي
PHP كود :
Dim Chars As String
Dim ResultLines() As String
Dim I As Integer
Dim H As Integer
Chars = "abcde"
ReDim ResultLines(1 To Len(Chars)) As String
For I = 1 To Len(Chars)
For H = 1 To Len(Chars)
ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars, I, 1) & Mid(Chars, H, 1) & ","
Next
ResultLines(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
MsgBox ResultLines(I)
Next