تشغيل الصوت مع عنصر تحكم {الجمعة 28 أكتوبر - 21:41}

الملتميديا -
تشغيل الصوت بأداة MCI







هناك طريقة جيدة لتشغيل الصوت بكافة انواعه وهي عن طريق إستخدام عنصر التحكم
Microsoft Multimedia Control



طريقة وضعه على الفورم هي :



أنقر بالزر اليمين للماوس فوق صندوق الأدوات . فتظهر لك قائمة إختر منها
Components



فيظهر لك مربع حوار يحوي على الأدوات سوف تجد فيها العنصر
Microsoft Multimedia Control وأنقر فوق الزر Ok



ضعها على الفورم وأضف العناصر التالية



أدوات عرض الملفات



Driver1



Dir1



File1



وأداة النصوص Label1



إضافةً إلى عنصر الملتميديا MMControl1



لاحظ شكل أداة الملتميديا في أسفل النموذج







نأتي الأن إلى العمل والحدث :



1- أنقر فوق أداة السواقات
Drive1 نقرتين وأكتب السطر التالي:

On Error Resume Next Dir1 = Drive1

وهذا يقوم بعرض المجلدات الموجودة داخل المحرك المحدد



2- أنقر فوق أداة المجلدات Dir1 وأكتب الكود اتالي:

File1 = Dir1

وهو يقوم بعرض الملفات في المجلد المحدد داخل أداة الملفات File1



3- أنقر فوق صندوق الملفات وأكتب السطر الأسطر التالية

Label1 = Dir1.Path & '' & File1 MMControl1.FileName = Label1 MMControl1.Command = 'open' MMControl1.Command = 'play'

السطر الأول يقوم بعرض المسار الكامل للملف المحدد في صندوق الملفات داخل الأداة
Label1



السطر الثاني يقوم بتحديد الملف لأداة الملتميديا وهو الملف المكتوب داخل الأداة
Label1



السطرين الأخيرين يقومان بتشغيل الملف







لاحظ الأوامر المكتوبة لعنصر التحكم MMControl1



يمكنك إخفاء أداة الملتميديا MMControl1 عن طريق
خاصية Visible



وبعد ذلك تضيف صور تكون قد صممتها لتكون بدلاً من ازرار العنصر
MMControl1



ثم أنقر فوق الصورة التي وضعتها وأكتب الأوامر للأداة
MMControl1



مثلاً




في الصورة الأولى لتكن رمز التشغيل:

MMControl1.Command = 'play'

في الصورة الثانية لتكن رمز إيقاف مؤقت:

MMControl1.Command = 'Pause'

وهكذا ضع الأوامر المعروفة مثلاً Stopو Play .......









يمكنك إضافة ميزات كثيرة أيضا منها شريط الحالة الذي يعطيك إلى أين وصلت قرائة
الملف :



أضف إلى الفورم السابق شريط التمرير الأفقي HScroll1



ثم أنقر فوق أداة الملتميديا وإختر الحدث StatusUpdate
ثم أكتب الكود التالي:

HScroll1.Value = mm.Position * 100 / MMControl1 .Length

ويمكنك إضافة أداة Label ليتم عرض الوقت الأصلي
للملف والوقت الذي تم قرائته كمايلي:



أضف أداتين Label2 و
Label3



وأكتب الكود التالي في حدث StatusUpdate لأداة
الملتميديا تحت الكود السابق:

Dim a As Integer Dim b As Integer a = MMControl1.Length / 1000 b = MMControl1.Position / 1000 Label2.Caption = a Label3.Caption = b

وبذلك تكون قد صنعت برنامج مشغل ملفات الملتميديا
الصوتية.





وتمنياتي لكم بالتوفيق