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

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

Left Container Right Container
 

عدد الضغطات : 3,063
» منتدى جزيرة الرياضيات » الجزيرة التعليمية والفنية » منتدى التعليم الإلكتروني » الدرس الثالث عشر تشغيل الاصوات

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

إضافة رد
 
أدوات الموضوع تقييم الموضوع
  #1  
قديم 07-27-2007, 09:37 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
الدرس الثالث عشر تشغيل الاصوات

الدرس الثالث عشر تشغيل الاصوات
تم الشرح بطريقتين تستعملان الاستدعاء بواسطة الدوال الموجودة بالحاسب الالي

شرح الطريقة الاولى بالصوت و الصورة

الطريقة الثانية بالصوت و الصورة
يرجى ملاحظة:
1- حفظ الملف في مجلد.
2- ادراج الاصوات في نفس المجلدالسابق.
3- التأكد ان الصوت من النوع wave .

استخدام الكود التالي كما هو و تغيير فقط اسم الملف الصوتى.

كود الشرح الاول :
كود:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub CommandButton1_Click()
PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1

End Sub

كود الطريقة الثانية
هذا يوضع في المديول Module1
كود:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Option Explicit

Public Sub PSound(FName As String, Optional gAsync As Boolean = True, Optional gLoop As Boolean = False)
Dim Flag&

If FName = "" Then
sndPlaySound 0&, 0
Else
If gAsync = True Then Flag = Flag Or 1
If gLoop = True Then Flag = Flag Or 8
sndPlaySound FName, Flag
End If

End Sub
و هذا خاص بالازرار
كود:
Private Sub CommandButton1_Click()
PSound Application.ActivePresentation.Path & "\no.wav"

End Sub

Private Sub CommandButton2_Click()
PSound ""

End Sub

Private Sub CommandButton3_Click()
PSound Application.ActivePresentation.Path & "\no.wav", True, True

End Sub

ننتظر تطبيقاتكم
__________________
هذا من فضل ربي
رد مع اقتباس
  #2  
قديم 07-28-2007, 03:15 AM
refathafez refathafez غير متواجد حالياً
عضو

 
تاريخ التسجيل: Mar 2007
المشاركات: 133
شكرو تقدير

بسم الله الرحمن الرحيم رجاء كيف يمكن ان نجعل كل من ( a, b . e .d ) أرقام في حل المعادلة
سوف ننجز الدرس في اقرب وقت ان شاء الله واليك الدرس السابق وآسف للتأخير
و السلام عليكم ورحمه الله وبركاته
الملفات المرفقة
نوع الملف: rar الدرس الثاني عشر.rar‏ (28.5 كيلوبايت, المشاهدات 416)

التعديل الأخير تم بواسطة refathafez ; 07-28-2007 الساعة 03:22 AM.
رد مع اقتباس
  #3  
قديم 07-28-2007, 04:33 AM
zine pef zine pef غير متواجد حالياً
عضو

 
تاريخ التسجيل: Apr 2007
المشاركات: 152
استاذي الفاضل لك مني كل الشكر و الأحترام
هذا واجب درس اليوم اي الدرس 13 ...
الملفات المرفقة
نوع الملف: rar ملف الصوت.rar‏ (78.0 كيلوبايت, المشاهدات 383)
رد مع اقتباس
  #4  
قديم 07-28-2007, 05:08 AM
abdalohed abdalohed غير متواجد حالياً
عضو
 
تاريخ التسجيل: Jul 2007
المشاركات: 1
رسالة تحية وشكر

بعد التحية والسلام
الدروس ما شاء الله اكتر من جيد
جزاك الله عنا كل خير
رد مع اقتباس
  #5  
قديم 07-28-2007, 04:39 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


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

refathafez شكرا على التطبيق و هذه المرة اجعله في نفس الدرس كي يستفيدمنه الاعضاء
سؤالك كيف يمكن ان نجعل كل من ( a, b . e .d ) أرقام في حل المعادلة
عطنا سؤال عملي هل تريد 4 متغيرات اعمل النموذج و سنساعدك بالكود بعون الله

احيانا البرامج تتم بعملية عكسية مثلا اذا كنت تريد او تجعل الطالب يحل معادلة اولا نقوم فاولا تعطي نقاط عشوائية اقصد الحل و ثم تعطيه السؤال .

zine pef عل رائع

abdalohed
نتمنى ان نرا تطبيقاتك و شكرا لك

الاستاذ خليل
__________________
هذا من فضل ربي
رد مع اقتباس
  #6  
قديم 07-28-2007, 05:08 PM
Amel2005 Amel2005 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Jun 2007
المشاركات: 36
السلام عليكم ورحمة الله وبركاته
جزيل الشكر للدروس التى نحتاجها بالفعل
والمقدمة لنا من أستاذ كريم يجود بعلمه بكل أريحية وطيب نفس .
طيب الله خاطرك وجزاك عنا كل خير .
اللهم آمين .

تطبيقى
http://la.joreyat.org/download.php?i...3a4387a904e5b8

أتمنى أن أكون قد وفقت .
وفقك الله أستاذنا الفاضل .
تحياتى.
رد مع اقتباس
  #7  
قديم 07-28-2007, 07:27 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
لازال البرنامج يحتاج لتعديل به بعض العيوب شكرا تم التطبيق بنجاح و شكرا
__________________
هذا من فضل ربي
رد مع اقتباس
  #8  
قديم 07-29-2007, 02:43 PM
refathafez refathafez غير متواجد حالياً
عضو

 
تاريخ التسجيل: Mar 2007
المشاركات: 133
الاستاذ الفاضل كنت اتمني ان اعمل موضوع جديد لكن بدأت امتحانات الدور الثاني
شغلتني عن عمل الموضوع
كما علمتنا ارجو من الاخوه الاحباء كل بأسمة دمج الصوت والموضوع في فلدر واحد
وجزاك الله كل خير
بعد اذن استاذي
اشكر الاخت امال ( من سيربح المليون جميل جدا وعمل رائع وشكر للأخ فادي
وباقي اخواتي الاعضاء
اخوكم رفعت حافظ
الملفات المرفقة
نوع الملف: rar الموضوع.rar‏ (46.5 كيلوبايت, المشاهدات 311)
نوع الملف: rar p.rar‏ (40.3 كيلوبايت, المشاهدات 292)
نوع الملف: rar x .rar‏ (29.3 كيلوبايت, المشاهدات 293)
رد مع اقتباس
  #9  
قديم 07-29-2007, 08:45 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
شكرا التطبيق ممتاز refathafez
__________________
هذا من فضل ربي
رد مع اقتباس
  #10  
قديم 07-29-2007, 09:02 PM
مرفوعة الراس مرفوعة الراس غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jun 2007
المشاركات: 133
"

هالاموور انا ما افهم فيها واايد

بس يعطيك العافيه استاذ خليل على هالمجهوود الجبار

وماتقصر الصراحه



"
__________________
رد مع اقتباس
  #11  
قديم 07-30-2007, 02:21 AM
refathafez refathafez غير متواجد حالياً
عضو

 
تاريخ التسجيل: Mar 2007
المشاركات: 133
الاستاذ الفاضل
ارجو ان تري هذا العمل وترد علي
اذا ممكن الان
رفعت حافظ
وشكرا لأخواتي الاعزاء اعضاء المنتدي
الملفات المرفقة
نوع الملف: rar ماهو.rar‏ (49.4 كيلوبايت, المشاهدات 293)
رد مع اقتباس
  #12  
قديم 07-30-2007, 03:07 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
الخطا الذي سببه هذا هو الكود

كود:
If Val(TextBox1.Text) = "الرابع" Then
trueq = trueq + 1
Else
Falseq = Falseq + 1
End If
If Val(TextBox2.Text) = "الثالث" Then
trueq = trueq + 1
Else
Falseq = Falseq + 1
End If
If Val(TextBox3.Text) = "الاول" Then
trueq = trueq + 1
Else
Falseq = Falseq + 1
End If
If Val(TextBox4.Text) = "الثاني" Then
trueq = trueq + 1
Else
Falseq = Falseq + 1
 End If
سبب الخطأ انك تحول قيمة ما بداخل المربعات النصية لارقام حيث انك استعملت val
و هي تقوم بتحويل المربعات لارقام لكنت جعلت قيمتها نص فاكيد ضهر خطا
ايضا باول الكود جعلته لا يقبل الا الارقام بانك استعملت هذا الكود
كود:
If IsNumeric(TextBox1.Text) = False Then
MsgBox "القيمة المكتوبة صحيحة", vbOKOnly, "انتبه"
TextBox1.Text = " "
Exit Sub
End If
 
' CommandButton1.Enabled =  False
 trueq = 0
 Falseq = 0
If IsNumeric(TextBox2.Text) = False Then
MsgBox "القيمة المكتوبة غير صحيحة", vbOKOnly, "انتبه"
TextBox2.Text = ""
Exit Sub
End If
 
' CommandButton1.Enabled =  False
 trueq = 0
 Falseq = 0
If IsNumeric(TextBox3.Text) = False Then
MsgBox "القيمة المكتوبة غير صحيحة", vbOKOnly, "انتبه"
TextBox3.Text = ""
Exit Sub
End If
 
' CommandButton1.Enabled =  False
 trueq = 0
 Falseq = 0
If IsNumeric(TextBox4.Text) = False Then
MsgBox "القيمة المكتوبة  صحيحة", vbOKOnly, "انتبه"
TextBox4.Text = ""
Exit Sub
End If
و انت كتبت حروف هذا لا ينفع

الحل بحذف الجمل و الكتابة بداخلها ارقام
كما يوجد خطأ بالسطر
كود:
Label11.Caption = "الخطــأ : " & Falseq
سببه عدم وجود Label11 فانت لم تضعه اصلا فكيف سيكتب بداخله عدد الاجابات الخاطئة؟

ايضا
كود:
If jawab = False Then
trueq = trueq + 1
Else
Falseq = Falseq + 1
End If

ما فائدته ؟ لا ينفع هذا لانه لا وجود الى المتغير jawab بكودك فلس له فائدة فاكيد سيجمع 1 على الاجابات الصحيحة لانه سيعتبر jawab دائما خطا


ايضا الكود
كود:
  Dim Start As Long
    Start = Timer
    Do While Timer < Start + 30 'a 30 second delay (Change To any numer you want)


        DoEvents ' Yield To other processes.
        Loop
        
    
Comsoal_Click

Labeltruefalse.Visible = False
انت وضعته في زر سؤال و مكانه غير مناسب لانه سيوقف البرنامج مدة زمنية ثم سيضهر سؤال
المكان الصحيح هو في زر النتيجة لكي يوقف البرنامج بعد مشاهدة النتيجة قليلا و يأتي بسؤال جديد

كما انك اخطأت وضعت Labeltruefalse في الكود و هو غير موجود اصلا اي لم ترسمه بالشريحة
و اليك الملف بعد التصحيح

لكنه لا توجد عشوائية في الاختيار الاجابات فدائما سيضهر الجواب بنمط واحد و هو لا احبذه لان الطلبة سيحفظو الجواب
الملفات المرفقة
نوع الملف: rar حدد الربع بعد التعديل.rar‏ (38.6 كيلوبايت, المشاهدات 306)
__________________
هذا من فضل ربي
رد مع اقتباس
  #13  
قديم 07-30-2007, 06:06 PM
refathafez refathafez غير متواجد حالياً
عضو

 
تاريخ التسجيل: Mar 2007
المشاركات: 133
شكر وتقدير

السلام عليكم ورحمة الله
جزيت عني خير الجزاء وغفرالله لك ذنبك
رد مع اقتباس
  #14  
قديم 07-30-2007, 09:12 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
شكرا جزيلا لتفاعلكم

الاستاذ خليل
__________________
هذا من فضل ربي
رد مع اقتباس
  #15  
قديم 07-31-2007, 09:32 PM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
السلام عليكم

كيف حال الجميع ؟؟

اسف لتاخر والانقطاع بسبب انشغالي الشديد

هذا هو الواجب

لكن به خلل ارجو اصلاحه استاذ خليل ان امكن
وهو ان الصوت في التدريب الاول لا يعمل وايضا لا يوجد توافق اني بين الصوت والنتيجة في التدريب الثاني مع ان الكود صح

http://la.joreyat.org/download.php?i...f50c3c42b9f81e

التعديل الأخير تم بواسطة fadi9 ; 07-31-2007 الساعة 09:34 PM.
رد مع اقتباس
  #16  
قديم 08-01-2007, 02:10 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
اخى فادي عمل ممتاز
الخطا سببه استعمالك لتمبلت الباور بوينت بل يجب ان تستعمل ملف عادي

المرقق مع التعديل
http://www.tntup.com/file.php?file=7...fbd55a6050b74d
__________________
هذا من فضل ربي
رد مع اقتباس
  #17  
قديم 08-03-2007, 12:13 PM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
شكرا لك استاذ خليل

تم تعديل البرنامج ليعمل الصوت في التدريبين

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

ارجو ايلاغي عن اية ملاحظات حول عمل البرنامج

http://la.joreyat.org/download.php?i...27966dca33e373
رد مع اقتباس
  #18  
قديم 08-03-2007, 02:28 PM
zine pef zine pef غير متواجد حالياً
عضو

 
تاريخ التسجيل: Apr 2007
المشاركات: 152
السلام عليكم اخ قاضى يوجد مشكل في التحميل
رد مع اقتباس
  #19  
قديم 08-04-2007, 11:30 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
اخي فادي لازال لا يعمل الصوت المشكلة ان ملفك ليس باور بوينت كما اضن بل تمبلت باور بوينت و اتوقع من انه باور بوينت 2007 ؟

و شكرا لتفاعلك معنا

zine pef الصفححة تعمل اخي جرب التحميل مرة اخرى
__________________
هذا من فضل ربي
رد مع اقتباس
  #20  
قديم 08-05-2007, 10:49 PM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
هذه محاولة اخيرة ارجو ان تنجح
والمشكلة في الامان على ما يبدو
http://la.joreyat.org/download.php?i...d93bb31ff480f5
رد مع اقتباس
إضافة رد


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

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

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
الانتقال السريع


الساعة الآن 04:02 AM

Style provided by: MonksDiner - Entertainment Forum
Translated To Arabic By: Nile Stars
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. TranZ By Almuhajir
Ads Management Version 3.0.1 by Saeed Al-Atwi