تشغيل الصوت دون أدوات

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تشغيل الصوت دون أدوات

مُساهمة من طرف Coptic_Programmer في الجمعة يوليو 03, 2009 11:04 am

درس اليوم هو عبارة عن طريقة تشغيل ملف صوت WAV عن طريق برنامجك دون ان تحتاج إلى وضع عنصر تحكم جاهز

أضف فورم ووحدة نمطية Module

انسخ الأسطر التالية إلى الوحدة النمطية Module
Declare Function sndPlaySound Lib 'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Global Const SND_ASYNC = &H1


أضف الكود التالي إلى زر أمر Command

rc = sndPlaySound(إسم ملف الصوت هنا, SND_ASYNC)

لاتنسى تبديل ماهو مكتوب باللون الأزرق إلى عنوان الملف كاملاً

لاحظ أنه لايشغل التنسيقات الضخمة مثل mp3 وأحيانأ ملفات الصوت الضخمة أيضاً

هناك طريقة أخرى أيضاً

ضع هذه الأسطر في فسم التصريحات General

Private Declare Function sndPlaySound Lib 'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_SYNC = &H0
Const SND_NOWAIT = &H2000
Const SND_LOOP = &H8

Sub SoundCheck()
Dim lRetVal As Long
lRetVal = sndPlaySound('عنوان الملف هنا', SND_SYNC)
End Sub

أضف السطر التالي إلى زر الأمر Command

SoundCheck

ولاتنسى تكتب مسار الملف كامل

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى