عرض مشاركة مفردة
 
  #1  
قديم 19-05-2011, 01:49 PM
أم عبد العزيز النجدية أم عبد العزيز النجدية غير متصل
عضو
 
تاريخ التسجيل: Sep 2009
مشاركة: 58
مستوى تقييم العضوية: 15
أم عبد العزيز النجدية is on a distinguished road
الافتراضي من يشرح لي معنى هذه الأكواد في لغة الفيجوال بيسك؟

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

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

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

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

هذا هو الكود:



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

كود PHP:
Public Class Form2
    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.ClickButton3.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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles MyBase.Load
    End Sub 

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





الملفات المرفقة
نوع الملف: rar Using Array Unit4(4-10).rar‏ (الحجم 7.8 ك/بايت , عدد مرات التنزيل : 84)

آخر تعديل بواسطة أم عبد العزيز النجدية ، 19-05-2011 الساعة 02:02 PM.