تشغيل الصوت دون أدوات - نسخة قابلة للطباعة

تشغيل الصوت دون أدوات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تشغيل الصوت دون أدوات (/showthread.php?tid=4961)

تشغيل الصوت دون أدوات - RaggiTech - 03-10-12

كاتب الموضوع : tibo

بســـــــم الله الرحمــــــــــان الرحيـــــــــــــــم

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

أضف فورم ووحدة نمطية 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]

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

كود :

[FONT=Courier New]rc = sndPlaySound([color=blue]إسم ملف الصوت هنا,[/color] SND_ASYNC)[/FONT]

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

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

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

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

كود :

[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]

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

كود :

SoundCheck

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

ولاتنسى التقييم