المستوى السابع
في هذا المستوى سوف نتعلم داله رائعة ولكن صعبه كثيرا واي خطاء فيها قد توئدي الى كارثه في حاسوبك الخاص الا وهي جملة التكرار for
وتفيد التكرار
جمل التكرار for/next
وهي تفيد عدد مرات الطباعه او طباعة الارقام و الكلمات بتكرار متزايد او متناقص او متساوي وتبدا بfor و متغير وتنتهي بnext المتغير
ادرج زر امر وضغط عليه حتى تظهر شاشة الكود واكتب:
For I = 1 to 10
Print I
Next I
For: انقيمة المتغير سوف تطبع من واحد الى عشر مرات
Next: ان في المره الاوله يطبع واحد وفي المره الثانيه يطبع اثنان........
انظر التالي:
الان سوف نأخذ داله جديده وهي الstep وتستخدم مع الfor وهي تفيد التزايد او النقصان:
For I = 1 to 10 step 2
Print I
Next I
في هذه الحاله فان قيمة المتغير تزداد في كل مره اثنان حيث انه سوف يطبع:
1 3 5 7 9
اما في حالة النقصان :
For I = 10 to 1 step -2
Print I
Next I
حيث انه يتوجب عليك تبديل مكان الواحد و العشره، في هذه الحاله فان قيمة المتغير تنقص في كل مره اثنان حيث انه سوف يطبع :
10 8 6 4 2
انظر الشكل التالي :
المستوى الثامن
في هذا المستوى سوف نتعلم كيفية تغير لون النص الموجود في اي كان وسوف نستخدم الكائن Label
Label
اولا يتوجب عليك فتح مشروع ومن ثم ادراج زر امر و label :
ومن ثم اضغط على زر الامر حتى تظهر شاشة الكود وكتب:
Label1.fontcolor = vbred
Font color: وهي عباره عن خاصيه موجوده في كل كائن تفيد تغير لون الخط
Vbred: وهي عباره عن داله تفيد على ان لون اخط احمر اما اذا اردت ان تريد ان يكون لون الخط ليس احمر اكتب (لون الخط) Vb الذي تريد
ملاحظه: ان هذه الخصيه موجوده في جميع الكائنات حتى صندوق النص ولكن لا توجد في زر الامر .
المستوى التاسع
في هذا المستوى سوف نتعلم كيف ندرج صوره على البرنامج عن طريق الكائن picture box
Picture
اولا يتوجب عليك انشاء مشروع جديد وادراج اداه الpicture box
ومن ثم اضغط على الكائن مره واحده وذهب الى صندوق الخصائص واختر كما في الصوره
ومن ثم سوف يظهر صندوق حوار اختر الصوره منه ومن ثم تكون قد ادرجت صوره :
وعن طريق المربعات الصغيره تستطيع تكبير وتصغير الصوره المدرجه.
المستوى العاشر
في هذا المستوى سوف نتعلم كيف نستعمل الوقت لعمل شيئ معين مثل ان نقفل البرنامج بعد 5 ثواني
Timer
ان هذه الاده تستخدم الى تحديد الوقت حسب ارادتك مثال:
افتح مشروع جديد ومن ثم ادرج زر امر و اداة الوقت
Timer
ثم اذهب الى صندوق الخصائص الخاص بtimer ومن ثم غير قيمة الinterval الى 500
ومن ثمه اذهب الى زر الامر واضغط عليه حتى تظهر شاشة الكود وكتب :
Form1.caption = "ehab"
ومن ثم اضغط على المؤقت مرتين حتى تظهر نا فذة الكود وكتب:
End
وهكذا يتم انهاء عمل البرنامج بعد 5 ثوان من تشغيله
Interval: وهي عباره عن خاصيه خاصه في الtimer تقوم بتحديد الوقت الازم على عمل اي شيئ تريده ولكن اذا كانت قيمته=0 عندها لن يفيد وجود الtimer في شيئ
__________________