منتدى جزيرة الرياضيات  
     

Left Nav التسجيل التعليمـــات قائمة الأعضاء التقويم البحث مشاركات اليوم اجعل كافة الأقسام مقروءة Right Nav

Left Container Right Container
 

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

منتدى التعليم الإلكتروني منتدى خاص لعمل دورات تعليمية في البرامج و الورش التعليمية خاصة و تتعلق بالتعليم الإلكتروني

إضافة رد
 
أدوات الموضوع تقييم الموضوع
  #1  
قديم 08-15-2010, 12:50 PM
الصقر الساطع الصقر الساطع غير متواجد حالياً
عضو
 
تاريخ التسجيل: Aug 2010
المشاركات: 4
عمل وقت في البوربوينت

السلام عليكم ورحمة الله وبركاته
أخواني الأفاضل هل من مساعدة... أريد عمل مؤقت لكل سؤال ( 30 ثانية لكل سؤال ) ببرمجية vbA.
ولكم جزيل الشكر
رد مع اقتباس
  #2  
قديم 08-16-2010, 02:37 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
السلام عليكم

بالمرفق العمل
تحتاج الى
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 
الاستاذ خليل
الملفات المرفقة
نوع الملف: ppt تايمر 30 ثانية.ppt‏ (38.5 كيلوبايت, المشاهدات 1714)
__________________
هذا من فضل ربي
رد مع اقتباس
  #3  
قديم 08-18-2010, 08:36 PM
الصقر الساطع الصقر الساطع غير متواجد حالياً
عضو
 
تاريخ التسجيل: Aug 2010
المشاركات: 4
وعليكم السلام أستاذ الفاضل خليل
أولا آسف على التأخر في الرد.
وثانيا أشكرك جزيل الشكر على الرد والمجهود المبذول وجزاك الله خير ووفقك في الدارين
رد مع اقتباس
  #4  
قديم 08-20-2010, 11:30 PM
الصقر الساطع الصقر الساطع غير متواجد حالياً
عضو
 
تاريخ التسجيل: Aug 2010
المشاركات: 4
برنامج المسابقات

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

والعرض موجود في الرابط التالي لعدم إمكانية الرفع في المرفقات
http://www.mediafire.com/?94dcdxhdxvz2qv3
رد مع اقتباس
  #5  
قديم 08-21-2010, 04:11 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
السلام عليكم

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

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

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

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

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


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




الاستاذ خليل
الملفات المرفقة
نوع الملف: rar المسابقة الثقافية.rar‏ (504.6 كيلوبايت, المشاهدات 1348)
__________________
هذا من فضل ربي
رد مع اقتباس
  #6  
قديم 08-21-2010, 05:14 PM
الصقر الساطع الصقر الساطع غير متواجد حالياً
عضو
 
تاريخ التسجيل: Aug 2010
المشاركات: 4
وعليكم السلام أستاذ الفاضل خليل إبراهيم

نعم سوف أغير البرنامج إلى السويش ماكس3 وطبعا تحت إشرافك
ولكن بعد ما انتهي من الدروس, والوقت ضيق لا أجد السعة في ذلك
وأشكرك على اهتمامك وجهدك المبذول, اسأل الله لك التوفيق
رد مع اقتباس
  #7  
قديم 08-22-2010, 02:05 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
السلام عليكم
سأحاول وضع نفس تطبيقك بالسويش ماكس 3 انشاء الله امس بديت به بس ما اكملته

الاستاذ خليل
__________________
هذا من فضل ربي
رد مع اقتباس
  #8  
قديم 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 
الاستاذ خليل
السلام عليكم من وين تجيب هذي الاكواد ووشلون احط وقت ثاني لي ؟
رد مع اقتباس
  #9  
قديم 11-29-2014, 10:15 PM
rohaem2 rohaem2 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Feb 2007
المشاركات: 21
موضوع جميل جدا وشكرا جزيلا لك وبارك الله فيك
رد مع اقتباس
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
تقييم هذا الموضوع
تقييم هذا الموضوع:

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 05:49 PM

Style provided by: MonksDiner - Entertainment Forum
Translated To Arabic By: Nile Stars
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir