[عبد الله]

السلام عليكم ورحمة الله وبركاته

إخواني بارك الله لي ولكم في هذه الأيام الطيبة ونفعنا الله وإياكم بكل خير ، وجعلنا من العالمين العاملين ورزقنا الأخلاص في القول والعمل.

أخواني عندي مسألة وهي أني عندي مجموعة من المتغيرات وهي كالتالي :

كود :

a1
a2
a3
a4
a5

واريد ان اكتب ما تحمله عن طريق حلقة دوران for كالتالي :

كود :

For N As Integer = 1 To 5
  MsgBox(a & N)
Next

هذه الطريقة لم تفلح معي فما الحل ....؟

[mr_mgm]

[COLOR="#000080"]السلام عليكم اخي

اليك طريقه لتنفيذ طلبك
سنعرف مصفوفه من نوع Stringفي التصريحات العامه

كود :

Dim a(5) As String

سنقوم بأسناد قيم للمصفوفه في Form1_Load

كود :

a(1) = "a1"
        a(2) = "a2"
        a(3) = "a3"
        a(4) = "a4"
        a(5) = "a5"

ضع هذا الكود في Button

كود :

For N As Integer = 1 To 5
            MsgBox(a(N)).ToString()
        Next

بالتوفيق[/COLOR]

[عبد الله]

السلام عليكم
سبحان الله ، لا أعلم لماذا لم يخطر ببالي المصفوفات علماً بأنها في الحل لمثل هذه الأمور المهمة.

بارك الله فيك أخينا مستر مجم ، ووفقك الله لكل خير .

[SaLoOoMX]

لها عده طرق مثل ماذكر الاخ وكلها نفس الحل

كود :

Dim n(4) As String

        n(0) = "N1"
        n(1) = "N2"
        n(2) = "N3"
        n(3) = "N4"
        n(4) = "N5"

        For Each m In n
            MsgBox(m)
        Next

[ahmed salam]

السلام عليكم ورحمة الله وبركاته
اخي الكريم الحل اسهل بكتير من ذالك

كود :

For N As Integer = 1 To 5
            MsgBox("a" & N)
        Next

لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته

[sooriaty03]

ahmed salam كتب :السلام عليكم ورحمة الله وبركاته
اخي الكريم الحل اسهل بكتير من ذالك

كود :

For N As Integer = 1 To 5
            MsgBox("a" & N)
        Next

بصراحة هذا الكود هو الأصح
لأن تعريف مصفوفة وحجز حيز لها في الذاكرة بدون داعي هذا يعتبر ضعف في البرنامج

هذا رأيي وشكراً جزيلا لكم

[sooriaty03]

ahmed salam كتب :السلام عليكم ورحمة الله وبركاته
اخي الكريم الحل اسهل بكتير من ذالك

كود :

For N As Integer = 1 To 5
            MsgBox("a" & N)
        Next

بصراحة هذا الكود هو الأصح
لأن تعريف مصفوفة وحجز حيز لها في الذاكرة بدون داعي هذا يعتبر ضعف في البرنامج

هذا رأيي وشكراً جزيلا لكم