الدرس الثاني من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة قارئ 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 ~~~~~~~~~ اخيرا تكون الاكواد كما في الصورة ----------- لقد قمت بجميع هذه الخطوات ولكن لا يعمل ارجوا منكم ان تخبروني بماذا افعل في الكود سورس من يعرف يخبرني في اقرب وقت (لا تحتكروا العلم)والله يوفيه اجر ما عمل وشــــــــــــــــــــــــــــــــــــــكـــــــــ ـــــــــــــــــــــــــرا