عمل وقت في البوربوينت

[الصقر الساطع]

السلام عليكم ورحمة الله وبركاته
أخواني الأفاضل هل من مساعدة... أريد عمل مؤقت لكل سؤال ( 30 ثانية لكل سؤال ) ببرمجية vbA.
ولكم جزيل الشكر

[الاستاذ خليل]

بالمرفق العمل
تحتاج الى
Label1
CommandButton1
CommandButton2



و هذا هو الكود


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



الاستاذ خليل

[الصقر الساطع]

وعليكم السلام أستاذ الفاضل خليل
أولا آسف على التأخر في الرد.
وثانيا أشكرك جزيل الشكر على الرد والمجهود المبذول وجزاك الله خير ووفقك في الدارين

[الصقر الساطع]

السلام عليكم ورحمة الله وبركاته
أستاذي الفاضل خليل إبراهيم , لو سمحت ممكن مساعدة في برنامج المسابقة والمشكلة في:
1- إيقاف Timer عند الخروج من العرض.
2- عندما ينتهي وقت السؤال أريده ينقلي للسؤال التالي في نفس الشريحة.

والعرض موجود في الرابط التالي لعدم إمكانية الرفع في المرفقات
http://www.mediafire.com/?94dcdxhdxvz2qv3

[الاستاذ خليل]

لم استطع حل كل المشاكل الان مشكلتك حلت لكن المشكلة انه لا يتم الضغط على الاجابات

لانه من خلال التوقيت يتم تجميد الباور بوينت كل 30 ثانية

و بالمرفق ما تم تعديله

لماذا لا تصنعها بالفجوال بيسك 6
هي نفس الاكواد تقريبا

و ستعمل بدون مشاكل
او بالسويش ماكس 3 و ممكن وضعها على الانترنت


على العموم سأحاول حل مشاكلها بطريقة أخرى ان شاء الله




الاستاذ خليل

[الصقر الساطع]

وعليكم السلام أستاذ الفاضل خليل إبراهيم

نعم سوف أغير البرنامج إلى السويش ماكس3 وطبعا تحت إشرافك
ولكن بعد ما انتهي من الدروس, والوقت ضيق لا أجد السعة في ذلك
وأشكرك على اهتمامك وجهدك المبذول, اسأل الله لك التوفيق

[الاستاذ خليل]

السلام عليكم
سأحاول وضع نفس تطبيقك بالسويش ماكس 3 انشاء الله امس بديت به بس ما اكملته

الاستاذ خليل

[جهيره سالم]

بالمرفق العمل
تحتاج الى
label1
commandbutton1
commandbutton2



و هذا هو الكود


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



الاستاذ خليل

السلام عليكم من وين تجيب هذي الاكواد ووشلون احط وقت ثاني لي ؟

[rohaem2]

موضوع جميل جدا وشكرا جزيلا لك وبارك الله فيك