تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود توزيع text بطريقة خاصة
#1
السلام عليكم
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#2
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#3
أهلا بك أختي الكريمة , أرجو المعذرة على التأخر بالرد , يرجى لو توضحي أكثر المطلوب , وإن شاء الله خير .
الرد }}}
تم الشكر بواسطة: الاصيله
#4
السلام عليكم شكرا لك اخي الكريم
كانت فكرة البرنامج ان يكون توزيع الحروف كالتالي
ان يكون الصف الاول كالتالي
aaaa ,aaba,aaca,aada,aaea
والسطر الثاني
aaba,aabb,aadc,aabd,aabe
وهكذا الا السطر الخامس,وياحبذا لو عملنا حلقة تكراريه بإنشاء مصفوفة لذلك
وبدون استخدام الاسكي
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#5
أهلا أختي الكريمه ، على حسب فهمي الأحرف المستخدمه هي 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 بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .
الرد }}}
تم الشكر بواسطة: الاصيله
#6
شكرا لك استاذنا الكريم
لو اردنا ان يكون الظهور في مصفوفة بدل msgbox كيف سيكون ذلك
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#7
أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم 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 1 To Len(Chars)
 
   For H 1 To Len(Chars)
 
       ResultLines(I) = ResultLines(I) & "aa" Mid(CharsI1) & Mid(CharsH1) & ","
 
   Next
    ResultLines
(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
 
   MsgBox ResultLines(I)
Next 


الملفات المرفقة
.rar   Chars.rar (الحجم : 1.6 ك ب / التحميلات : 46)
الرد }}}
#8
(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 1 To Len(Chars)
 
   For H 1 To Len(Chars)
 
       ResultLines(I) = ResultLines(I) & "aa" Mid(CharsI1) & Mid(CharsH1) & ","
 
   Next
    ResultLines
(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
 
   MsgBox ResultLines(I)
Next 
شكرا لك استاذنا الغالي
اختكم الاصيله
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
Question [vb6.0] كيف امنع حفظ قناع Text وهوا بشكل التالي ؟؟ Microformt 1 502 30-09-22, 11:53 PM
آخر رد: Taha Okla
  اريد طريقة لتنفيذ امر داخل TEXT بعد ضغط مفتاح ENTER محمد حمد محمد سليمان 2 1,010 25-01-22, 01:00 AM
آخر رد: محمد حمد محمد سليمان
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 1,119 02-10-21, 02:39 PM
آخر رد: Microformt
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 1,352 08-06-21, 04:42 PM
آخر رد: Microformt
Question [vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ Microformt 2 1,206 21-03-21, 10:39 PM
آخر رد: Microformt
  [vb6.0] كيف اشترط على المستخدم 14 رقماً في text ؟ Microformt 1 992 23-10-20, 01:18 AM
آخر رد: AL_BRNS
Question [vb6.0] هل يمكن كود يضلل النص داخل Text ؟؟ Microformt 1 1,359 17-07-20, 05:51 PM
آخر رد: Mohamad Anan
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 1,650 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor

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


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