طريقة عمل ساعة بالفيجوال بيسك 6

[loulou ange]

http://www.dzbatna.com/images/icons/iconrote.gif ط·ط±ظٹظ‚ط© ط¹ظ…ظ„ ط³ط§ط¹ط© ط¨ط§ظ„ظپظٹط¬ظˆط§ظ„ ط¨ظٹط³ظƒ 6 (http://www.dzbatna.com/t479880/)




السلام عليكم

للمبتدئين في برمجة الفيجوال بيسك

حبيت اجيب لكم كود code حلو وجميل وطبعا هو للمبرمجين المبتدئين





اولا :- أنشىء الكائنات التالية في واجهة interface الـ form1

1- Label1

2- Timer1

3- Command1

ويكون الشكل العام للتوضيـــح

http://www.m5zn.com/uploads/719aac5595.JPG



ثانيا :- عدل خصائص الكائنات السابقه بما يلي:

1 - عدل خصائص Form1

caption = " e time


2 - عدل خصائص Label1

" امسح مابه واتركه فارغ " = caption


Alignment = 2-center

porderstyle = 1 - fixed singel



3 - عدل خصائص Timer1

Interval = " 1000



4- عدل خصائص Command1
caption = " Exit



قائمة الخصائص تكون على جانب البرنامج ويكون مظهرها كتالي

http://www.m5zn.com/uploads/63f2c7e4db.JPG

ملاحظة : حتى تعدل على خصائص الكائن يجب النقر على اسمه نقره واحدهـ ثم التوجهه إلى القائمه


الآن وصلنا آخر خطوة..اضغط على الكائن Timer1 مرتين بيطلع لنا

المكان اللي نكتب فيه الأكواد والشفرات المهم بيطلع لنا كذا:

Private Sub Timer1_Timer()

End Sub



بين السطرين سطر فاضي اكتب فيه:
Label1.Caption = Time


يطلع معاك الشكل النهائي للكود code


Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub


اضغط على زر Exit مرتين بيطلع لنا كذا:

Private Sub Command1_Click()

End Sub

اكتب في السطر الفاضي اللي بين السطرين:

End


يصير الكود code كذا

Private Sub Command1_Click()
End
End Sub


الآن بيصير الأكواد كلها كذا:


Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub


الآن شغل العرض عن طريق زر Start في شريط الأدوات

أو اختر الأمر Start من القائمة Run

أو من لوحة المفاتيح اضغط F5


اذا طلعت الساعة الحمد لله..اما اذا كان فيه علمٍ ثاني فتأكد من الخواص