منتدى جزيرة الرياضيات - عمل وقت في البوربوينت

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)

- منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)

- - عمل وقت في البوربوينت (http://www.hesab.net/vb/showthread.php?t=7305)

الصقر الساطع

08-15-2010 12:50 PM

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

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

الاستاذ خليل

08-16-2010 02:37 AM

السلام عليكم

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

الاستاذ خليل

الصقر الساطع

08-18-2010 08:36 PM

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

الصقر الساطع

08-20-2010 11:30 PM

برنامج المسابقات

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

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

الاستاذ خليل

08-21-2010 04:11 PM

السلام عليكم

1 مرفق

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

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

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

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

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

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

الاستاذ خليل

الصقر الساطع

08-21-2010 05:14 PM

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

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

الاستاذ خليل

08-22-2010 02:05 PM

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

الاستاذ خليل

جهيره سالم

06-28-2014 11:46 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل (المشاركة 32060)

بالمرفق العمل
تحتاج الى
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

الاستاذ خليل

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

rohaem2

11-29-2014 10:15 PM

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

الساعة الآن 10:32 PM