aliebrahimi1900
دوشنبه 15 تیر 1394, 20:08 عصر
سلام خدمت اساتید محترم
هیچکس تا حالا به این برخورده که باید اسم چند متغیرو مقایسه کنه
یه چند جایی این مشکل برام پیش اومده هر دفه با یه بامبول ردش کردم
مثلا با آرایه چند بعدی کارم حل میشه ولی مثلا توی پارامترهای یه تابع نمیشه از آرایه استفاده کرد یا جایی که بخوای دو متغیر از دو نوع رو متناظر کنی
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
Dim b1 As Integer
Dim b2 As Integer
Dim b3 As Integer
Dim b4 As Integer
For Each t In {a1, a2, a3, a4}
For Each l In {b1, b2, b3, b4}
'''''''to message box zir har dafe a ba motanazeresh to b biad masalan a1 + b1 or a2 + b2
MessageBox.Show(t + l.ToString)
Next
Next
اینجا اگه یک نوع متغیر داشتم از آرایه دو بعدی استفاده میکردم
مثل این
Dim a(1, 3) As String
For i = 0 To 3
MessageBox.Show(a(0, i) + a(1, i))
Next
حالا من میخوام مثلا بتونم با نام متغیر عین ولیو متغیر رفتار کنم مثلا با تابع Right بتونم عدد کنارشونو بخونم و مقایسه کنم
مثلا اکه ولیو داخل متغیر بود این کارو میکردم
Dim a1 As String = "a1"
Dim a2 As String = "a2"
Dim a3 As String = "a3"
Dim a4 As String = "a4"
Dim b1 As Integer = 1
Dim b2 As Integer = 2
Dim b3 As Integer = 3
Dim b4 As Integer = 4
For Each t In {a1, a2, a3, a4}
For Each l In {b1, b2, b3, b4}
If Int(Microsoft.VisualBasic.Right(t, 1)) = l Then
MessageBox.Show(t + l)
End If
Next
Next
ببخشید اگه سوالمو نتونستم واضح تر بگم
با تشکر
هیچکس تا حالا به این برخورده که باید اسم چند متغیرو مقایسه کنه
یه چند جایی این مشکل برام پیش اومده هر دفه با یه بامبول ردش کردم
مثلا با آرایه چند بعدی کارم حل میشه ولی مثلا توی پارامترهای یه تابع نمیشه از آرایه استفاده کرد یا جایی که بخوای دو متغیر از دو نوع رو متناظر کنی
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
Dim b1 As Integer
Dim b2 As Integer
Dim b3 As Integer
Dim b4 As Integer
For Each t In {a1, a2, a3, a4}
For Each l In {b1, b2, b3, b4}
'''''''to message box zir har dafe a ba motanazeresh to b biad masalan a1 + b1 or a2 + b2
MessageBox.Show(t + l.ToString)
Next
Next
اینجا اگه یک نوع متغیر داشتم از آرایه دو بعدی استفاده میکردم
مثل این
Dim a(1, 3) As String
For i = 0 To 3
MessageBox.Show(a(0, i) + a(1, i))
Next
حالا من میخوام مثلا بتونم با نام متغیر عین ولیو متغیر رفتار کنم مثلا با تابع Right بتونم عدد کنارشونو بخونم و مقایسه کنم
مثلا اکه ولیو داخل متغیر بود این کارو میکردم
Dim a1 As String = "a1"
Dim a2 As String = "a2"
Dim a3 As String = "a3"
Dim a4 As String = "a4"
Dim b1 As Integer = 1
Dim b2 As Integer = 2
Dim b3 As Integer = 3
Dim b4 As Integer = 4
For Each t In {a1, a2, a3, a4}
For Each l In {b1, b2, b3, b4}
If Int(Microsoft.VisualBasic.Right(t, 1)) = l Then
MessageBox.Show(t + l)
End If
Next
Next
ببخشید اگه سوالمو نتونستم واضح تر بگم
با تشکر