[أم عبد العزيز النجدية]

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

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

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

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

هذا هو الكود:

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

كود 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 


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

[أم عبد العزيز النجدية]

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

[pal_12]

أختي العزيزة

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