اضافة صوت للاكسس

[momen268268]

السلام عليكم ورحمة الله وبركاته

اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم 

 

جميع الميديولات لا تعمل في الاكسس عندي لاضافة ملف صوتي للاكسس ليعمل عند فتح فورم او تشغيل زر او اي حدث من احداث الاكسس

برجاء الافاده

لا هذه الطريقة

Option Compare Database

 Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal filename As String, ByVal snd_async As Long) As Long

  Function PlaySound(sWavFile As String)
    ' Purpose:  Plays a sound.
    ' Argument: the full path and file name.

    If apisndPlaySound(sWavFile, 1) = 0 Then
        MsgBox "The Sound Did Not Play!"
    End If
  End Function

ولا هذه الطريقة

Option Compare Database


Const snd_async = (1)
Const SND_NODEFAULT = (2)

Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub API_PlaySound(pWavFile As String)

Dim LResult As Long

'Make a Windows API call to play a wav file
LResult = sndplaysound(pWavFile, SND_NODEFAULT + snd_async)

End Sub

 

وشكرا

حضور .mdb

[momen268268]

اين اهل الخبرة؟

[Khalid Jnb]

السلام عليكم

وضعت لك زر امر لتشغيل ملف صوتي نوع wav

 

تشغيل الصوت بزر.rar

تم تعديل فبراير 28, 2019 بواسطه خالد سيسكو

[Khalid Jnb]

 ملفين اخرين  لتشغيل الصوت عند فتح النوذج

اعلمنا النتائج اخي الكريم

تشغيل الصوت عند فتح النموذج.rar

تشغيل الصوت بدون اظهار رسالة.rar

تم تعديل فبراير 28, 2019 بواسطه خالد سيسكو

[momen268268]

الاخ العزيز الغالي @خالد سيسكو

بعد التحية

أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك 

عندي سؤال آسف لو كنت هطول عليك

عندما اضع اي فايل لا يعمل عندي إللا إذا غيرت اسمه إلى ringin وبالتالي يعمل معي اي فايل موسيقى اخرى لا يعمل

السؤال الآن هل بإمكاني ان اضع اكثر من فايل فى قاعدة بيانات واحده ولكن باساء اخرى لان كل حدث سوف يصدر صوت معين في صدد المشروع الذي اقوم ببناءه 

 

ولكم مني جزيل الشكر والعرفان على مجهوداتكم الرائعة

[Khalid Jnb]

اخي العزيز الامر جدا بسيط 

اولا : اذا كنت تريد ان يعمل الصوت بالضغط على زر معين اذهب  الى (عند النقر في حدث )  وقم بتغيبر اسم الملف  ringin الى اي اسم تريده ويجب ان يكون امتداده wav

Private Sub أمر4_Click()
Playsound (Application.CurrentProject.Path & "\ringin.wav")
End Sub

ثانيا: اذا كنت تريد ان يعمل الصوت اثناء فتح النموذج  ضع عند الفتح بالنموذج وقم بتغيبر اسم الملف  ringin الى اي اسم تريده ويجب ان يكون امتداده wav

Private Sub Form_Open(Cancel As Integer)
Playsound (Application.CurrentProject.Path & "\ringin.wav")
End Sub

وهذا ملف فيه ثلاث نغمات مختلفة ( اخي فقط غير اسم الملف بجانب قاعدة البيانات وغيره في الكود

 

 

تشغيل الصوت بزر.rar

تم تعديل مارس 3, 2019 بواسطه خالد سيسكو

[Khalid Jnb]

تشغيل الصوت بزر.rar

[momen268268]

الاخ العزيز الغالي @خالد سيسكو

بعد التحية

أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك 

[رفعت عبد الكريم]

السلام عليكم 

احبابي 

عندي هذا الملف و هذا امتداده حاولت اطبق الشرح بس ما ضبطت هذا هو امتداد الملف 

hin Attraction - Yanni - صوتيات درر العراق MP3.wav

و خليت الكود مع هذا الامتداد 

Playsound (Application.CurrentProject.Path & "thin Attraction - Yanni - صوتيات درر العراق MP3.wav")

و لم تضبط معي تظهر لي كما في هذه الصورة 

ما الحل احبتي ؟؟؟؟

اتمنى ان لا تتاخروا بالاجابة 

[أبوبسمله]

وعليكم السلام

23 ساعات مضت, رفعت عبد الكريم said:

و لم تضبط معي تظهر لي كما في هذه الصورة 

وهل قمت بادراج الوحده النمطيه لديك Playsound

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

Function Playsound(sWavFile As String)
apisndPlaySound sWavFile, 1
End Function

اضف الكود فى وحده نمطيه وجرب مره اخرى ووافنا بالنتيجه

بالتوفيق

[رفعت عبد الكريم]

السلام عليكم 

اخي الغالي هل اضع رابط المقطع الوسيقي بدل هذا الرابط  ارجو التوضيح باستخدام رابط المقطع الذي ارسلته

ByVal filename As String, ByVal snd_async As Long

[alwaled_13]

شكرا علي العرض القيم

هل يمكن تشغيل مقاطع mp3 أيضا؟؟

 

[ابو جودي]

منذ ساعه, alwaled_13 said:

شكرا علي العرض القيم

هل يمكن تشغيل مقاطع mp3 أيضا؟؟

 

طيب للاسف لا بتلك الطريقة لا يعمل ولكن ممكن من خلال اضافة ActiveX media player 

انظر الى هذا الموضوع 

 

تم تعديل يناير 1, 2022 بواسطه ابو جودي