المؤقتات - Timers

المؤقتات

Timers

من عناصر التحكم الغير مرئية فى وضع التشغيل Run time المؤقتات ان الهدف من استخدام المؤقتات هو تشغيل حدث فى فترة محدده من الوقت .

المؤقتات كنعصر تحكم لا تتمتع بالعديد من الخصائص وعموما اهم هذه الخصائص هى الخاصية Interval ومعناها الفاصل الزمنى قبل تشغيل حدث المؤقت

اما الحدث نفسه هو Tick للتوضيح قم بانشاء مشروع جديد كما فى الصورة ادناه .

الهدف من المشروع هو جعل الجمله تومض بلونين كل فترة زمنية لعمل ذلك قم بانشاء المشروع بحيث تتضمن الفورم ما يلى :

lable1 :وتكون لها الخاصية Text هى الجملة المراد كتابتها

timer1

تكون الخاصية Interval مساوية للقيمة 500

الخاصية Enable = false

timer2

تكون الخاصية Interval مساوية للقيمة 500

الخاصية Enable = false

قم بنسخ الاكواد التاليه :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'عند انتهاء الفترة الخاصة بهذا المؤقت سوف يتم تحويل لون النص كما يلى
Label1.ForeColor = Color.DarkCyan
'كود تفعيل المؤقت الثانى ليبدأ فى العد وابطال المؤقت الحالى كى لا يعيد العد مرة اخرى
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'عند انتهاء الفترة الخاصة بهذا المؤقت سوف يتم تحويل لون النص كما يلى
Label1.ForeColor = Color.DarkBlue
'كود تفعيل المؤقت الاول ليبدأ فى العد وابطال المؤقت الحالى كى لا يعيد العد مرة اخرى
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

لتحميل المشروع اضغط هنا
لفك ضغط الملفات - كلمة المرور vb2009