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

[iMido]

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


بمناسبه اول الف مشاركه ليا فى المنتدى عملت التوبيك ده

كيفيه عمل مديا بلاير كااامل حصرى فقط على Silkroad4arab

المشروع عباره عن برنامج مديا بلاير مصمم فى ورشه S4A بواسطه اسطى : mrnuker00
يعنى مش منقوول :mf_chieftain:

المشروع هيكون بلغه الـ VB.net عباره عن اجزاء كل يوم جزء او اتنين

و ليا بس طلب صغير كده
الردوووود


الردود يا رجاله عايزين نخلى الموضوع فى سقف القسم عشان ميختفيش ما بين الصفح :in_love:


نبدا بسم الله

[iMido]

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

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

ثانيا : نسيت اكتب ان الشرح مصور :helmetsmiley:
ثالثا : الشرح :sneaky2:

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

http://www9.0zz0.com/2012/05/17/10/369753982.png

http://www9.0zz0.com/2012/05/17/10/148984501.png

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

http://www9.0zz0.com/2012/05/17/10/810602968.png

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

http://www9.0zz0.com/2012/05/17/11/930986428.png

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

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

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

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

مع تحياتـ\ـى :111 (11):

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


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

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

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

كود البوتون رقم 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()

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

بالسلامه :basketball::basketball:

[Mįďő]

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

[Sky_AnGel]

تسلم يا برنس ع طريقة

[Delivery]

احنا جبنا الباكو معا بعض
مستنين منك يا برنس الشرح

[iMido]

تم اضافه الجزء الاول

[CError]

تسلم يا برنس

:happybday:

[poiu]

أولا مبوك ع الياكو الأول ‏:‏)‏

بجد الموضوع جميل جدا ‏:‏)‏

[iMido]

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

[™~BeSo~™]

تسلم يا غالي

[CHeeToS]

مبلول ع الباكو
:princess_h4h:
وتسلم ع الموضوع
:brow:
وابعتلى رابط الفيجوال لانى usb
:111 (12):
بس لو عرفت تدخل اكواد البث بالهيكس هعتزل
:giggle:

[iMido]

تم اضافه الجزء الثانى :roll1::roll1:
و يا دياب انا مفهمتش منك حاجه خااااالص

[iMido]

مبلول ع الباكو
:princess_h4h:
وتسلم ع الموضوع
:brow:
وابعتلى رابط الفيجوال لانى usb
:111 (12):
بس لو عرفت تدخل اكواد البث بالهيكس هعتزل
:giggle:


مبلول .... ماشى يا حاج

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

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

[™ No_Name ™]

تسلم يا برنس

ومبروك ال 1000 مشاركه :kiss:

[☜ ĂиTaKą ☞]

:wub2:

Thx Bro

[Little.Tornado]

موضوع جامد بس انا معرفش VB.net اساسن انا دة كدة هخدها النسة الجية فى 3 اعدادى وانا بحب الحجات دى اساسن وكمان هخدها فى التدريب الصيفى بيتاع المدرسة بس بعد امتحنات الثانوى

[ahmedtarek90]

TY
هطير انا :superman: