تقييم الموضوع :
  • 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 2 315 28-05-16, 02:16 PM
آخر رد: CLARO
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 535 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 660 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 390 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 4,107 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 1,807 05-01-14, 03:08 AM
آخر رد: mero5000
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 1,692 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  مثال تشغيل ملف صوتى او فيديو RainBow 0 497 14-03-13, 08:37 PM
آخر رد: RainBow
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 RaggiTech 0 410 03-10-12, 08:47 AM
آخر رد: RaggiTech
  تشغيل برنامج خارجي أو فتح ملف مرتبط ببرنامج معين من ضمن كود فيجول بايزيك دوت نيت RaggiTech 1 3,353 03-10-12, 08:46 AM
آخر رد: RaggiTech

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


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