أنا عندي function تقوم بتشغيل الصوت في الفيحول بيسك
وهذا الكود
'play sound
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & ("\sounds\general\duck.wav")
MMControl1.Command = "open"
MMControl1.Command = "play"وأنا أنادي هذه function أكثر من مرة في form الواحد
أول مرة بيشتغل الصوت وبعد كده لا يعمل.
ما الحل ؟ أرجو المساعدة
الرجاء ارفاق مثال .
بالتوفيق ,,,,,,,,
A7med_prof
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
الأخ الفاضل ...
تأكد من إيقاف الصوت قبل تشغيله
'play sound
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & ("\sounds\general\duck.wav")
MMControl1.Command = "stop"
MMControl1.Command = "open"
MMControl1.Command = "play"شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
السلام عليكم
اقتباستأكد من إيقاف الصوت قبل تشغيله
وهذا كود إذا كنت تقصد التكرار بعد الانتهاء من الملف
Private Sub Form_Load() 'تشغيل الملف mm.FileName = App.Path & "\nabhan.mid" mm.Command = "open" mm.Command = "play" End Sub Private Sub mm_StatusUpdate() 'التكرار عند الوصول للنهاية 'هنا حسب الرغبة في مربع الاختيار If mm.Position = mm.Length And Check1.Value = 1 Then mm.Command = "prev" mm.Command = "play" End If End Sub
ألا بذكر الله تطمئن القلوب
السلام عليكم
الافضل لك استعمال ole في استدعاء الصوت واختيار الملفات الصوتي من insert
ole1.action =7
End Sub
او كيفية عملية الاستدعاء وهل هناك hide or show بالفورم هل يمكن توضيح اكثر لمساعدتك
جربت عملت إيقاف للصوت قبل تشغيله ولكن بدون فائدة.
أما الأخ generator ما المقصود بسؤالك؟
المشكلة أنا عندي form فيها إزرارين
الأول: يعرض السؤال في form ويعرض معاه صوت السؤال
والثاني :( الجواب) أشيك على جواب المستخدم إذا كان صحيح أظهر له ملف صوت وإذا كان خطأ أظهر له ملف صوت آخر وهكذا
وأنا عاملة أداة صوت وحدة في form وهي مخفية
المشكلة صوت السؤال دائما يسمع عند الضغط على زر ( السؤال التالي)
أما عند الضغط على زر (الجواب) يظهر كلا من صوت الإجابة الصحيحة والإجابة الخاطئة لمرة واحدة فقط وفي يقية الأسئلة لا يظهر صوت الإجابة.
أرجو أن يكون شرح المشكلة واضح
اقتباستأكد من إيقاف الصوت قبل تشغيله
السلام عليكم
لا تنسي وضع الكود
MMControl1.Command = "Close"
ليصبح
MMControl1.Command = "Close"
'play sound
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.path & ("\sounds\general\duck.wav")
MMControl1.Command = "stop"
MMControl1.Command = "open"
MMControl1.Command = "play"تم تعديل هذه المشاركة بواسطة المزمجر في 17 مارس 2007 في 13:32
ألا بذكر الله تطمئن القلوب
شكرا يا مزمجر
جربت الكود الأخير واشتغل معايا الصوت
ألا بذكر الله تطمئن القلوب
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…