+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : طلب كود توزيع text بطريقة خاصة (/showthread.php?tid=13974)
طلب كود توزيع text بطريقة خاصة - الاصيله - 30-11-15
السلام عليكم
RE: طلب كود توزيع text بطريقة خاصة - الاصيله - 02-12-15
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
RE: طلب كود توزيع text بطريقة خاصة - Ahmed_Mansoor - 05-12-15
أهلا بك أختي الكريمة , أرجو المعذرة على التأخر بالرد , يرجى لو توضحي أكثر المطلوب , وإن شاء الله خير .
RE: طلب كود توزيع text بطريقة خاصة - الاصيله - 05-12-15
السلام عليكم شكرا لك اخي الكريم
كانت فكرة البرنامج ان يكون توزيع الحروف كالتالي
ان يكون الصف الاول كالتالي
aaaa ,aaba,aaca,aada,aaea
والسطر الثاني
aaba,aabb,aadc,aabd,aabe
وهكذا الا السطر الخامس,وياحبذا لو عملنا حلقة تكراريه بإنشاء مصفوفة لذلك
وبدون استخدام الاسكي
RE: طلب كود توزيع text بطريقة خاصة - Ahmed_Mansoor - 06-12-15
أهلا أختي الكريمه ، على حسب فهمي الأحرف المستخدمه هي abcde وتريدين توزيعها الآليه التي وضحتيها في ردك الأخير بحيث يكون عدد الأسطر الناتجه هو خمسة أسطر إذا سيكون الكود بهذا الشكل :
كود :
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 بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .
RE: طلب كود توزيع text بطريقة خاصة - الاصيله - 07-12-15
شكرا لك استاذنا الكريم
لو اردنا ان يكون الظهور في مصفوفة بدل msgbox كيف سيكون ذلك
RE: طلب كود توزيع text بطريقة خاصة - Ahmed_Mansoor - 07-12-15
أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم 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
RE: طلب كود توزيع text بطريقة خاصة - الاصيله - 07-12-15
(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