الرئيسية
| الحمد لله على إحسانه والشكر له على توفيقه وامتنانه وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه وأشهد أن محمدا عبده ورسوله الداعي إلى رضوانه صلى الله عليه وعلى صحبه وإخوانه وبعد : السلام عليكم ورحمة الله وبركاته أهلا بكم أحبتي في الله طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله أهلا وسهلا بكم .  اليوم اخوتي الكرام سأقدم لكم درس حول التعامل مع الأداة الجميلة Windows Media Player من أجل صنع قارئ mp3 خاص بك الدرس ان شاء الله سيكون بسيط و مفهوم للجميع و الأكواد ستكون ان شاء الله واااضحة و من يجد مشكل لا يتردد في اخباري ننطلق للشرح بدون اطالة  أولا و كالعادو نفتح البرنامج و نختر مشروع exe  https://2img.net/r/ihimizer/img263/2928/86834048.jpg بعد أن فتحنا مشروع جديد نتوجه الى اضافة كل من الأداتين Microsoft Common Dialog (لفتح الأغاني) Windows Media Player (هي الأساس ) و لضافتهما نتبع التالي  https://2img.net/r/ihimizer/img46/268/87604998.jpg ثم نبحث عن Microsoft Common Dialog  https://2img.net/r/ihimizer/img52/700/78178087.jpg ثم ننزل للأسفل و نبحث عن Windows Media Player  https://2img.net/r/ihimizer/img246/1111/65536109.jpg الآن بعد أن أضفنا الأدوات نتوجه الى توزيع بعض المكونات على الفورم سنضع 5 أزرار command 1 Common dialog و 1 Media player و نوزعهم كما في الصورة  https://2img.net/r/ihimizer/img46/6727/15970499.jpg ثم نعدل على تسميات الأزرار كما يلي  https://2img.net/r/ihimizer/img52/3650/29729353.jpg و نجعل خاصية ظهور أداة windows media player = false  https://2img.net/r/ihimizer/img130/2531/13870041.jpg و نعدل على اسمها كذلك كما يلي  https://2img.net/r/ihimizer/img130/6961/64019717.jpg ثم نعدل على تسمية Common dialog كما يلي  https://2img.net/r/ihimizer/img130/1615/93036027.jpg ثم الآن نعدل على حجم الفورم و هذا حسب ما يناسبكم  https://2img.net/r/ihimizer/img693/8859/35819169.jpg انتهينا الآن من اعداد الواجهة ننطلق الى الأكواد الآن نتوجه الى كود الزر الأول play هاهي الصورة توضح الكود  https://2img.net/r/ihimizer/img710/2348/91700516.jpg أو من هنا للنسخ Private Sub Command1_Click() If Command1.Caption = "Play" Then wmp.Controls.play Command1.Caption = "Pause" ElseIf Command1.Caption = "Pause" Then wmp.Controls.pause Command1.Caption = "Play" End If Command2.Enabled = True End Sub الآن الزر التاني Stop  https://2img.net/r/ihimizer/img294/3478/73140562.jpg أو انسخ من هنا Private Sub Command2_Click() wmp.Controls.stop Command2.Enabled = False End Sub الآن الزر الثالث الزر open  https://2img.net/r/ihimizer/img510/4443/81841664.jpg أو انسخ من هنا Private Sub Command3_Click() cmd.DialogTitle = "open Song" cmd.Filter = "Fichier mp3|*.mp3|Fichier wma|*.wma|all files|*.*" cmd.ShowOpen If cmd.FileName = "" Then Exit Sub wmp.URL = cmd.FileName Command1.Caption = "Pause" Command2.Enabled = True End Sub الآن الزريين v+ و v-  https://2img.net/r/ihimizer/img215/9146/34466763.jpg و  https://2img.net/r/ihimizer/img502/5080/62539995.jpg و هاهي أكوادهما Private Sub Command4_Click() wmp.settings.volume = wmp.settings.volume + "50" End Sub و هذا لـ v - Private Sub Command5_Click() wmp.settings.volume = wmp.settings.volume - "50" End Sub و أخيرا كود الحدث Form_load حيث سنجعل فعالية الزر Stop غير متوفرة و يمكن الاستغناء عن هذه الخطوة بالتعديل مباشرة على خاصية Enabled للزر لكن للأسف لم أنتبه المهم هاهو الكود Private Sub Form_Load() Command2.Enabled = False End Sub الآن نأتي للختام و اترككم تجربون برنامجكم و تعدلون عليه و هاهو السورس + صور الشرح للتحميل من هنا   vbgang |
بحـث
المواضيع الأخيرة
التبادل الاعلاني
ازرار التصفُّح
اخبار العراق
تحميل صور
تحميل ملفات الصور
العلم يدعو للايمان
المنتدى في اخبار !! ادخل وشوف ؟؟
أفضل 10 أعضاء في هذا المنتدى
| الاميره - 1016 |
| |||
| Hero - 820 |
| |||
| الودق - 755 |
| |||
| مــــازن الشمري - 708 |
| |||
| عذب الاحساس - 407 |
| |||
| find me - 405 |
| |||
| طالبة الفيزياء - 338 |
| |||
| نجوم السماء - 288 |
| |||
| الوردة الحمراء - 244 |
| |||
| yours moha - 242 |
|
الساعة
اذاعة القران الكريم
2 مشترك
~~ تعلم صنع برنامج قارئ للصوتيات -خاص بالمبتدئين - ~~
سبايكي- ضيف كريم
- عدد المساهمات : 9
تاريخ التسجيل : 06/05/2010
- مساهمة رقم 1
~~ تعلم صنع برنامج قارئ للصوتيات -خاص بالمبتدئين - ~~
من طرف سبايكي الخميس مايو 06, 2010 11:16 am
الاميره- المبدع الذهبي
- عدد المساهمات : 1016
تاريخ التسجيل : 21/02/2010
العمر : 35
- مساهمة رقم 2
رد: ~~ تعلم صنع برنامج قارئ للصوتيات -خاص بالمبتدئين - ~~
من طرف الاميره الثلاثاء يوليو 13, 2010 1:32 am
شكرا
» رمضان مبارك
» اقتراح للادارة !!
» سلام خاص الى استاذي الغالي
» نظائر الكلور
» الصداقة الحقيقية
» الابتسامة وفوائدها
» العمليات الكيميائية لاستخلاص غاز الكلور
» هل تعلم