برمجة برنامج يشغل الصوت من دون أداة الصوت

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
موضوعنا اليوم برمجة برنامج تستطيع من خلاله  برمجة برنامج يشغل الصوت من دون أداة الصوت
بلغة الفيجوال باسيك 6 أو  5
ونبدأ
 نفتح الفيجوال بازيك 6أو 5
ثم نضغط على  Project في الشريط العلوي ثم إختر Add Module وبعدها  Open
ستفتح لك صفحة فارغة .أكت فيها مايلي بنفس عدد  الأسطر و الكلمات لتفادي الأخطاء
شفرة: [اختيار]
[CENTER][CENTER]Option  Explicit[/CENTER][/CENTER]
 [CENTER][CENTER]Public Declare Function sndPlaySound Lib  "winmm.dll" Alias "sndPlaySoundA" _[/CENTER][/CENTER]
 [CENTER][CENTER](ByVal lpszSoundName As String, ByVal uFlags  As Long) As Long[/CENTER][/CENTER]
 [CENTER][CENTER]Public Const SND_SYNC =  &H0[/CENTER][/CENTER]
 [CENTER][CENTER]Public Const SND_ASYNC =  &H1[/CENTER][/CENTER]
 [CENTER][CENTER]Public Const SND_NODEFAULT =  &H2[/CENTER][/CENTER]
 [CENTER][CENTER]Public Const SND_LOOP =  &H8[/CENTER][/CENTER]
 [CENTER][CENTER]Public Const SND_NOSTOP =  &H10[/CENTER][/CENTER]
 [CENTER][CENTER]Public Sub PlaySound(strSound As  String)[/CENTER][/CENTER]
 [CENTER][CENTER]Dim wFlags%[/CENTER][/CENTER]
 [CENTER][CENTER]wFlags% = SND_ASYNC Or  SND_NODEFAULT[/CENTER][/CENTER]
 [CENTER][CENTER]sndPlaySound strSound,  wFlags%[/CENTER][/CENTER]
 [CENTER][CENTER]End Sub[/CENTER][/CENTER]


هذا الكود مهم لتشغيل الصوت
إفتح الفورم وغير Caption إلى تشغيل الصوت
أنشئ  Command على الفورم واكتب داخل الكود هذا
شفرة: [اختيار]
PlaySound "c:\windows\media\windows xp  startup.wav"
والان نضغط على F5 تجريبه


Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #1 في: شباط 05, 2009, 08:34:59 صباحاً
thank'ssssssssss


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: شباط 05, 2009, 08:36:19 صباحاً
لا شكرا على واجب ............شكرا لمرورك


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: شباط 05, 2009, 05:59:44 مسائاً
thank's so much my brother achraf il's a goog work realy


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: شباط 05, 2009, 07:40:33 مسائاً
لا شكرا على واجب ............شكرا لمرورك


mounir23

  • Full Member
  • ***
    • مشاركة: 160
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
thank you so much