المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
04-12-15, 02:24 PM
(آخر تعديل لهذه المشاركة : 04-12-15, 02:27 PM {2} بواسطة الاصيله.)
السلام عليكم
ارجو المساعدة في هذا الكود علما انني استخدم فجوال 2008
الموضوع في المرفق
اختكم الاصيله
المشاركات : 446
المواضيع 14
الإنتساب : Nov 2013
السمعة :
68
الشكر: 6336
تم شكره 7029 مرات في 335 مشاركات
هل المطلوب اضافة b ثم c ثم e هكذا ؟
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
(04-12-15, 02:46 PM)HASAN6.0 كتب : هل المطلوب اضافة b ثم c ثم e هكذا ؟
شكرا لردك اخي الكريم
انا ارفقت المثال وعلى ضوءه احببت ان يكون العمل
انا استطيع ان انجز الكود عند استخدام اداة الشرط لكن الكود سيكون كبيرا عند انشاء مربعات على سبيل المثال
10 في 10 او 20 في 20
فارجوا اذا تقدر وضع للمثال الكود اكون شاكرة لك
اختكم الاصيله
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
04-12-15, 05:18 PM
(آخر تعديل لهذه المشاركة : 04-12-15, 05:18 PM {2} بواسطة حريف برمجة.)
وعليكم السلام ،،،
هذا هو الكود المطلوب .
كود :
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"
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
(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"
شكرا لاخي الكريم حريف برمجه
الا نستطيع ان نقلص كتابة الكود ونجعل بدلا منه حلقات تكراريه متداخله......هل يمكن ذلك
قبل تحياتي لك
اختكم الاصيله
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
شوفي هاد الكود يمكن تطلعني منه بفكره
كود :
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
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
(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 وهكذا الى السطر الخامس من المصفوفه كما في المثال المرفق كيف سيكون الكود مع خالص الشكر والتقدير
اختكم الاصيله
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
04-12-15, 07:21 PM
(آخر تعديل لهذه المشاركة : 04-12-15, 07:23 PM {2} بواسطة hamada558.)
بسيطة
كود :
textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)
اقصد aa بدل aaa
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
(04-12-15, 07:21 PM)hamada558 كتب : بسيطة
كود :
textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)
اقصد aa بدل aaa
شكرا لك اخي العزيز قد افدتني بهذا الكود كثيرا
اختكم الاصيله
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
ههه
انا عارف العقبة يلي حتلاقيها بسبب الكود يلي مني، لكن قلت استنى تقوليها لما تصادفيها...
|