تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود توزيع text بطريقة خاصة
#1
السلام عليكم


الملفات المرفقة
.zip   طلب كود.zip (الحجم : 1.85 ك ب / التحميلات : 34)
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 19)
الرد }}}}
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 3 106 17-09-17, 06:49 PM
آخر رد: Microformt
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 137 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 121 22-08-17, 10:24 PM
آخر رد: guerciftech
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 83 27-07-17, 12:17 PM
آخر رد: shadi_alfares
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 166 28-05-17, 11:58 PM
آخر رد: Microformt
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 182 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  سؤال - توزيع حروف الكلمة في التكستات بالترتيب الأبجدي abusofy 8 435 09-12-16, 11:03 AM
آخر رد: abusofy
Lightbulb سؤال - توزيع حروف الكلمة في تكستات abusofy 3 361 07-12-16, 10:25 PM
آخر رد: abusofy
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 1,173 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 538 07-11-16, 06:16 AM
آخر رد: AL_BRNS

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


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