عمل تطبيق Multimedia بالفيجوال بيسك

الكاتب : bassam4000   المشاهدات : 2,005   الردود : 7    ‏2003-09-15
      مشاركة رقم : 1    ‏2003-09-15
  1. bassam4000

    bassam4000 عضو

    التسجيل :
    ‏2003-05-25
    المشاركات:
    140
    الإعجاب :
    0
    Creating Multimedia Applications
    انشأ تطبيق ملتي مديا


    [ALIGN=JUSTIFY]يمكنك انشأ تطبيقات ملتي ميديا مختلفة بواسطة الفيجوال بيسك , التي تقدر تشغل الـِAudio CD ملفات الصوت , والـVideo CD ملفات الفيديو الخ ......

    لكي تكون لديك القدرة على هذا العمل ,

    كل ما تحتاجة من ادوات هو التالي :
    اولاً :-الحصول على الـMM control وذلك بالضغط على Ctrl + T تظهر لك نافذة كالصورة التالية
    [​IMG]
    اختر منها Microsoft Multimedia Control 6.0 كما هو في الصورة..


    ثالثاً :- بعدها اختر الادوات التالية من الـToolBox .....

    1-ComboBox

    2-DriveListBox

    3-DirListBox

    4-TextBox

    5-FileListBox


    ادرج الادوات السابقة في الـForm1 كما في الصورة :

    [​IMG]

    لاتنسى تضع ثلاثة ازرار command (اجعل خاصية الاسم لكل واحد منها على التوالي Play, Stop ,Exit ) (خاصية الـCaption هي نسفها خاصية الاسم كما في الصورة السابقة )

    ثالثاً :- خصائص الادوات ....

    اجعلها كما هي افتراضياً لكل الادوات ,
    عدا الـMM control غير خاصية الـName= AudioPlayer ...
    خاصية الـVisible =false ............

    رابعاً :- الكود

    1- تحت الـForm_Load ضع الكود التالي :

    كود:
    [ALIGN=LEFT]
    ()Private Sub Form_Load
    Left = (Screen.Width - Width) \ 2
    Top = (Screen.Height - Height) \ 2
    "Combo1.Text = "*.wav
    "Combo1.AddItem "*.wav
    "Combo1.AddItem "*.mid
    "Combo1.AddItem "All files
    End Sub
    2- تحت الـCombo1_Change ضع الكود التالي :


    [ALIGN=LEFT]
    كود:
    Private Sub Combo1_Change()
    If ListIndex = 0 Then
    ("File1.Pattern = ("*.wav
    ElseIf ListIndex = 1 Then
    ("File1.Pattern = ("*.mid
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.dat
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.dat
    Else
    ("*.*")=Fiel1.Pattern  
    End If
    End Su
    b

    3- تحت الـDir1_Change ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub Dir1_Change
    File1.Path = Dir1.Path
    If Combo1.ListIndex = 0 Then
    ("File1.Pattern = ("*.wav
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.mid
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.mp3
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.dat
    Else
    ("*.*")=File1.Pattern 
    End If
    End Sub
    4- تحت الـDrive1_Change ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub Drive1_Change
    Dir1.Path = Drive1.Drive
    End Sub

    5- -تحت الـFile_Click ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub File1_Click
    If Combo1.ListIndex = 0 Then
    ("File1.Pattern = ("*.wav
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.mid
    ElseIf Combo1.ListIndex = 1 Then
    ("File1.Pattern = ("*.mp3
    Else
    ("*.*")=File1.Pattern 
    End If
    If Right(File1.Path, 1) <> "\" Then
    filenam = File1.Path + "\" + File1.FileName
    Else
    filenam = File1.Path + File1.FileName
    End If
    Text1.Text = filenam
    End Sub
    6- تحت زر الـCommand (Play_Click) ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub Play_Click
    If Combo1.ListIndex = 0 Then
    "AudioPlayer.DeviceType = "WaveAudio
    ElseIf Combo1.ListIndex = 1 Then
    "AudioPlayer.DeviceType = "Sequencer"End If
    AudioPlayer.FileName = Text1.Text
    "AudioPlayer.Command = "Open
    "AudioPlayer.Command = "Play
    End Sub
    7- تحت زر الـCommand = ايقاف (Stop_Click) ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub Stop_Click
    If AudioPlayer.Mode = 524 Then Exit Sub
    If AudioPlayer.Mode <> 525 Then
    AudioPlayer.Wait = True
    "AudioPlayer.Command = "Stop
    End If
    AudioPlayer.Wait = True
    "AudioPlayer.Command = "Close
    End Sub


    8- تحت زر الـCommand= اغلاق (Exit_Click) ضع الكود التالي :
    [ALIGN=LEFT]
    كود:
    ()Private Sub Exit_Click
    End
    End Sub

    رابعاً : شغل التطبيق بالضغط على F5 واختر الاْغاني التي تشتي تشغلها من المكان المخزنة فية .

    المزيد من الدروس والامثلة للمبتدئين ستجدوها على الرابط التالي
    هنا
    حيث الدرس السابق واحد منها ...
     
  2.   مشاركة رقم : 2    ‏2003-09-15
  3. الكوماندر

    الكوماندر مشرف سابق

    التسجيل :
    ‏2002-07-23
    المشاركات:
    1,047
    الإعجاب :
    0
    مشكور اخي بسام.

    موضوع ممتاز وجميل للغايه.

    بارك الله فيك.

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

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

    اكرر شكري لك عزيزي.

    تحياتي لك.
     
  4.   مشاركة رقم : 3    ‏2003-09-16
  5. العمراوي

    العمراوي مشرف سابق

    التسجيل :
    ‏2002-11-24
    المشاركات:
    7,510
    الإعجاب :
    4
    مشكور أخي بسام على المواضيع الجميلة .,.,.,.,

    بصراحة سلمت يداك .,.,.,.,
     
  6.   مشاركة رقم : 4    ‏2003-09-16
  7. bassam4000

    bassam4000 عضو

    التسجيل :
    ‏2003-05-25
    المشاركات:
    140
    الإعجاب :
    0
    نص مقتبس من رسالة : الكوماندر
    مشكور اخي على الرد ..
    بس مش عارف ايش تقصد بكل المواضيع في موضوع واحد
    يعني مثلاً الامثلة لحالها ,...
    والا تقصد كل المواضيع الي اكتبها المتعلقة بالفيجوال بيسك

    ارجو التوضيح ..
    تحياتي ...
     
  8.   مشاركة رقم : 5    ‏2003-09-16
  9. Hani Mana'a

    Hani Mana'a عضو فعّال

    التسجيل :
    ‏2003-08-29
    المشاركات:
    603
    الإعجاب :
    0
    تســلم أخي بســــام والله ما قصرت ...

    موضوع حلو جدا .. تحياتي لك عدد حروفك
     
  10.   مشاركة رقم : 6    ‏2003-09-16
  11. bassam4000

    bassam4000 عضو

    التسجيل :
    ‏2003-05-25
    المشاركات:
    140
    الإعجاب :
    0
    نص مقتبس من رسالة : Hani Mana'a
    تسلم اخي على الرد الجميل
     
  12.   مشاركة رقم : 7    ‏2003-09-16
  13. Super Linx

    Super Linx عضو متميّز

    التسجيل :
    ‏2003-02-24
    المشاركات:
    1,880
    الإعجاب :
    0
    تسلم ياعمري والله انك ماقصرت وجزاك الله خيرا
     
  14.   مشاركة رقم : 8    ‏2003-09-17
  15. نبض اليمن 2003

    نبض اليمن 2003 عضو متميّز

    التسجيل :
    ‏2003-06-15
    المشاركات:
    1,116
    الإعجاب :
    0
    برنامج جميل
    تحياتي
     

مشاركة هذه الصفحة