+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه (/showthread.php?tid=11179)
سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - Fantastico - 19-01-15
dim no1, no2, no3 as string
no1 = "ali"
no2 = "ameer"
no3 = "ahmed"
dim i as integer
for i=1 to 3
textbox.text = no & i
next
اريد ان يضهر في صندوق النص قيمة المتغير (no1) ثم قيمة المتغير (no2) ثم الثالث
ولا اريد ان تضهر "no1" نفسها بل قيمتها النصية
ارجو المساعدة
RE: سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - سعود - 19-01-15
مافيه داعي لجملة For
كود :
Dim no1, no2, no3 As String
no1 = "ali"
no2 = "ameer"
no3 = "ahmed"
TextBox1.AppendText(no1 & vbNewLine & no2 & vbNewLine & no3)RE: سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - Fantastico - 19-01-15
شكرا لردك يا سعود ولكني اريد الفكرة وليس البرنامج بحد ذاته
اريد طريقة لضم النص "no" مع (i) وعندما افعل ذلك بالطريقة العادية سيضهر في صندوق النص "no1 no2 no3" في حين انا اريد قيمها كمتغيرات وليس كنصوص .
RE: سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - سعود - 19-01-15
اخي الكريم فاهم عليك والكود اللي كتبت لك يلبي المطلوب . باستثناء اضافة رقم وههذه بسيطة فقط اضف الاسماء الى قائمة من نوع
كود :
Listof(string)كود :
Dim lst As New List(Of String)
Dim no1, no2, no3 As String
no1 = "ali"
no2 = "ameer"
no3 = "ahmed"
lst.Add(no1)
lst.Add(no2)
lst.Add(no3)
TextBox1.Clear()
For a = 0 To lst.Count - 1
TextBox1.AppendText(lst.Item(a) & ": " & a & vbNewLine)
NextRE: سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - Fantastico - 19-01-15
نعم هذا يلبي المطلوب
RE: سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه - mohamdser - 19-01-15
معذرة على التدخل ولكن ربما تقصد طريقة المصفوفات
وهو نفس الكود تقريبا
PHP كود :
Dim no(3) As String
no(1) = "ali"
no(2) = "ameer"
no(3) = "ahmed"
TextBox1.Clear()
Dim i As Integer
For i = 1 To 3
TextBox1.Text &= no(i) & " "
Next
كهذا
PHP كود :
Dim no() As String