الدرس الثالث عشر تشغيل الاصوات

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

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

شرح الطريقة الاولى بالصوت و الصورة (http://hesab.net/PowerPoint/24-sound1.exe)

الطريقة الثانية بالصوت و الصورة (http://hesab.net/PowerPoint/25-sound2.exe)
يرجى ملاحظة:
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


ننتظر تطبيقاتكم

[refathafez]

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

[zine pef]

استاذي الفاضل لك مني كل الشكر و الأحترام
هذا واجب درس اليوم اي الدرس 13 ...

[abdalohed]

بعد التحية والسلام
الدروس ما شاء الله اكتر من جيد
جزاك الله عنا كل خير

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

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

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

zine pef عل رائع

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

الاستاذ خليل

[Amel2005]

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

تطبيقى
http://la.joreyat.org/download.php?id=b646d2194a68f08c993a4387a904e5b8

أتمنى أن أكون قد وفقت .
وفقك الله أستاذنا الفاضل .
تحياتى.

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

لازال البرنامج يحتاج لتعديل به بعض العيوب شكرا تم التطبيق بنجاح و شكرا

[refathafez]

الاستاذ الفاضل كنت اتمني ان اعمل موضوع جديد لكن بدأت امتحانات الدور الثاني
شغلتني عن عمل الموضوع
كما علمتنا ارجو من الاخوه الاحباء كل بأسمة دمج الصوت والموضوع في فلدر واحد
وجزاك الله كل خير
بعد اذن استاذي
اشكر الاخت امال ( من سيربح المليون جميل جدا وعمل رائع وشكر للأخ فادي
وباقي اخواتي الاعضاء
اخوكم رفعت حافظ

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

شكرا التطبيق ممتاز refathafez

[مرفوعة الراس]

"

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

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

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

:)

"

[refathafez]

الاستاذ الفاضل
ارجو ان تري هذا العمل وترد علي
اذا ممكن الان
رفعت حافظ
وشكرا لأخواتي الاعزاء اعضاء المنتدي

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

الخطا الذي سببه هذا هو الكود

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 في الكود و هو غير موجود اصلا اي لم ترسمه بالشريحة
و اليك الملف بعد التصحيح

لكنه لا توجد عشوائية في الاختيار الاجابات فدائما سيضهر الجواب بنمط واحد و هو لا احبذه لان الطلبة سيحفظو الجواب

[refathafez]

السلام عليكم ورحمة الله
جزيت عني خير الجزاء وغفرالله لك ذنبك

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

شكرا جزيلا لتفاعلكم

الاستاذ خليل

[fadi9]

السلام عليكم

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

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

هذا هو الواجب

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

http://la.joreyat.org/download.php?id=c2c0b3bde1865ade17f50c3c42b9f81e

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

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

المرقق مع التعديل
http://www.tntup.com/file.php?file=763a7247cb41d4cc2efbd55a6050b74d

[fadi9]

شكرا لك استاذ خليل

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

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

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

http://la.joreyat.org/download.php?id=4c454545f7267ae06227966dca33e373

[zine pef]

السلام عليكم اخ قاضى يوجد مشكل في التحميل

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

اخي فادي لازال لا يعمل الصوت المشكلة ان ملفك ليس باور بوينت كما اضن بل تمبلت باور بوينت و اتوقع من انه باور بوينت 2007 ؟

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

zine pef الصفححة تعمل اخي جرب التحميل مرة اخرى

[fadi9]

هذه محاولة اخيرة ارجو ان تنجح
والمشكلة في الامان على ما يبدو
http://la.joreyat.org/download.php?id=ffb023735b4057ad74d93bb31ff480f5

[zine pef]

نجحت هذه المرة ..ممتاز

[shamal]

السلام عليكم
بارك الله فيك استاذنا العزيز
خليل ابراهيم

[benaisa]

أشكرك الأستاد خليل على هده الدروس القيمة
أريد مساعدة الصوت لا يعمل لدي

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

benaisa قم بوضع الملف و سابحث عن الحل لكن لا تنسى وضع ملف الصوت بنفس مجلد ملف الباور بوينت .