منتديات التقني عالم التجارة
SPTechs منتديات
 اسم المستخدم حفظ بيانات الدخول 
كلمة المرور
  منتديات SPTechs   > Visual Basic
 thread

من يستطيع أن يفسر لي هذا الكود

 

  السبت 18 أغسطس 2018 م الموافق ‏07/‏ذو الحجة/‏1439 هـ الساعة 8:45

 


الرد على الموضوع عدد القراءات : 882   

معلومات :   البلد : إختــر دولة
  عدد المشاركات : 1
l4doos


[ الخميس 19 مايو 2011 ]
 
 
 

من يستطيع أن يفسر لي هذا الكود



بسم الله الرحمن الرحيم




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





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



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



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



هذا هو الكود:





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



[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]




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



[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




[/php]





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



اضافة رد على الموضوع




  منتديات SPTechs : مشاركات شبيهة .  لموضوع : من يستطيع أن يفسر لي هذا الكود

   .   الى محبي برنامج شاهد منزلك Google Earth اخيرا الشرح بالصور
   .   شاهد اي مكان من على سطح الكرة الارضية وانت جالس في بيتك
   .   احدث ترددات القنوات الفضائية
   .   صور مضحكة اتمنى ان تنال اعجابكم
   .   قصة جميلة جدا باللغة الانجليزية مع الترجمة لها
   .   الان أسرار حرامي سيارات سان اندرياس كامله
   .   بنت عمرها 15 سنه بس صايعه..قصه
   .   لارسال رسائل للموبايل مجاناً
   .   معاني اسماء البنات حسب علم النفس..
   .   هذا رابط تحميل برنامج google erth لمن يريده


  | حرب السادس من اكتوبر  |   برنامج فتح اكثر من ياهو على نفس الجهاز  |   اتصل مجانا من النت الى الموبايل 100%  |   اتصل مجانا من النت اللى الموبايل  |   رسائل الجوال من النت  |   اغاني كرتون من فلة  |   الجزائر من الفظاء  |  


اسم المستخدم                        كلمة المرور

حفظ معلومات الاشتراك

# من يستطيع أن يفسر لي هذا الكود

register
 مستخدم جديد