المدير
المدير
 عدد الرسائل : 583
تاريخ التسجيل : 26/10/2007
 | موضوع: تشغيل الصوت دون أدوات  15/4/2008, 12:41 | |
| |
تشغيل الصوت دون أدوات
| [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
| [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] | | |
الملتميديا - تشغيل الصوت دون أدوات
درس اليوم هو عبارة عن طريقة تشغيل ملف صوت WAV عن طريق برنامجك دون ان تحتاج إلى وضع عنصر تحكم جاهز
أضف فورم ووحدة نمطية Module
انسخ الأسطر التالية إلى الوحدة النمطية Module
<table class=lessons id="
AutoNumber3" dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0><tr><td class=lessons width="100%">Declare Function sndPlaySound Lib 'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Global Const SND_ASYNC = &H1</TD></TR></TABLE>
أضف الكود التالي إلى زر أمر Command
<table class=lessons id="
AutoNumber3" dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0><tr><td class=lessons width="100%">rc = sndPlaySound(إسم ملف الصوت هنا, SND_ASYNC)</TD></TR></TABLE>
لاتنسى تبديل ماهو مكتوب باللون الأزرق إلى عنوان الملف كاملاً
لاحظ أنه لايشغل التنسيقات الضخمة مثل mp3 وأحيانأ ملفات الصوت الضخمة أيضاً
هناك طريقة أخرى أيضاً
ضع هذه الأسطر في فسم التصريحات General
<table class=lessons id="
AutoNumber3" dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0><tr><td class=lessons width="100%">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</TD></TR></TABLE>
أضف السطر التالي إلى زر الأمر Command
<table class=lessons id="
AutoNumber3" dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0><tr><td class=lessons width="100%">SoundCheck</TD></TR></TABLE>
ولاتنسى تكتب مسار الملف كامل
ولاتنسى تدعيلنا بالتوفيق
|
| |
|
