الأحوة المبرمجين ، الأخوة الأعضاء
السلام عليكم ورحمة الله وبركاته
وبعد
تواجهني بعض المشاكل ولا زلت لا أعرف حلاً ، من ذلك قراءة ملفات صوتية متتالية بدون التايمر ، لأني أريد التخلصمن لتايمر ، والمشكلة الأخرى هي كيف أكرر عدة ملفات صوتية ، بحسب ما يريده المستخدم .
وجزيتم خير الجزاء ...
عــــــــــــمـــــــــــــــــوري
اخي العزيز
الطريقة تختلف تبعا للأداة المستخدمه ..
فيجب عليك اولا ان تحدد لنا الاداة التي تستخدمها لنتمكن من مساعدتك ..
[/وسط]
مشكور اخوي التبهاني على مرورك ،
استخدمت أداة windows media player وأداة Microsoft multemidia control 6.00
وكنت غيرت من الأداة الأولى للثانية بناءاً على نصيحة أحد الأخوة في المنتدى جزاه الله خيراً ، ولقيت إنها الأفضل في التسجيل ..
عــــــــــــــــمــــــــــــــــــــــوري
السلام عليكم
يوجد للاداة الثانية الحدث Done اي عند انتهاء قراءة الملف الصوتي ستم تنفيذ الحدث Done فيمكنك في هذا الحدث كتابة الكود اللازم لاعادة قراءة الملف مرة اخري .
مثلا :
يمكن وضع صندوق نص علي الفورم وليكن اسمه TxtRepeat وهو سنضع به عدد مرات التكرار لقراة الملف .
سنقوم بكتابة الكود التالي
Private Sub MMControl1_Done(NotifyCode As Integer) Dim m_Repeat As Long If Not IsNumeric(txtRepeat.Text) Then MsgBox "Must be numerical value.", vbCritical, "": Exit Sub m_Repeat = m_Repeat + 1 If m_Repeat <= Val(txtRepeat.Text) Or Val(Trim(txtRepeat.Text)) = 0 Then Exit Sub Else MMControl1.Command = "Prev" MMControl1.Command = "play" End If End Sub
تحياتي لكم
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
السلام عليكم ورحمة الله
مشكور أخوي prof_1982 على مرورك ، بس ممكن تعطيني شرح أكثر عن فكرتك ، وكيف أكرر عدة ملفات صوتية وليس ملف واحد ؟؟
وجزيت خيراً
عــــــــــمــــــــــــــــــــوري
أخي smart439 إذا كنت تقصد تشغيل عدة ملفات بطريقة تتابعية فيفضل البعد عن كتابة الأكواااااااااد
يمكنك إستخدام m3u إذا كنت تستخدم media player
أو Real player
ومرفق مثال على ذلك
playall.m3u
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subالأخ العزيز / بلال حمدي
مشكور على مرورك أخي العزيز ، لكن الملف المرفق لا يوجد به أي مثال فقط ملفات صوتية ؟؟؟؟؟؟؟؟
عـــــــــمـــــــــــــــــــــوري
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
معقول 133 قراءة ومافي إلا 3 ردود ؟؟؟؟
هذا الموضوع مغلق.