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

نسخة كاملة : استفسار في كود string
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
هذا السؤال 
   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 و الطول مايطلعه ابدا وين تكون المشكله  Huh Huh
طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم
(07-11-16, 03:35 PM)a_abdullah كتب : [ -> ]طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم

[attachment=12182]
اذا فهمتك صح

كود :
Dim TEX As String = TextBox1.Text
       Dim TE2 As String = TextBox2.Text
       MsgBox(TEX & " " & TE2)
(07-11-16, 04:32 PM)zinom كتب : [ -> ]
(07-11-16, 03:35 PM)a_abdullah كتب : [ -> ]طريقة حلك صح لكن مطلوب حلها بالstring ومطلوب في السؤال طول السترنق كامل بعد مانجمع بينهم

اخر سؤال واتأسف للازعاج , ليش مانستخدم ال join  Huh

(07-11-16, 04:38 PM)جميل علي كتب : [ -> ]اذا فهمتك صح

كود :
Dim TEX As String = TextBox1.Text
       Dim TE2 As String = TextBox2.Text
       MsgBox(TEX & " " & TE2)

تمام عليك يجمعهم بس ابي استخدم فانكشون الjoin وال length  Huh
شوف كذا

كود :
  Dim TEX As String = TextBox1.Text
       Dim TE2 As String = TextBox2.Text
       Dim RE As String = String.Join(" ", TEX, TE2)
       MsgBox(RE)

وهذي الافضل

[attachment=12193]
هذا تعديل للكود
كود :
   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)

أما باقي الكود ما شاء الله سليم وبخطوات منطقية،

للامام دائماً أختي الكريمة وفقك الله
(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)

أما باقي الكود ما شاء الله سليم وبخطوات منطقية،

للامام دائماً أختي الكريمة وفقك الله

ماشاءالله لا قوة إلا بالله
أخوي ممدوح دائماً معجب بإجاباتك
زادك الله من علمه
يعطيكم العافية جميعا ماقصرتوا  Sad Heart Heart

استاذ ممدوح نحن نتعلم قليل من ما لديكم 
لكن مازال عندي اريور في الكود عند ال join لم اكتشف سببه حتى الان  Sad

الصفحات : 1 2