الدرس 29 :الأداة Timer وأمثلة عنها

وتعمل على تنفيذ مجموعة من الأوامر بعد كل فترة زمنية تحدد من قبل المبرمج،

خصائصها:

à       Interval: وهي الفترة الزمنية التي يجب انتظارها حتى يتم تنفيذ الأوامر ضمن الأداة، وهي مقدرة بالميلي ثانية.

à        Enabled: تمكين أو عدم تمكين الأداة.

للأداة حدث واحد هو Timer ويقع كلما انقضت الفترة الزمنية المحددة بالخاصية Interval.



مثال1: لنضع على النافذة الأداة Label و الأداة Timer حيث Interval=1000 ولنكتب الشيفرة التالية في الحدث Timer:

Label1.Caption =Timer $

 

مثال2: ضع الأداة Timer على النافذة Form حيث أن Interval=1000 وعرف في General متحول color1 من نوع Integer بالشكل:

Dim color1 as integer

واكتب الشيفرة التالية في الحدث Timer:

Form1.BackColor = Qbcolor(color1)

color1=color1+1

IF  color1=15 then  color1=0

مثال3: إنهاء البرنامج بعد 60 ثانية:

1- نعرف N كمتحول عام على مستوى النافذة.

2- في الحدث Timer1_Timer نكتب:

N=N+1

IF N=60 then End

مثال4: (شاشة توقف)

1-              ابدأ بمشروع جديد.

2-              غير خصائص النافذة Form كما يلي:

القيمة

الخاصية

0-None

BorderStyle

أسود

BackColor

2- Maximized

WindowStat

3- في الحدث Form_Dblclick اكتب تعليمة إنهاء البرنامج End.

3-              ضع Timer على النافذة، واضبط خاصية Interval على القيمة 100.

4-              اكتب الشيفرة التالية في الحدث Timer1_Timer:

Dim w As Long

Dim h As Long

w = Form1.Width

h = Form1.Height

Circle (Rnd * w, Rnd * h), 200, QBColor(Rnd * 15)

 

5- نفذ البرنامج ولاحظ كيف سيتم رسم دوائر بألوان عشوائية على النافذة.

ملاحظات:

يستخدم التابع Circle لرسم دائرة.

يستخدم التابع Rnd لإعادة عدد عشوائي بين الصفر والواحد.

 

 

Share |

معلومات إضافية