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

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   الدرس الثالث عشر تشغيل الاصوات (http://www.hesab.net/vb/showthread.php?t=3044)

الاستاذ خليل 07-27-2007 08:37 PM

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

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

الطريقة الثانية بالصوت و الصورة
يرجى ملاحظة:
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 07-28-2007 02:15 AM

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

zine pef 07-28-2007 03:33 AM

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

abdalohed 07-28-2007 04:08 AM

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

الاستاذ خليل 07-28-2007 03:39 PM

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

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

zine pef عل رائع

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

الاستاذ خليل

Amel2005 07-28-2007 04:08 PM

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

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

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

الاستاذ خليل 07-28-2007 06:27 PM

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

refathafez 07-29-2007 01:43 PM

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

الاستاذ خليل 07-29-2007 07:45 PM

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

مرفوعة الراس 07-29-2007 08:02 PM

"

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

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

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

:)

"

refathafez 07-30-2007 01:21 AM

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

الاستاذ خليل 07-30-2007 02:07 AM

1 مرفق
الخطا الذي سببه هذا هو الكود

كود:

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 07-30-2007 05:06 PM

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

الاستاذ خليل 07-30-2007 08:12 PM

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

الاستاذ خليل

fadi9 07-31-2007 08:32 PM

السلام عليكم

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

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

هذا هو الواجب

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

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

الاستاذ خليل 08-01-2007 01:10 AM

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

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

fadi9 08-03-2007 11:13 AM

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

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

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

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

http://la.joreyat.org/download.php?i...27966dca33e373

zine pef 08-03-2007 01:28 PM

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

الاستاذ خليل 08-04-2007 10:30 PM

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

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

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

fadi9 08-05-2007 09:49 PM

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


الساعة الآن 06:07 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir