تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشغيل الصوت دون أدوات
#1
كاتب الموضوع : 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

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


ولاتنسى التقييم
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 3 7,068 26-02-21, 08:57 PM
آخر رد: علي النقيب
Big Grin أدوات Dotnetbar الاصدار 14.1.0.0 النسخة الكاملة مفعلة Code Master 3 2,782 23-05-19, 07:05 PM
آخر رد: قناص المدينة
  [مثال] تشغيل تقارير الريبورت فيو rdlc report, ReportViewer على جهاز العميل او جهاز اخر محمود بكرى 1 4,987 07-03-18, 05:28 PM
آخر رد: KH_Alaswad
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 3,852 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 4,374 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 3,147 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 10,480 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 5,156 05-01-14, 03:08 AM
آخر رد: mero5000
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 7,234 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  مثال تشغيل ملف صوتى او فيديو RainBow 0 2,112 14-03-13, 08:37 PM
آخر رد: RainBow

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم