06-28-2014, 11:46 PM
|
عضو
|
|
تاريخ التسجيل: Jun 2014
المشاركات: 1
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
بالمرفق العمل
تحتاج الى
label1
commandbutton1
commandbutton2
و هذا هو الكود
كود PHP:
dim starttime as boolean
private sub commandbutton1_click()
'label1
label1.caption = 0
starttime = true
dim start as long
for i = 1 to 30
start = timer
do while timer < start + 1 'a 3 second delay (change to any numer you want)
doevents ' yield to other processes.
Loop
if starttime = true then
label1.caption = val(label1.caption) + 1
else
exit sub
end if
next i
label1.caption = "انتهى الوقت"
end sub
private sub commandbutton2_click()
starttime = false
end sub
الاستاذ خليل
|
السلام عليكم من وين تجيب هذي الاكواد ووشلون احط وقت ثاني لي ؟
|