منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
ارجو المساعدة في هذا الكود علما انني استخدم فجوال 2008
الموضوع في المرفق

هل المطلوب اضافة b ثم c ثم e هكذا ؟

(04-12-15, 02:46 PM)HASAN6.0 كتب : [ -> ]هل المطلوب اضافة b  ثم  c ثم e  هكذا ؟

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

وعليكم السلام ،،،
هذا هو الكود المطلوب .

(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"

شكرا لاخي الكريم حريف برمجه
الا نستطيع ان نقلص كتابة الكود ونجعل بدلا منه حلقات تكراريه متداخله......هل يمكن ذلك
قبل تحياتي لك

شوفي هاد الكود يمكن تطلعني منه بفكره

(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 وهكذا الى السطر الخامس من المصفوفه كما في المثال المرفق كيف سيكون الكود مع خالص الشكر والتقدير

بسيطة

---

اقصد aa بدل aaa

(04-12-15, 07:21 PM)hamada558 كتب : [ -> ]بسيطة

كود :

textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)

---

اقصد aa بدل aaa

شكرا لك اخي العزيز قد افدتني بهذا الكود كثيرا

ههه

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