تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود
#1
السلام عليكم
ارجو المساعدة في هذا الكود علما انني استخدم فجوال 2008
الموضوع في المرفق
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#2
هل المطلوب اضافة b ثم c ثم e هكذا ؟
الرد }}}
تم الشكر بواسطة: الاصيله
#3
(04-12-15, 02:46 PM)HASAN6.0 كتب : هل المطلوب اضافة b  ثم  c ثم e  هكذا ؟

شكرا لردك اخي الكريم
انا ارفقت المثال وعلى ضوءه احببت ان يكون العمل
انا استطيع ان انجز الكود عند استخدام اداة الشرط لكن الكود سيكون كبيرا عند انشاء مربعات على سبيل المثال
10 في 10 او 20 في 20
فارجوا اذا تقدر وضع للمثال الكود اكون شاكرة لك
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام ،،،
هذا هو الكود المطلوب .

كود :
 TextBox2.Text = TextBox1.Text.Substring(1, 3) & "a"
       TextBox3.Text = TextBox1.Text.Substring(1, 3) & "b"
       TextBox4.Text = TextBox1.Text.Substring(1, 3) & "c"
       TextBox5.Text = TextBox1.Text.Substring(1, 3) & "d"
       TextBox6.Text = TextBox1.Text.Substring(1, 3) & "e"

       TextBox7.Text = TextBox1.Text.Substring(1, 2) & "ba"
       TextBox8.Text = TextBox1.Text.Substring(1, 2) & "bb"
       TextBox9.Text = TextBox1.Text.Substring(1, 2) & "bc"
       TextBox10.Text = TextBox1.Text.Substring(1, 2) & "bd"
       TextBox11.Text = TextBox1.Text.Substring(1, 2) & "be"

       TextBox12.Text = TextBox1.Text.Substring(1, 2) & "ca"
       TextBox13.Text = TextBox1.Text.Substring(1, 2) & "cb"
       TextBox14.Text = TextBox1.Text.Substring(1, 2) & "cc"
       TextBox15.Text = TextBox1.Text.Substring(1, 2) & "cd"
       TextBox16.Text = TextBox1.Text.Substring(1, 2) & "ce"

       TextBox17.Text = TextBox1.Text.Substring(1, 2) & "da"
       TextBox18.Text = TextBox1.Text.Substring(1, 2) & "db"
       TextBox19.Text = TextBox1.Text.Substring(1, 2) & "dc"
       TextBox20.Text = TextBox1.Text.Substring(1, 2) & "dd"
       TextBox21.Text = TextBox1.Text.Substring(1, 2) & "de"

       TextBox22.Text = TextBox1.Text.Substring(1, 2) & "ea"
       TextBox23.Text = TextBox1.Text.Substring(1, 2) & "eb"
       TextBox24.Text = TextBox1.Text.Substring(1, 2) & "ec"
       TextBox25.Text = TextBox1.Text.Substring(1, 2) & "ed"
       TextBox26.Text = TextBox1.Text.Substring(1, 2) & "ee"
الرد }}}
تم الشكر بواسطة: الاصيله
#5
(04-12-15, 05:18 PM)حريف برمجة كتب : وعليكم السلام ،،،
هذا هو الكود المطلوب .

كود :
 TextBox2.Text = TextBox1.Text.Substring(1, 3) & "a"
       TextBox3.Text = TextBox1.Text.Substring(1, 3) & "b"
       TextBox4.Text = TextBox1.Text.Substring(1, 3) & "c"
       TextBox5.Text = TextBox1.Text.Substring(1, 3) & "d"
       TextBox6.Text = TextBox1.Text.Substring(1, 3) & "e"

       TextBox7.Text = TextBox1.Text.Substring(1, 2) & "ba"
       TextBox8.Text = TextBox1.Text.Substring(1, 2) & "bb"
       TextBox9.Text = TextBox1.Text.Substring(1, 2) & "bc"
       TextBox10.Text = TextBox1.Text.Substring(1, 2) & "bd"
       TextBox11.Text = TextBox1.Text.Substring(1, 2) & "be"

       TextBox12.Text = TextBox1.Text.Substring(1, 2) & "ca"
       TextBox13.Text = TextBox1.Text.Substring(1, 2) & "cb"
       TextBox14.Text = TextBox1.Text.Substring(1, 2) & "cc"
       TextBox15.Text = TextBox1.Text.Substring(1, 2) & "cd"
       TextBox16.Text = TextBox1.Text.Substring(1, 2) & "ce"

       TextBox17.Text = TextBox1.Text.Substring(1, 2) & "da"
       TextBox18.Text = TextBox1.Text.Substring(1, 2) & "db"
       TextBox19.Text = TextBox1.Text.Substring(1, 2) & "dc"
       TextBox20.Text = TextBox1.Text.Substring(1, 2) & "dd"
       TextBox21.Text = TextBox1.Text.Substring(1, 2) & "de"

       TextBox22.Text = TextBox1.Text.Substring(1, 2) & "ea"
       TextBox23.Text = TextBox1.Text.Substring(1, 2) & "eb"
       TextBox24.Text = TextBox1.Text.Substring(1, 2) & "ec"
       TextBox25.Text = TextBox1.Text.Substring(1, 2) & "ed"
       TextBox26.Text = TextBox1.Text.Substring(1, 2) & "ee"
شكرا لاخي الكريم حريف برمجه
الا نستطيع ان نقلص كتابة الكود ونجعل بدلا منه حلقات تكراريه متداخله......هل يمكن ذلك
قبل تحياتي لك
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#6
شوفي هاد الكود يمكن تطلعني منه بفكره
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For y = 0 To 4
            For x = 0 To 4
                Dim textBox As New TextBox
                textBox.Text = Chr(Asc("a") + y) & Chr(Asc("a") + x)
                textBox.Location = New Point(100 + ((textBox.Width + 5) * x), 100 + ((textBox.Height + 5) * y))
                Me.Controls.Add(textBox)
            Next
        Next
    End Sub
الرد }}}
تم الشكر بواسطة: HASAN6.0 , الاصيله
#7
(04-12-15, 06:34 PM)hamada558 كتب : شوفي هاد الكود يمكن تطلعني منه بفكره
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For y = 0 To 4
           For x = 0 To 4
               Dim textBox As New TextBox
               textBox.Text = Chr(Asc("a") + y) & Chr(Asc("a") + x)
               textBox.Location = New Point(100 + ((textBox.Width + 5) * x), 100 + ((textBox.Height + 5) * y))
               Me.Controls.Add(textBox)
           Next
       Next
   End Sub
شكرا لك هذا الكود جدا رائع لكنه يعرض حرفين في كل صندوق نص لو اردنا ان نجعله يعرض كالتالي المربع الاول aaaa والثاني aaab والثالث aaac الى المربع الخامس من المصفوفه ثم السطر الثاني يكون aaba,aabb,aabc,aabd,aabe ثم السطر الثالث يكون aaca,aacb,aacc,aacd,aace وهكذا الى السطر الخامس من المصفوفه كما في المثال المرفق كيف سيكون الكود مع خالص الشكر والتقدير
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#8
بسيطة
كود :
textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)

اقصد aa بدل aaa
الرد }}}
تم الشكر بواسطة: الاصيله
#9
(04-12-15, 07:21 PM)hamada558 كتب : بسيطة
كود :
textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)

اقصد aa بدل aaa
شكرا لك اخي العزيز قد افدتني بهذا الكود كثيرا
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#10
ههه

انا عارف العقبة يلي حتلاقيها بسبب الكود يلي مني، لكن قلت استنى تقوليها لما تصادفيها...
الرد }}}
تم الشكر بواسطة: الاصيله


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


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