أسئلة عامة على الفصل الرابع الميقاتى حاسب آلى الثالث الاعدادى

الفصل الرابع الميقاتي Timer
مقدمة
عزيزي الطالب تقع الأحداث (Events) عندما يقوم مستعمل البرنامج بعمل ما ، مثل الضغط علي زر أو زر راديو . ولكن في بعض الأحيان تكون في احتياج لان تجعل بعض الأحداث تقع بعد فترة زمنية معينة وبدون تدخل مستعمل البرنامج ، وهذا تستطيع عمله باستعمال الكائن Timer والحدث Tick .
في حقيقة الأمر الكائن Timer هو ساعة توقيت غير مرئية تتيح لك التعامل مع ساعة النظام (System Clock) من داخل البرنامج التي تقوم بتنفيذها .
(1)استعمال الكائن timer
عندما يكون لديك timer على النموذج فانه ينشط علي فترات زمنية متساوية . وهذه الفترات تسمى (Intervals) وكنتيجة لهذا النشاط يقع الحدث Tick ويمكنك تنفيذ مجموعة من الأوامر .
ونستنتج من ذلك الأتي :

الكائن Timer
الحدث Tick ( يقع بعد فترة زمنية معينة بدون تدخل المستخدم )
الخاصية 1. Interval لتحديد الفترة الزمنية بالمللي ثانية
2. Enabled (التمكين) (تستخدم لكي ينشط الــ Timer بعد كل فترة زمنية ) ولابد أن تكون قيمتها True ولإيقاف الــ Timer عن العمل نجعلها False .

(2)التكوين Date Time

عند الإعلان عن متغير من النوع Date يكون لدينا تكوين يسمى Date Time هذا التكوين له خصائص ووسائل نذكرها في الجدولين الآتيين :
مثلا: Dim X as Date

لا يمكن تغيير الوقت والتاريخ لكائن Date بعملية جمع وطرح عادية


مثال
تصميم ساعة رقمية تعلن عن التاريخ والوقت الحالي كما بالشكل


كود ال timer
Me.lblCurrentTime.Text = Date.Now
كود button1

Close()

مثال
تصميم ساعة توقيت ذات فترة زمنية متغيرة باستخدام الكائن Timer

كود Timer1
Me.lblCurrentTime.Text = Date.Now
كود Button1
Close()

كود btnStart

Me.Timer2.Interval = Integer.Parse(Me.txtInterval.Text)
Me.Timer2.Enabled = True
كود btnStop
Me.Timer2.Enabled = False
Me.btnStart.Text = "Continue"
كود Timer2

Static x As Integer = 0
x = x + 1
Me.lblCount.Text = Format(x)
كود btnReset

Me.Timer2.Enabled = False
Me.lblCount.Text = "0"
Me.btnStart.Text = "Start"

تم استخدام Static بدلا من Dim حتى يتم الاحتفاظ بقيمتها طوال البرنامج اما Dim يتم اعطاءها قيمة ابتدائية عند كل استدعاء للبرنامج الفرعي