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

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







درس اليوم هو عبارة عن طريقة تشغيل ملف صوت 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

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





ولاتنسى تدعيلنا بالتوفيق