تقييم الموضوع :
  • 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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] تشغيل تقارير الريبورت فيو ReportViewer على جهاز العميل او جهاز اخر محمود بكرى 0 183 06-08-17, 01:47 PM
آخر رد: محمود بكرى
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 722 28-05-16, 02:16 PM
آخر رد: CLARO
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 824 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 1,068 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 628 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 5,029 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 2,136 05-01-14, 03:08 AM
آخر رد: mero5000
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 2,552 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  مثال تشغيل ملف صوتى او فيديو RainBow 0 700 14-03-13, 08:37 PM
آخر رد: RainBow
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 RaggiTech 0 567 03-10-12, 08:47 AM
آخر رد: RaggiTech

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


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