الدرس الثالث عشر تشغيل الاصوات
الدرس الثالث عشر تشغيل الاصوات
تم الشرح بطريقتين تستعملان الاستدعاء بواسطة الدوال الموجودة بالحاسب الالي شرح الطريقة الاولى بالصوت و الصورة الطريقة الثانية بالصوت و الصورة يرجى ملاحظة: 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 كود الطريقة الثانية هذا يوضع في المديول Module1 كود:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long كود:
Private Sub CommandButton1_Click() ننتظر تطبيقاتكم |
شكرو تقدير
1 مرفق
بسم الله الرحمن الرحيم رجاء كيف يمكن ان نجعل كل من ( a, b . e .d ) أرقام في حل المعادلة
سوف ننجز الدرس في اقرب وقت ان شاء الله واليك الدرس السابق وآسف للتأخير و السلام عليكم ورحمه الله وبركاته |
1 مرفق
استاذي الفاضل لك مني كل الشكر و الأحترام
هذا واجب درس اليوم اي الدرس 13 ... |
رسالة تحية وشكر
بعد التحية والسلام
الدروس ما شاء الله اكتر من جيد جزاك الله عنا كل خير |
السلام عليكم
refathafez شكرا على التطبيق و هذه المرة اجعله في نفس الدرس كي يستفيدمنه الاعضاء
سؤالك كيف يمكن ان نجعل كل من ( a, b . e .d ) أرقام في حل المعادلة عطنا سؤال عملي هل تريد 4 متغيرات اعمل النموذج و سنساعدك بالكود بعون الله احيانا البرامج تتم بعملية عكسية مثلا اذا كنت تريد او تجعل الطالب يحل معادلة اولا نقوم فاولا تعطي نقاط عشوائية اقصد الحل و ثم تعطيه السؤال . zine pef عل رائع abdalohed نتمنى ان نرا تطبيقاتك و شكرا لك الاستاذ خليل |
السلام عليكم ورحمة الله وبركاته
جزيل الشكر للدروس التى نحتاجها بالفعل والمقدمة لنا من أستاذ كريم يجود بعلمه بكل أريحية وطيب نفس . طيب الله خاطرك وجزاك عنا كل خير . اللهم آمين . تطبيقى http://la.joreyat.org/download.php?i...3a4387a904e5b8 أتمنى أن أكون قد وفقت . وفقك الله أستاذنا الفاضل . تحياتى. |
لازال البرنامج يحتاج لتعديل به بعض العيوب شكرا تم التطبيق بنجاح و شكرا
|
3 مرفق
الاستاذ الفاضل كنت اتمني ان اعمل موضوع جديد لكن بدأت امتحانات الدور الثاني
شغلتني عن عمل الموضوع كما علمتنا ارجو من الاخوه الاحباء كل بأسمة دمج الصوت والموضوع في فلدر واحد وجزاك الله كل خير بعد اذن استاذي اشكر الاخت امال ( من سيربح المليون جميل جدا وعمل رائع وشكر للأخ فادي وباقي اخواتي الاعضاء اخوكم رفعت حافظ |
شكرا التطبيق ممتاز refathafez
|
" هالاموور انا ما افهم فيها واايد بس يعطيك العافيه استاذ خليل على هالمجهوود الجبار وماتقصر الصراحه :) " |
1 مرفق
الاستاذ الفاضل
ارجو ان تري هذا العمل وترد علي اذا ممكن الان رفعت حافظ وشكرا لأخواتي الاعزاء اعضاء المنتدي |
1 مرفق
الخطا الذي سببه هذا هو الكود
كود:
If Val(TextBox1.Text) = "الرابع" Then و هي تقوم بتحويل المربعات لارقام لكنت جعلت قيمتها نص فاكيد ضهر خطا ايضا باول الكود جعلته لا يقبل الا الارقام بانك استعملت هذا الكود كود:
If IsNumeric(TextBox1.Text) = False Then الحل بحذف الجمل و الكتابة بداخلها ارقام كما يوجد خطأ بالسطر كود:
Label11.Caption = "الخطــأ : " & Falseq ايضا كود:
If jawab = False Then ما فائدته ؟ لا ينفع هذا لانه لا وجود الى المتغير jawab بكودك فلس له فائدة فاكيد سيجمع 1 على الاجابات الصحيحة لانه سيعتبر jawab دائما خطا ايضا الكود كود:
Dim Start As Long المكان الصحيح هو في زر النتيجة لكي يوقف البرنامج بعد مشاهدة النتيجة قليلا و يأتي بسؤال جديد كما انك اخطأت وضعت Labeltruefalse في الكود و هو غير موجود اصلا اي لم ترسمه بالشريحة و اليك الملف بعد التصحيح لكنه لا توجد عشوائية في الاختيار الاجابات فدائما سيضهر الجواب بنمط واحد و هو لا احبذه لان الطلبة سيحفظو الجواب |
شكر وتقدير
السلام عليكم ورحمة الله
جزيت عني خير الجزاء وغفرالله لك ذنبك |
شكرا جزيلا لتفاعلكم
الاستاذ خليل |
السلام عليكم
كيف حال الجميع ؟؟ اسف لتاخر والانقطاع بسبب انشغالي الشديد هذا هو الواجب لكن به خلل ارجو اصلاحه استاذ خليل ان امكن وهو ان الصوت في التدريب الاول لا يعمل وايضا لا يوجد توافق اني بين الصوت والنتيجة في التدريب الثاني مع ان الكود صح http://la.joreyat.org/download.php?i...f50c3c42b9f81e |
اخى فادي عمل ممتاز
الخطا سببه استعمالك لتمبلت الباور بوينت بل يجب ان تستعمل ملف عادي المرقق مع التعديل http://www.tntup.com/file.php?file=7...fbd55a6050b74d |
شكرا لك استاذ خليل
تم تعديل البرنامج ليعمل الصوت في التدريبين ايضا تم تجاوز كافة العقبات في البرنامج ارجو ايلاغي عن اية ملاحظات حول عمل البرنامج http://la.joreyat.org/download.php?i...27966dca33e373 |
السلام عليكم اخ قاضى يوجد مشكل في التحميل
|
اخي فادي لازال لا يعمل الصوت المشكلة ان ملفك ليس باور بوينت كما اضن بل تمبلت باور بوينت و اتوقع من انه باور بوينت 2007 ؟
و شكرا لتفاعلك معنا zine pef الصفححة تعمل اخي جرب التحميل مرة اخرى |
هذه محاولة اخيرة ارجو ان تنجح
والمشكلة في الامان على ما يبدو http://la.joreyat.org/download.php?i...d93bb31ff480f5 |
الساعة الآن 10:21 AM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir