الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول MMControl

مغلق
بدأه Lion في 10 مارس 2002 · 1 رد · 1,202 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :

انا عضو جديد ارجو قبولي بالمنتدى؟

اذا قبلتوني فاريد هذا السؤال؟

عند تشغيل ملف wavكيف يمكنني ان امشيه قليلا

وكيف يمكنني ان ارجعه قليلا

واذا كان في نفس مسار الملف يوجد ملفات اخرى من نوع wav

كيف يمكنني بواسطة الكود تشغيل الملف الذي يليه

واذا كان بالامكان مراعاة الترتيب الابجدي

مثلا song01 ثم song02

والف شكر يا اروع اعضاء

(f) (g)

#2

أخي الكريم :

أهلا وسهلا عضو بيننا ومنكم نكسب خبرتنا ........

أخي الكريم إليك ماطلبت ......

كود لتشغيل الملف :



MMControl1.DeviceType = "waveaudio" 'نوع الملف

MMControl1.Command = "open" 'الفتح

MMControl1.Command = "play" 'التشغيل
MMControl1.FileName = "c:song1.wav"   'تحديد الملف

كود الإنتقال للأمام وللخلف :



MMControl1.Command = "seek" 'أمر الإنتقال
MMControl1.To = Text1.Text 'تحديد مكان الإنتقال بأجزاء الثانية

يعني كل 1000 تشاوي واحد ثانية

هذه التعلمية to وseek تفيدك بالإنتقال إلى جزء من ملف .....د

وإذا بدك تستخدمها في التقديم والترجيع فعليك أن تستعمل الخاصية postion

كالتالي :



MMControl1.Command = "seek" 'أمر الإنتقال
MMControl1.To = MMControl1.Position + 5000

[/ALIGN]

هذا الأمر لكي يتقدم في الملف خمس ثاوني كل ضغطة زر

ويمكن قلب الحالة إلى أن يرجع خمس ثواني بكتابة :



MMControl1.Command = "seek" 'أمر الإنتقال[/ALIGN]
[ALIGN=LEFT]MMControl1.To = MMControl1.Position - 5000

*************************

أخي الكريم بالسبة للسؤال الثني إي أنك إذا كان عندك عشر ملفات صوتية في الهارد c وتريد عندما يخلص واحد يعمل الثاني

فالأمر بسط أكتب الكود التالي داخل الأداة mmcontol



Text1 = Text1 + 1   'يزيد للتيسكت رقم واحد

If Text1 > 10 Then Text1 = 1 'وإذا كان مشغل أكثر من عشر أغاني يرجع إلى الأغنية واحد

MMControl1.FileName = "c:song" & Text1 & ".wav" 'تحديد مسار الملف

MMControl1.Command = "open" 'الفتح

MMControl1.Command = "play" 'التشغيل

End If
If MMControl1.Position = MMControl1.Length Then 'إذا خلص الملف الصوتي

[/ALIGN]

أرجوا أن أكون قد أفدتك وحللت لك مشكلتك ....

لاتنساني أخي من دعائك لي لأنه الآن عندي أيام دراسة عصيبة .....

هذا الموضوع مغلق.

مواضيع مشابهة