الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه tamer_kh_5251 في 9 مايو 2007 · 6 رد · 790 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذا السؤال كان موجه الي منتدي الفاجوال ولكن خمنت انه يمكن ان يحل في منتدي الاكسس فأعدت ادراج السؤال للأكسس

او بمعني اخر فكرت انه ربما امكنني ان احل المشكلة بالاكسس بدلا من الفاجوال

وهذه فكرة البرنامج عموما

اقوم بعمل برنامج لجمعية خيرية وواجهتني مشكلة وهي

اريد ان اربط بين اداه الصوت وهي MMControl مع داتا بيز بحيث تقرأ منها حقل معين

وللتوضيح

قمت بعمل قاعدة بيانات بها عدد 3 حقول الاول معرف مفتاح رئيسي والتاني للصورة ونوعه OLE والثالث للصوت ونوعه ايضا OLE

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

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

ولو كان غير ممكن فكيف اجعل الريال بلير يعمل تلقائي مع التنقل بين السجلات علما ان الصوت المدرج ليس كبيرا وانما بعض الكلمات القصيرة

في انتظار الاخوة ولكم جزيل الشكر مقدما علي التواصل

#3

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

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

SoundProgram.rar

#4

السلام عليكم

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

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

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

السلام عليكم

قالَ رَسُولُ الله صلى الله عليه وسلم:

"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "

حديث حسن صحيح

#5

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

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

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

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

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة tamer_kh_5251 في 15 مايو 2007 في 08:15

#6

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

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

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"

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

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة