sweety
12-10-2007, 08:56 PM
الدرس السادس من سلسلة دروس تعلم فيجوال بيسك دوت نت
For...Next
لغة الدرس: visual basic 2005
تُتيح For...Next تنفيذ مجموعة من الجمل البرمجية عدد محدد من المرات.
التركيب العام لـ For...Next
for variable=start to end
statment to be repeated
next
الكلمات for وto و next هي كلمات اساسية يجب كتابتها وكذلك علامة =
مثال:
MsgBox("مجالس برق الشمال")
الكود أعلاه يعرض رسالة على الشاشة
http://www.p-s-news.com/upload/up/1197304937435.jpg
فإذا اردت عرض الرسالة 4 مرات متتالية ستكتب
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
لكن بما اننا قلنا ان For...Next تستخدم لتنفيذ مجموعة من الجمل البرمجية عدد محدد من المرات.
فممكن ان نكتب
dim i as integer
for i =1 to 4
MsgBox("مجالس برق الشمال")
next
في البداية اعلنا عن المتغير i
for i =1 to 4
اي ان عدد مرات تنفيذ الكود MsgBox("مجالس برق الشمال") هي 4 مرات
مثال 2:
لو اردت طباعة الاعداد من 1 الى 10على teextbox
فسنكتب
Dim i As Integer
For i = 1 To 10
teextbox 1.teext= teextbox 1.teext& i & vbCrLf
Next
ملاحظةفي هذا المثال لا تنسى ان تغير خاصية "multi line" الخاصة بـ teextbox الى true كما ان كلمة teext تحوي حرف e واحد فقط)
عند تنفيذ الكود
التكرار الاول:
تكون فيمة i تساوي الواحد
teextbox يحوي على نفسه بالاضافة الى القيمة الموجودة في المتغير i
اي سيطبع في teextbox الرقم 1
VBCRLF للنزول الى سطر جديد
التكرار الثاني:تكون فيمة i تساوي 2
teextbox يحوي على نفسه بالاضافة الى القيمة الموجودة في المتغير i
اي سيضيف الرقم 2 تحت الرقم 1 ثم ينزل سطر جديد و بنفس الطريقة يستمر حتى التكرار العاشر
نتيجة تنفيذ هذا الكود
http://www.p-s-news.com/upload/up/11973048376769.jpg
وبكذا خلص الدرس
ان شاء الله يكون الشرح واضح
تجدون في المرفقات امثلة الدرس
اعداد اختكم سويتي
:)
For...Next
لغة الدرس: visual basic 2005
تُتيح For...Next تنفيذ مجموعة من الجمل البرمجية عدد محدد من المرات.
التركيب العام لـ For...Next
for variable=start to end
statment to be repeated
next
الكلمات for وto و next هي كلمات اساسية يجب كتابتها وكذلك علامة =
مثال:
MsgBox("مجالس برق الشمال")
الكود أعلاه يعرض رسالة على الشاشة
http://www.p-s-news.com/upload/up/1197304937435.jpg
فإذا اردت عرض الرسالة 4 مرات متتالية ستكتب
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
MsgBox("مجالس برق الشمال")
لكن بما اننا قلنا ان For...Next تستخدم لتنفيذ مجموعة من الجمل البرمجية عدد محدد من المرات.
فممكن ان نكتب
dim i as integer
for i =1 to 4
MsgBox("مجالس برق الشمال")
next
في البداية اعلنا عن المتغير i
for i =1 to 4
اي ان عدد مرات تنفيذ الكود MsgBox("مجالس برق الشمال") هي 4 مرات
مثال 2:
لو اردت طباعة الاعداد من 1 الى 10على teextbox
فسنكتب
Dim i As Integer
For i = 1 To 10
teextbox 1.teext= teextbox 1.teext& i & vbCrLf
Next
ملاحظةفي هذا المثال لا تنسى ان تغير خاصية "multi line" الخاصة بـ teextbox الى true كما ان كلمة teext تحوي حرف e واحد فقط)
عند تنفيذ الكود
التكرار الاول:
تكون فيمة i تساوي الواحد
teextbox يحوي على نفسه بالاضافة الى القيمة الموجودة في المتغير i
اي سيطبع في teextbox الرقم 1
VBCRLF للنزول الى سطر جديد
التكرار الثاني:تكون فيمة i تساوي 2
teextbox يحوي على نفسه بالاضافة الى القيمة الموجودة في المتغير i
اي سيضيف الرقم 2 تحت الرقم 1 ثم ينزل سطر جديد و بنفس الطريقة يستمر حتى التكرار العاشر
نتيجة تنفيذ هذا الكود
http://www.p-s-news.com/upload/up/11973048376769.jpg
وبكذا خلص الدرس
ان شاء الله يكون الشرح واضح
تجدون في المرفقات امثلة الدرس
اعداد اختكم سويتي
:)