03-10-12, 08:39 AM
كاتب الموضوع : tibo
بســـــــم الله الرحمــــــــــان الرحيـــــــــــــــم
بســـــــم الله الرحمــــــــــان الرحيـــــــــــــــم
درس اليوم هو عبارة عن طريقة تشغيل ملف صوت WAV عن طريق برنامجك دون ان تحتاج إلى وضع عنصر تحكم جاهز
أضف فورم ووحدة نمطية Module
انسخ الأسطر التالية إلى الوحدة النمطية Module
أضف فورم ووحدة نمطية Module
انسخ الأسطر التالية إلى الوحدة النمطية Module
كود :
[FONT=Courier New][color=blue]Declare Function[/color] sndPlaySound [color=blue]Lib [/color][COLOR=green]'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
[/COLOR]Global [color=blue]Const [/color]SND_ASYNC = &H1[/FONT]
كود :
[FONT=Courier New]rc = sndPlaySound([color=blue]إسم ملف الصوت هنا,[/color] SND_ASYNC)[/FONT]
لاحظ أنه لايشغل التنسيقات الضخمة مثل mp3 وأحيانأ ملفات الصوت الضخمة أيضاً
هناك طريقة أخرى أيضاً
ضع هذه الأسطر في فسم التصريحات General
أضف السطر التالي إلى زر الأمر Command
ولاتنسى تكتب مسار الملف كامل
ولاتنسى التقييم
كود :
[FONT=Courier New][color=blue]Private Declare Function[/color] sndPlaySound [color=blue]Lib [/color][COLOR=green]'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
[/COLOR][color=blue]Const [/color]SND_ALIAS = &H10000
[color=blue]Const [/color]SND_ASYNC = &H1
[color=blue]Const [/color]SND_SYNC = &H0
[color=blue]Const [/color]SND_NOWAIT = &H2000
[color=blue]Const [/color]SND_LOOP = &H8
[color=blue]Sub [/color]SoundCheck()
[color=blue]Dim [/color]lRetVal [color=blue]As [/color][color=blue]Long [/color]
lRetVal = sndPlaySound[color=green]('عنوان الملف هنا', SND_SYNC)[/color]
[color=blue]End [/color][color=blue]Sub[/color][/FONT]
كود :
SoundCheck
ولاتنسى تكتب مسار الملف كامل
ولاتنسى التقييم