+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار في كود string (/showthread.php?tid=17943)
الصفحات:
1
2
استفسار في كود string - a_abdullah - 07-11-16
هذا السؤال
Write a program which inputs two strings from the user, and which joins them together. Show the resulting string and its length in labels.
وهذا الكود
كود :
Private Sub joinsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles joinsButton1.Click
Dim a(1) As String
Dim b, c As String
a(0) = string1TextBox1.Text
a(1) = string2TextBox2.Text
b = b.Join(a)
resultLabel3.Text = b
c = b.Length
lingthLabel1.Text = c
End Subفي البداية يدخل المستخدم 2 string والبرنامج راح يجمعهم مع بعض مشكلتي في البرنامج يطلع لي ال a خطأ في الjoin و الطول مايطلعه ابدا وين تكون المشكله 
RE: استفسار في كود string - zinom - 07-11-16
[attachment=12181]
RE: استفسار في كود string - a_abdullah - 07-11-16
طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم
RE: استفسار في كود string - zinom - 07-11-16
(07-11-16, 03:35 PM)a_abdullah كتب : طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم
[attachment=12182]
RE: استفسار في كود string - جميل علي - 07-11-16
اذا فهمتك صح
كود :
Dim TEX As String = TextBox1.Text
Dim TE2 As String = TextBox2.Text
MsgBox(TEX & " " & TE2)RE: استفسار في كود string - a_abdullah - 07-11-16
(07-11-16, 04:32 PM)zinom كتب :(07-11-16, 03:35 PM)a_abdullah كتب : طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم
اخر سؤال واتأسف للازعاج , ليش مانستخدم ال join
(07-11-16, 04:38 PM)جميل علي كتب : اذا فهمتك صح
كود :
Dim TEX As String = TextBox1.Text
Dim TE2 As String = TextBox2.Text
MsgBox(TEX & " " & TE2)
تمام عليك يجمعهم بس ابي استخدم فانكشون الjoin وال length
RE: استفسار في كود string - جميل علي - 07-11-16
شوف كذا
كود :
Dim TEX As String = TextBox1.Text
Dim TE2 As String = TextBox2.Text
Dim RE As String = String.Join(" ", TEX, TE2)
MsgBox(RE)وهذي الافضل
[attachment=12193]
RE: استفسار في كود string - ممدوح - 07-11-16
هذا تعديل للكود
كود :
Private Sub joinsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles joinsButton1.Click
Dim a(1) As String
Dim b, c As String
a(0) = string1TextBox1.Text
a(1) = string2TextBox2.Text
b = String.Join(" ", a)
resultLabel3.Text = b
c = b.Length
lingthLabel1.Text = c
End Subالتعديل تم فقط في السطر التالي
كود :
b = b.Join(a)ليصبح
كود :
b = String.Join(" ", a)أما باقي الكود ما شاء الله سليم وبخطوات منطقية،
للامام دائماً أختي الكريمة وفقك الله
RE: استفسار في كود string - جميل علي - 07-11-16
(07-11-16, 06:21 PM)ممدوح كتب : هذا تعديل للكود
كود :
Private Sub joinsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles joinsButton1.Click
Dim a(1) As String
Dim b, c As String
a(0) = string1TextBox1.Text
a(1) = string2TextBox2.Text
b = String.Join(" ", a)
resultLabel3.Text = b
c = b.Length
lingthLabel1.Text = c
End Sub
التعديل تم فقط في السطر التالي
كود :
b = b.Join(a)
ليصبح
كود :
b = String.Join(" ", a)
أما باقي الكود ما شاء الله سليم وبخطوات منطقية،
للامام دائماً أختي الكريمة وفقك الله
ماشاءالله لا قوة إلا بالله
أخوي ممدوح دائماً معجب بإجاباتك
زادك الله من علمه
RE: استفسار في كود string - a_abdullah - 07-11-16
يعطيكم العافية جميعا ماقصرتوا
استاذ ممدوح نحن نتعلم قليل من ما لديكم
لكن مازال عندي اريور في الكود عند ال join لم اكتشف سببه حتى الان