كيف اجعل MMControl تقرأ من قاعدة بيانات

للرفع

أخي الكريم لقد قمت بعمل مثال يوضح كيفية قراءة اسم ملف الصوت من الجدول ثم تشغيله ببحيث تقوم بتخزين ملفات الصوت في مجلد البرنامج وتخزن اسم ملف الصوت في الجدول وعند التنقل في النموذج يوجد كود في الحالي يقوم بقراءة اسم الملف الموجود في مربع النص ثم يقوم بتشغيله.

أطلع على المثال وإذا رغبت في أي شرح عن الأكواد فأخبرني عن ذلك مع أنها سهله وقصيرة ولا تحتاج إلى شرح ولكن لا مانع لدي أن أريدت ذلك

SoundProgram.rar

السلام عليكم

الأخ مصلح , بارك الله فيك , الحقيقة وكما قلت أنه كود قصير , لكنه رائع , الله يعطيك العافية

لو سمحت أرجو أن تعملوا مشاركات تشرح طريقة التعامل مع مكتبات DLL ودوال API للأشياء الأكثر استخداماً التي يتطلبها عمل أي مبرمج مع شرح بسيط , بحيث نضع قدمنا على أول الدرب .

مع الشكر الجزيل لكم ولوقت الذي تبذلوه في خدمة أخوتكم في هذا المنتدى.

السلام عليكم

اخي الفاضل مصلح الحريصي

جزاك الله كل خير علي المعلومة

لما طال غياب الاجابة كنت علي وشك أن تنهار ثقتي بالاكسس

لاني علي يقين تام ان اي برنامج خاص بقواعد بيانات الاكسس يصنع بالفاجوال يمكن ان يصنع بالاكسس

والأن الحمد لله ان ثقتي بالاكسس لم تنهار لاني اعشق هذا البرنامج رغم قلة خبرتي به

انا صممت نفس الفكرة علي الفاجوال ولكن كنت اطمع ان انفذها علي الاكسس ايضا

جزاك الله خيرا اخي الفاضل

اسمحلي ان اتثاقل عليك في الشرح لو سمحت

لاني لم اجد في النموذج اي اداة تقوم بعمل الصوت

واضم صوتي لصوت الاخ الفاضل ammar_zaid في طلبه لانه فعلا يكون مفيد

لا نحتاج هنا لأي أداه سو الأتي :

السطر التالي في وحدة نمطية عامة

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

بعد ذلك وفي حدث في ( الحالي ) للنموذج قمنا بالإعلان عن متغيرين هما

Dim R As Long

مسار التشغيل

Dim F As String

تحديد مسار ملف الصوت الموجود في المجلد

في السطر التالي :

F = Application.CodeProject.Path & "\" & Me![Txt2] & ".wav"

استخدمن الــ Path لتحديد مكان ملف الأصوات التي نريد تشغيلها وكان من المفترض أن يكون سطر الأمر كالتالي :

 R = sndPlaySound(Application.CodeProject.Path & "\CLOSE.wav", &H1)

ولكن هذا الأمر لا يفيدنا لأنه لا يمكننا تشغيل سوى ملف صوتي واحد وهو الموجود في هذا المقط

"\CLOSE.wav

وبما أننا نريد تشغيل الملف الصوتي الموجود اسمه في مربع النص المسمى Txt2 فقد استخدمنا المقطع التالي :

Path & "\" & Me![Txt2] & ".wav"

فهذا المقطع يجعل قراءة ملف الصوت لأسم الملف الموجود في مربع النص.

في المثال الذي أرفقته لك يمكنك أضافة أي ملف صوتي بشرط أن تضيف اسم ذلك الملف في الجدول

كذلك يمكنك جعل مجلد خاص بالأصوات داخل مجلد البرنامج بدلا من جعل ملفات الصوت منثرة حول قاعدة البيانات

طبعاً لكل مبرمجة أسلوبه وطرقة ولو تركز على أساليب المبرمجين ستجدهم يختلفون في طرقهم مع أن الغاية واحدة وهي الوصول إلى الهدف الذي يريده

جزاك الله كل خير اخونا مصلح الحريصي علي الشرح والافاده