[ALIGN=CENTER]Creating Multimedia Applications[/ALIGN] [ALIGN=CENTER]انشأ تطبيق ملتي مديا[/ALIGN] [ALIGN=JUSTIFY]يمكنك انشأ تطبيقات ملتي ميديا مختلفة بواسطة الفيجوال بيسك , التي تقدر تشغل الـِAudio CD ملفات الصوت , والـVideo CD ملفات الفيديو الخ ...... لكي تكون لديك القدرة على هذا العمل , كل ما تحتاجة من ادوات هو التالي :[/ALIGN] اولاً :-الحصول على الـMM control وذلك بالضغط على Ctrl + T تظهر لك نافذة كالصورة التالية اختر منها Microsoft Multimedia Control 6.0 كما هو في الصورة.. ثالثاً :- بعدها اختر الادوات التالية من الـToolBox ..... 1-ComboBox 2-DriveListBox 3-DirListBox 4-TextBox 5-FileListBox ادرج الادوات السابقة في الـForm1 كما في الصورة : لاتنسى تضع ثلاثة ازرار command (اجعل خاصية الاسم لكل واحد منها على التوالي Play, Stop ,Exit ) (خاصية الـCaption هي نسفها خاصية الاسم كما في الصورة السابقة ) ثالثاً :- خصائص الادوات .... اجعلها كما هي افتراضياً لكل الادوات , عدا الـMM control غير خاصية الـName= AudioPlayer ... خاصية الـVisible =false ............ رابعاً :- الكود 1- تحت الـForm_Load ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Form_Load Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2 "Combo1.Text = "*.wav "Combo1.AddItem "*.wav "Combo1.AddItem "*.mid "Combo1.AddItem "All files End Sub[/ALIGN] 2- تحت الـCombo1_Change ضع الكود التالي : [ALIGN=LEFT] Private Sub Combo1_Change() If ListIndex = 0 Then ("File1.Pattern = ("*.wav ElseIf ListIndex = 1 Then ("File1.Pattern = ("*.mid ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.dat ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.dat Else ("*.*")=Fiel1.Pattern End If End Su b [/ALIGN] 3- تحت الـDir1_Change ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Dir1_Change File1.Path = Dir1.Path If Combo1.ListIndex = 0 Then ("File1.Pattern = ("*.wav ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.mid ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.mp3 ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.dat Else ("*.*")=File1.Pattern End If End Sub [/ALIGN] 4- تحت الـDrive1_Change ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Drive1_Change Dir1.Path = Drive1.Drive End Sub [/ALIGN] 5- -تحت الـFile_Click ضع الكود التالي : [ALIGN=LEFT] ()Private Sub File1_Click If Combo1.ListIndex = 0 Then ("File1.Pattern = ("*.wav ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.mid ElseIf Combo1.ListIndex = 1 Then ("File1.Pattern = ("*.mp3 Else ("*.*")=File1.Pattern End If If Right(File1.Path, 1) <> "\" Then filenam = File1.Path + "\" + File1.FileName Else filenam = File1.Path + File1.FileName End If Text1.Text = filenam End Sub [/ALIGN] 6- تحت زر الـCommand (Play_Click) ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Play_Click If Combo1.ListIndex = 0 Then "AudioPlayer.DeviceType = "WaveAudio ElseIf Combo1.ListIndex = 1 Then "AudioPlayer.DeviceType = "Sequencer"End If AudioPlayer.FileName = Text1.Text "AudioPlayer.Command = "Open "AudioPlayer.Command = "Play End Sub [/ALIGN] 7- تحت زر الـCommand = ايقاف (Stop_Click) ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Stop_Click If AudioPlayer.Mode = 524 Then Exit Sub If AudioPlayer.Mode <> 525 Then AudioPlayer.Wait = True "AudioPlayer.Command = "Stop End If AudioPlayer.Wait = True "AudioPlayer.Command = "Close End Sub [/ALIGN] 8- تحت زر الـCommand= اغلاق (Exit_Click) ضع الكود التالي : [ALIGN=LEFT] ()Private Sub Exit_Click End End Sub [/ALIGN] رابعاً : شغل التطبيق بالضغط على F5 واختر الاْغاني التي تشتي تشغلها من المكان المخزنة فية . المزيد من الدروس والامثلة للمبتدئين ستجدوها على الرابط التالي هنا حيث الدرس السابق واحد منها ...

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

مشكور أخي بسام على المواضيع الجميلة .,.,.,., بصراحة سلمت يداك .,.,.,.,

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

تســلم أخي بســــام والله ما قصرت ... موضوع حلو جدا .. تحياتي لك عدد حروفك

نص مقتبس من رسالة : Hani Mana'a اقتباس تســلم أخي بســــام والله ما قصرت ... موضوع حلو جدا .. تحياتي لك عدد حروفك تسلم اخي على الرد الجميل

تسلم ياعمري والله انك ماقصرت وجزاك الله خيرا

برنامج جميل تحياتي