بمناسبه اول باكو ( كيفيه عمل مديا بلاير كامل متكامل ) حصرى على s4a

[iMido]

بسم الله الرحمن الرحيم

اولا شكرا ع الردود الحلوه دى يا شباب

ثانيا : نسيت اكتب ان الشرح مصور y.png" border="0" alt="" title="Helmety" class="inlineimg" />
ثالثا : الشرح

اول حاجه هتفتح مشروع جديد و تسميه زى م انتا عايز
و تظبط الحجم براحتك
بعدين تروح عالتول بوكس و تضغت كليك يمين علشان تضيف ال اداه WMP او windows media player
زى الصوره دى من الاخر





و بعدين نحط الاداه ع الفورم و نضبط حجمها براحتنا
بس مننساش نغير الخاصيه uiMode الى none



و بعدين نحط الادوات الى فى الصوره الجايه عالفورم



اهميه كل اداه :

البوتون رقم 1 ده لتحميل الاغنيه للبرنامج
البوتون رقم 2 للتشغيل و الايقاف المؤقت
البوتون رقم 3 لعمل ستوب
4و5 للفاست فوروارد ف الفاست ريفرس
7و8 دول بتوع ال بلاي ليست ( حذف الكل و حذف المحدد)
باقى الادوات وظيفتهم مكتوبه عالصوره

لحد هنا يكون خلص الجزء الاول الى هو تصميم واجه البرنامج و طبعا انا عاملها بسيطه علشان تعليمى
انما انا عايز كل واحد يبدع مع نفسه

و موضوع الدرس الثانى هيكون عن ( الاكواد ) روح البرنامج

مع تحياتـ\ـى

بسم الله نبدأ الجزى الثانى
الاكواد


قبل اى حاجه حط الكود ده فى حدث Load للفورم الاساسى

openfiledialog.Filter = "Media Files(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.avi;*.asf;*.3gp;*.mov;*.divx;*.swf;*.flv;*.bmp;*.png;*.jpg;*.jepg;*.gif)|*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.avi;*.asf;*.3gp;*.mov;*.divx;*.swf;*.flv;*.bmp;*.png;*.jpg;*.jepg;*.gif|AllFiles(*.*)|*.*"

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

كود البوتون رقم 1

On Error Resume Next

If openfiledialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then             Exit Sub         End If         AxWindowsMediaPlayer1.URL = openfiledialog.FileName         ListBox1.Items.Add(openfiledialog.FileName)

الشرح :
اول سطر خالص ده علشان البجس و الاخطاء العابره متظرش للمستخدم او تسبب توقف البرنامج هن العمل
و بقيت الكود بيضيف الماده المراد تشغيلها للبلاى ليست و للبرنامج و البرنامج بدوره بيشغلها

كود البوتون رقم 2

On Error Resume Next

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then             AxWindowsMediaPlayer1.Ctlcontrols.pause()         Else             AxWindowsMediaPlayer1.Ctlcontrols.play()         End If

الشرح :
اول سطر اتشرح مره و هتلاقوه كتير على فكره
و باقى الكود اهميته ان لو الماده الموسيقيه شغاله يوقفها و لو واقفا يشغلها

كود البوتون رقم 3

On Error Resume Next         AxWindowsMediaPlayer1.Ctlcontrols.stop()

لعمل ستوب للماده الموسيقيه و يجيبها من الاول

كود البوتون رقم 4

AxWindowsMediaPlayer1.Ctlcontrols.fastForward()

لعمل فاست فوروارد

كود البوتون رقم 5

AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()

و معلش علشان اللخبطه فى الشرح و ترتيب الاجزاء البوتونز بتوع البلاى ليبت هيتشرحو معاها
فى الجزء الثالث بعون الله

بالسلامه

[Mįďő]

مبروك يا باشا عقبال 100 ألف