الويب العربي - من يشرح لي معنى هذه الأكواد في لغة الفيجوال بيسك؟

الويب العربي (http://www.arabwebtalk.com/index.php)

- تبادل خبرات البرمجة (http://www.arabwebtalk.com/forumdisplay.php?f=57)

من يشرح لي معنى هذه الأكواد في لغة الفيجوال بيسك؟

جزاكم الله خيرا ..

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

فأتمنى ممن لديه علم أن يفسر لي معناها ..

ومع المرفقات البرنامج كامل ..

هذا هو الكود:

(عند الضغط على الزر بوتون الأول مرتين يظهر هذا الكود)

كود PHP:


		
			
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click
 
 
 
       Dim colors() As String = _
 
 
       {"Red", "Green", "Blue"} 'تعريف مصفوفة و إسناد قيم ابتدائية لعناصرها
 
        'إعادة تحجيم المصفوفة بزيادة عنصر 
 
 
   'إعطاء قيمة للعنصر الجديد black
 
 
 
        Dim i As Integer
 
 
 
        For i = 0 To UBound(colors) 
 
'إظهار قيم عناصر المصفوفة في مربع النص
 
            TextBox1.Text = TextBox1.Text & colors(i) _
 
            & vbTab
 
        Next
 
    End Sub

أما الزر الثاني:

كود PHP:


		
			
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
        Dim colors() As String = _
 
 
                {"Red", "Green", "Blue"}
 
 
 'تعريف مصفوفة و إسناد قيم ابتدائية لعناصرها
 
 
        ' إعادة تحجيم المصفوفة بزيادة عنصر بالحفاظ على قيم العناصر السابقة
 
        'إعطاء قيمة للعنصر الجديد black في الموقع 4 
 
 
        Dim i As Integer
 
 
        For i = 0 To UBound(colors)
 
 
 'إظهار قيم عناصر المصفوفة في مربع النص
 
            TextBox1.Text = TextBox1.Text & colors(i) _
 
            & vbTab
 
        Next
 
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

البرنامج مع المرفقات

الكود في تكست (مع المرفقات)

أختي العزيزة

1. Dim colors() As String = _
{"Red", "Green", "Blue"}

هنا تعرفين مصفوفة من نوع سترنج فيها 3 قيم
2. Dim i as integre
تعرفين متغير من نوع عدد صحيح

For i = 0 To UBound(colors)

لا أعلم اسمه بالعربي ولكن ما يعمل أنه ينفذ الأمر على كل العناصر الموجودة في المصفوفة المعرفة فوق
أي انه أن الأموامر بعد هذا السطر الى
Next
سيتم تنفيذها 3 مرات وذلك لأن المصفوفة فيها 3 عناصر
طبعا الدالة UBound هي التي تحسب عدد العناصر في المصفوفة

وكما يبدو لي فإن النتيجة هي تغيير لون النص في عند ضغطك على زر button_1
ولست متأكدا اذا كان هذا هو ما يفعله الكود في اللوب

للأسف الشديد أختى العزيزة أنا لا أعرف فيجوال بيسك ولم أبرمج بها من 10 سنين وقد برمجت وقتها كما اذكر برامج بسيطة جدا للتسلية مثل آلة حاسبة ووو

الدالة الثانية تبدوا لي من الوهلة الأولى نفس الدالة الأولى

وأتمنى لك التوفيق

جزاكم الله خيرا على مجهودكم ..

لكن ما معنى هذه الإشارة بجانب الإعلان (_)

Dim colors() As String = _a