الفيجوال بيسك وشرح للاداه Timer

الفيجوال بيسك وشرح للاداه Timer

                                                         

الاداه Timer اهم ادوات الفيجوال بيسك وهى اداه التحكم فى الوقت

اهم خصائص الاداه Timer هى الخاصيه interval وهي توضع به قيم الوقت المراد عمل الاداه به

وفى هذه الاداه 1000 يعني ثانيه فذا اردنا كتابه ساعه ستكون 3600000 وهكذا

عمل برنامج لعرض التاريخ والوقت

أنشئ 2 label   واحد للتاريخ والاخر للوقت وامسح ما بداخلهم من الخاصيه caption

اسحب الاداه timer  وضعها على الفورم ولا تتحكم فى شكلها لانها لا تظهر اثناء عرض البرنامج

اضغط على الاداه timer   واكتب بداخلها هذا الكود

Label1.Caption = Time

Label2.Caption = Date

ليكون الكود النهائي هكذا

Private Sub Timer1_Timer()

Label1.Caption = Time

Label2.Caption = Date

End Sub

 

شرح الكود

Label1.caption  هو ما يعرض فى الاداه label1 وقد اخترته Time وهو الوقت

Label2.caption  هو ما يعرض فى الاداه  label2 وقد اخترته  Date وهو التاريخ

الان اضغط على الاداه Timer واذهب الى الخصائص واجعل قيمه interval  تساوي 100

الان اضغط على F5   وانظر للبرنامج 

لحفظ المشروع

1_لحفظ المشروع نهائيا بدون التعديل عليه من اعلى البرنامج اختر File

ثم Make project exe

2- لحفظ المشروع للتعديل عليه فيما بعد

اختر Fie  ثم  Save project as

عمل برنامج لغلق البرنامج الذي تشتغل عليه بعد وقت معين

افتح الفيجوال

ضع اداه timer   اضغط عليها مرتين

ضع داخلها هذا الكود

End

ليكون الكود النهائي

Private Sub Timer1_Timer()

End

End Sub

الكود سهل جدا وهو للخروج من البرنامج

غير الخاصيه للاداه ntervsl  الي 5000

مثلا ضعه 5000 اي 5 ثواني

اضغط F5 وجرب البرنامج