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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] تشغيل تقارير الريبورت فيو rdlc report, ReportViewer على جهاز العميل او جهاز اخر محمود بكرى 1 1,106 07-03-18, 05:28 PM
آخر رد: KH_Alaswad
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 1,312 28-05-16, 02:16 PM
آخر رد: CLARO
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 1,146 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 1,516 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 943 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 5,929 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 2,509 05-01-14, 03:08 AM
آخر رد: mero5000
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 3,587 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  مثال تشغيل ملف صوتى او فيديو RainBow 0 947 14-03-13, 08:37 PM
آخر رد: RainBow
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 RaggiTech 0 833 03-10-12, 08:47 AM
آخر رد: RaggiTech

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


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