fighters

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

    شاطر
    avatar
    fighter
    الـمـديـرالـعـام
    الـمـديـرالـعـام

    عدد الرسائل : 226
    العمر : 28
    مزاجى :
    تاريخ التسجيل : 16/04/2008

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

    مُساهمة من طرف fighter في الثلاثاء مايو 06, 2008 6:22 am

    درس من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة قارئ 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

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




    -----------

    انتهينا
    آما ان تستفادوا منها



    _________________

      الوقت/التاريخ الآن هو الخميس ديسمبر 14, 2017 3:55 pm