عبسي الحمديني
2011-09-13, 06:47 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في هذا الدرس اليوم سوف أقوم بتعليمكم كيفية عمل برنامج لتشغيل ملفات الصوت ( الملتميدا ) بأسهل طريقة و باستخدام أداة MMControl نقوم بالبدء بدرس على بركة الله بداية نقوم بفتح برنامج فيجوال بيسك ونقوم باختيار مشروع قياسي Stander.exe فور فتح المشروع نقوم بإضافة أداة MMControl وهي الأداة الأساسية في برنامجنا الذي سوف يعتمد تشغيل الصوت عليها بالطريقة الآتية نقوم بالضغط على زر Ctrl + T ليفتح لنا مربع حوار كما في الصورة أدناه نختار منه Microsoft Multimedia Control 6.0
بعد ذلك نعلم الاختيار الذي بجانب اسم الأداة ونقوم بالضغط على زر Ok مباشرة لنلاحظ ظهور الأداة على شريط الأدوات وهي صالحة للاستخدام نقوم بنفس الطريقة السابقة بإضافة أداةControl 6 Microsoft Common Dialog التي تستخدم لفتح مربع حوار لاختيار ملف نقوم بإضافة الأداتان على واجهة البرنامج بالضغط عليها نقرا مزدوجا أو عن طريق السحب والإفلات على واجهة الإطار...بعد أن قمنا بالخطوات السابقة نقوم بإنشاء الأدوات التي سوف نحتاجها للمشروع سوف نحتاج إلى خمسة أزرار أمر للقيام بالعمليات المختلفة من فتح الملف الصوتي إلى إغلاقه والخيارات الأخرى ونقوم أيضا بإضافة مربع نص واحد ليظهر لنا مسار الملف الصوتي فور أنشاء جميع الأدوات السابقة نقوم بتسميتها وترتيبها
ألان نبدأ الدخول في عالم الشفرات المصدرية أي أقصد نبدأ بكتابة اكواد المشروع التي سوف تحدد سير عمل البرنامج نبدأ بالزر Load الذي سوف تكون وظيفته هي فتح مربع حوار خاص للمستخدم لكي يختر الملف الصوتي الذي يود تشغيله وفور اختياره له يقوم بتشغيله الكود سوف يكون كآلاتي
Private Sub Command1_Click()
CommonDialog1.ShowOpen
MM.FileName = CommonDialog1.FileName
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
شرح الكود السابق :
في السطر الأول قمنا بعرض مربع حوار للمستخدم لكي يتمكن من اختيار الملف الصوتي الذي يود تشغيله من خلال الأداة Common Dialog والخاصية ShowOpen إما في السطر الثاني فقد أعطينا مسار الملف الصوتي للأداة MMControl والذي = مسار الملف الذي قد اختاره المستخدم من مربع الحوار بعدها وفي السطر الثالث قمنا بكتابة كود لإغلاق إي ملف صوتي قد يكون مفتوح سابقا لولا هذا الكود سوف نفقد السيطرة على تشغيل الملف فور اختيار ملف ثاني إما بالنسبة للسطر الذي يليه فهو خاص لفتح الاتصال بينه وبين الملف الصوتي الذي تم تحديده سابقا من خلال المسار الذي تم إسناده والكود الأخير لبدأ تشغيل الملف الصوتي يمكنك تجربة البرنامج بكل سهولة ألان ولتأكد من عمله بالضغط على زر F5 بالكيبورد بعد تأكدك من عمل المشروع نقوم بالانتقال إلى الزر التالي والكود التالي
كود توقيف الملف الصوتي مؤقتا لتشغيله بعد ذلك من المكان الذي تم إيقافه به
Private Sub Command2_Click()
MMControl1Command = "Pause"
End Sub
الكود السابق بسيط جدا قمنا فقط بإعطاء أمر للأداة بالتوقف المؤقت عن تشغيل الملف وسوف يكون الكود التالي عكس السابق وهو لبدأ تشغيل الملف من جديد
Private Sub Command3_Click()
MMControl1.Command = "Play"
End Sub
بالنسبة للشرح فهو فقط أمر يعطى لأداة لبدأ تشغيل الملف الصوتي سواء كان التوقف مؤقت أو غير مؤقت والزر التالي وكوده هو لتوقف تشغيل الملف مع إرجاعه للبداية سوف يكون الكود بكل بساطة
Private Sub Command4_Click()
MMControl1.Command = "Stop"
End Sub
وشرح هو أيضا أمر لتوقيف الملف وإرجاعه للبداية بقى لنا كود الزر الأخير وهو كود الخروج من البرنامج الذي سوف يكون كالأتي
Private Sub Command5_Click()
End
End Sub
ألان أصبح لدينا برنامج ملتميدا متكامل يقوم بتشغيل الملفات الصوتية وتوقيفها إلى الخ ... ما ينقصنا في هذا البرنامج هو أمران الأول كود إظهار مسار الملف الذي يتم تشغيله في مربع النص وكود تسريع أو تأخير الملف الصوتي لتنفيذ الأمران السابقان قم بإضافة أداة Timer وشريط التمرير الأفقيBar HScroll نقوم بضبط خاصية Interval للتايمر الى 100 وقم بإضافة الكود الأتي
Private Sub Timer1_Timer()
Text1.Text = "Song Path : " & MMControl1.FileName
HScroll1.Max = MMControl1.Length
HScroll1.Value = MMControl1.Position
End Sub
شرح الكود السابق في السطر الأول قمنا بتحديد النص الذي سوف يقام بإظهاره داخل أداة Text Box وهو عبارة مسار البرنامج + مسار الملف المفتوح داخل أداة التشغيل وبالنسبة للسطر الثاني فقد أسندنا أقصى قيمة لشريط التمرير وهي طول الملف الصوتي وضبطنا أيضا موقعه وهو موقع الملف الصوتي بقى لنا ألان إضافة كود واحد فقط ليتم تفعيل شريط التمرير وليقوم بتسريع وتأخير عمل الملف الصوتي وهو
Private Sub HScroll1_Scroll()
If MMControl1.FileName = "" Then
Exit Sub
End If
Timer1.Interval = 0
MMControl1.Command = "Stop"
MMControl1.From = HScroll1.Value
MMControl1.Command = "Play"
Timer1.Interval = 1000
End Sub
في السطر الأول قمنا بالتحقق من المسار المفتوح فإذا كانت القيمة = "" إي لا شيء لا يوجد ملف مفتوح يقوم بالخروج من الإجراء تفاديا للخطأ لمحاولة تسريع أو تأخير ملف صوتي وهمي غير موجود بعد ذلك End If نهاية جملة التحقق إما بالنسبة لسطر الذي يليه فهو لتوقيف عمل التايمر إذا سألتني لما قمنا بإيقافها سوف أجيب عليك بالقول إننا وضعنا في التايمر كود لتحديد قيمة موقع الشريط فإذا أردنا تحريكه سوف يقوم الكود السابق بإرجاعه إلى موقعه في كل مره نقوم بسحبه بها والكود الذي يليه لتوقيف الملف والاستعداد لتشغيل من المكان الذي سوف يستقر عليه المؤشر بعد ذلك في السطر التالي قمنا بإسناد الموقع الذي سوف يقوم البرنامج ببدء التشغيل منه من خلال الخاصية Form بعد ذلك بدأ التشغيل وإرجاع تفعيل التايمر فور تنفيذ الكود
بقلم : المبرمج أحمد فراس نبيل
السلام عليكم ورحمة الله وبركاته
في هذا الدرس اليوم سوف أقوم بتعليمكم كيفية عمل برنامج لتشغيل ملفات الصوت ( الملتميدا ) بأسهل طريقة و باستخدام أداة MMControl نقوم بالبدء بدرس على بركة الله بداية نقوم بفتح برنامج فيجوال بيسك ونقوم باختيار مشروع قياسي Stander.exe فور فتح المشروع نقوم بإضافة أداة MMControl وهي الأداة الأساسية في برنامجنا الذي سوف يعتمد تشغيل الصوت عليها بالطريقة الآتية نقوم بالضغط على زر Ctrl + T ليفتح لنا مربع حوار كما في الصورة أدناه نختار منه Microsoft Multimedia Control 6.0
بعد ذلك نعلم الاختيار الذي بجانب اسم الأداة ونقوم بالضغط على زر Ok مباشرة لنلاحظ ظهور الأداة على شريط الأدوات وهي صالحة للاستخدام نقوم بنفس الطريقة السابقة بإضافة أداةControl 6 Microsoft Common Dialog التي تستخدم لفتح مربع حوار لاختيار ملف نقوم بإضافة الأداتان على واجهة البرنامج بالضغط عليها نقرا مزدوجا أو عن طريق السحب والإفلات على واجهة الإطار...بعد أن قمنا بالخطوات السابقة نقوم بإنشاء الأدوات التي سوف نحتاجها للمشروع سوف نحتاج إلى خمسة أزرار أمر للقيام بالعمليات المختلفة من فتح الملف الصوتي إلى إغلاقه والخيارات الأخرى ونقوم أيضا بإضافة مربع نص واحد ليظهر لنا مسار الملف الصوتي فور أنشاء جميع الأدوات السابقة نقوم بتسميتها وترتيبها
ألان نبدأ الدخول في عالم الشفرات المصدرية أي أقصد نبدأ بكتابة اكواد المشروع التي سوف تحدد سير عمل البرنامج نبدأ بالزر Load الذي سوف تكون وظيفته هي فتح مربع حوار خاص للمستخدم لكي يختر الملف الصوتي الذي يود تشغيله وفور اختياره له يقوم بتشغيله الكود سوف يكون كآلاتي
Private Sub Command1_Click()
CommonDialog1.ShowOpen
MM.FileName = CommonDialog1.FileName
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
شرح الكود السابق :
في السطر الأول قمنا بعرض مربع حوار للمستخدم لكي يتمكن من اختيار الملف الصوتي الذي يود تشغيله من خلال الأداة Common Dialog والخاصية ShowOpen إما في السطر الثاني فقد أعطينا مسار الملف الصوتي للأداة MMControl والذي = مسار الملف الذي قد اختاره المستخدم من مربع الحوار بعدها وفي السطر الثالث قمنا بكتابة كود لإغلاق إي ملف صوتي قد يكون مفتوح سابقا لولا هذا الكود سوف نفقد السيطرة على تشغيل الملف فور اختيار ملف ثاني إما بالنسبة للسطر الذي يليه فهو خاص لفتح الاتصال بينه وبين الملف الصوتي الذي تم تحديده سابقا من خلال المسار الذي تم إسناده والكود الأخير لبدأ تشغيل الملف الصوتي يمكنك تجربة البرنامج بكل سهولة ألان ولتأكد من عمله بالضغط على زر F5 بالكيبورد بعد تأكدك من عمل المشروع نقوم بالانتقال إلى الزر التالي والكود التالي
كود توقيف الملف الصوتي مؤقتا لتشغيله بعد ذلك من المكان الذي تم إيقافه به
Private Sub Command2_Click()
MMControl1Command = "Pause"
End Sub
الكود السابق بسيط جدا قمنا فقط بإعطاء أمر للأداة بالتوقف المؤقت عن تشغيل الملف وسوف يكون الكود التالي عكس السابق وهو لبدأ تشغيل الملف من جديد
Private Sub Command3_Click()
MMControl1.Command = "Play"
End Sub
بالنسبة للشرح فهو فقط أمر يعطى لأداة لبدأ تشغيل الملف الصوتي سواء كان التوقف مؤقت أو غير مؤقت والزر التالي وكوده هو لتوقف تشغيل الملف مع إرجاعه للبداية سوف يكون الكود بكل بساطة
Private Sub Command4_Click()
MMControl1.Command = "Stop"
End Sub
وشرح هو أيضا أمر لتوقيف الملف وإرجاعه للبداية بقى لنا كود الزر الأخير وهو كود الخروج من البرنامج الذي سوف يكون كالأتي
Private Sub Command5_Click()
End
End Sub
ألان أصبح لدينا برنامج ملتميدا متكامل يقوم بتشغيل الملفات الصوتية وتوقيفها إلى الخ ... ما ينقصنا في هذا البرنامج هو أمران الأول كود إظهار مسار الملف الذي يتم تشغيله في مربع النص وكود تسريع أو تأخير الملف الصوتي لتنفيذ الأمران السابقان قم بإضافة أداة Timer وشريط التمرير الأفقيBar HScroll نقوم بضبط خاصية Interval للتايمر الى 100 وقم بإضافة الكود الأتي
Private Sub Timer1_Timer()
Text1.Text = "Song Path : " & MMControl1.FileName
HScroll1.Max = MMControl1.Length
HScroll1.Value = MMControl1.Position
End Sub
شرح الكود السابق في السطر الأول قمنا بتحديد النص الذي سوف يقام بإظهاره داخل أداة Text Box وهو عبارة مسار البرنامج + مسار الملف المفتوح داخل أداة التشغيل وبالنسبة للسطر الثاني فقد أسندنا أقصى قيمة لشريط التمرير وهي طول الملف الصوتي وضبطنا أيضا موقعه وهو موقع الملف الصوتي بقى لنا ألان إضافة كود واحد فقط ليتم تفعيل شريط التمرير وليقوم بتسريع وتأخير عمل الملف الصوتي وهو
Private Sub HScroll1_Scroll()
If MMControl1.FileName = "" Then
Exit Sub
End If
Timer1.Interval = 0
MMControl1.Command = "Stop"
MMControl1.From = HScroll1.Value
MMControl1.Command = "Play"
Timer1.Interval = 1000
End Sub
في السطر الأول قمنا بالتحقق من المسار المفتوح فإذا كانت القيمة = "" إي لا شيء لا يوجد ملف مفتوح يقوم بالخروج من الإجراء تفاديا للخطأ لمحاولة تسريع أو تأخير ملف صوتي وهمي غير موجود بعد ذلك End If نهاية جملة التحقق إما بالنسبة لسطر الذي يليه فهو لتوقيف عمل التايمر إذا سألتني لما قمنا بإيقافها سوف أجيب عليك بالقول إننا وضعنا في التايمر كود لتحديد قيمة موقع الشريط فإذا أردنا تحريكه سوف يقوم الكود السابق بإرجاعه إلى موقعه في كل مره نقوم بسحبه بها والكود الذي يليه لتوقيف الملف والاستعداد لتشغيل من المكان الذي سوف يستقر عليه المؤشر بعد ذلك في السطر التالي قمنا بإسناد الموقع الذي سوف يقوم البرنامج ببدء التشغيل منه من خلال الخاصية Form بعد ذلك بدأ التشغيل وإرجاع تفعيل التايمر فور تنفيذ الكود
بقلم : المبرمج أحمد فراس نبيل