الكــــــــود المصدرى لـ stopwatch رائعة

[khaabas]

السلام عليكم ورحمة الله وبركاته

http://www.wenamoyo.com/basmalah/6.gif

قم بتعيين أسماء الكائنات المضافة

#1 Label:
Name:
Caption: 0.00


#1 Command Button:
Name: Command1
Caption: START

#2 Command Button:
Name: Command2
Caption: STOP

#3 Command Button:
Name: Command3
Caption: RESET

#4 Command Button:
Name: Command4
Caption: QUIT

1 Timer with:
Name: Timer1
Caption: (None)
Interval: 1

أكتب الاكواد التالية كل بحسب وظيفته

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Label2.Caption = "0.00"
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Format(Val(Label2.Caption) + 0.01, _
"fixed")
End Sub

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

تحياتى

[abohmam]

بارك الله فيك أخى الفاضل

شرح بسيط ورائع

[أبو علي المغربي]

السلام عليكم ورحمة الله وبركاته

و الله كان نفسي أطبق المثال و أرفق الملف لك لكني لسه مسطبتش ال Visual Basic

لكن أنا سجلت درسك و إن شاء الله سأجرب

لا تحرمنا من مشاركاتك القيمة أيها الأخ الطيب الفاضل

[orderhack]

مشكوررررررررررررررررررررر ررررررررررررررررررررررررر ررررررررررررررررررررررررر رررررررررررررررررررررر

[نيترو]

الف شكر والله انا استفدتمن هذا المنتى والله كتير وجزاك اللوخيرا

[رامان]

موفق بإذن الله ... لك مني أجمل تحية .

[eika_153]

تمام جدااااااااااااااااااااااا ااا مشكوووووووووووووووووووووو ر ليك

[amr soft]

جزاك الله خيرا

[أبو الريم]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبد العزيز البسكري]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .