قارىء mp3بالفيجوال بيسك

[Mohamed math]

الدرس الثاني من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة قارئ Mp3 )

اتبع الخطوة :

1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

-----------
2- اضافة الأدوات :

يلزمنا اداتي MMControl و Slider و CommonDialog لاضافتها
اضغط Ctrl + T
اختر من القائمة Microsoft Multimedia Control لاضافة MMControl
ومن ثم اختر من القائمة Microsoft Windows Common Controls لاضافة Slider
ومن ثم اختر من القائمة Microsoft Common Dialog Control لاضافة CommonDialog
ثم Ok
سوف تلاحظ ظهور العديد من الادوات اختر منهم MMControl و Slider و CommonDialog واضفهم الى المشروع
ثم اضف ايضا

4 Commandbutton
1 Timer
1 List

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



-----------
3- الآن وقت تغيير الخصائص

~~~~~~~~~
خصائص Form

Mp3 قارئ = Form1.Caption

لجعل اسم البرنامج ( Mp3 قارئ )

Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط

~~~~~~~~~
خصائص ال Slider

Slider1.TickStyle = sldNoTicks
لتغيير شكله

~~~~~~~~~
خصائص ال MMControl

MMControl1.Visible = False
لاخفائها عند التشغيل

~~~~~~~~~
خصائص ال Timer1
Timer1.Interval = 100
لكي يعمل

~~~~~~~~~
خصائص ال Commandbutton

إضافة = Command1.Caption
تشغيل = Command2.Caption
إعادة = Command3.Caption
حذف = Command4.Caption

لتصبح كما في الصورة



-----------
4- الآن نكتب الأكواد

كود الإضافة

Private Sub Command1_Click()
CommonDialog1.Filter = "Mp3 Files (*.mp3)|*.mp3"
' لفتح ملفات من نوع Mp3 فقط
CommonDialog1.ShowOpen
' لفتح صندوق حوار | فتح |
List1.AddItem (CommonDialog1.FileName)
' لإضافة الملف الذي تم اختياره الى اداة List1
End Sub

~~~~~~~~~

كود التشغيل

Private Sub Command2_Click()
If Command2.Caption = "تشغيل" Then
' اذا كان عنوان Command2 = تشغيل
MMControl1.Command = "Play"
' نأمر أداة MMControl1 ببداية الاغنية
Command2.Caption = "ايقاف"
' ونغير عنوان Command2 الى ايقاف
Else
' في غير ذلك
MMControl1.Command = "Stop"
' نأمر أداة MMControl1 بتوقيف الاغنية
Command2.Caption = "تشغيل"
' ونعيد عنوان Command2 الى تشغيل
End If
' لقد كتبنا End If لانه عندما كتبنا امر الشرط If كتبناه في اكثر من سطر
End Sub

~~~~~~~~~

كود الإعادة

Private Sub Command3_Click()
MMControl1.Command = "Prev"
' نأمر أداة MMControl1 بإعادة الاغنية من البداية
End Sub

~~~~~~~~~

كود الحذف

Private Sub Command4_Click()
List1.Clear
' حذفنا هنا جميع العناصر الموجودة في List1
End Sub
~~~~~~~~~

كود List1

Private Sub List1_DblClick()
MMControl1.Command = "close"
' نغلق الأغنية الموجودة في MMControl1
MMControl1.FileName = List1.Text
' نحدد مسار الملف حيث هنا يكون في List1
MMControl1.Command = "open"
' نفتح الأغنية
MMControl1.Command = "play"
' نبدأ الأغنية
Command2.Caption = "ايقاف"
' نغير عنوان Command2 الى ايقاف
End Sub

~~~~~~~~~
كود Timer1

Private Sub Timer1_Timer()
If MMControl1.FileName <> "" Then
' اذا كان هناك ملف (أغنية) داخل MMControl1
Slider1.Max = MMControl1.Length
' نجعل الحد الأعلى ل Slider1 = مدى الأغنية
Slider1.Value = MMControl1.Position
' قيمة Slider1 = موضع الاغنية
End If
' لقد كتبنا End If لانه عندما كتبنا امر الشرط If كتبناه في اكثر من سطر
End Sub

~~~~~~~~~
اخيرا تكون الاكواد كما في الصورة



-----------
لقد قمت بجميع هذه الخطوات ولكن لا يعمل ارجوا منكم ان تخبروني بماذا افعل في الكود سورس
من يعرف يخبرني في اقرب وقت (لا تحتكروا العلم)والله يوفيه اجر ما عمل
وشــــــــــــــــــــــــــــــــــــــكـــــــــ ـــــــــــــــــــــــــرا

[Mohamed math]

أين ردودكم

[الجليس الصلح]

شكراااااا جزيلااااا على ما قدمت

[كوكوكو31]

السلام عليكم
بارك الله فيك

[djomo]

شكرا لك اخي