المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : عمل تطبيق Multimedia بالفيجوال بيسك

bassam4000
15-09-2003, 08:11 PM
Creating Multimedia Applications
انشأ تطبيق ملتي مديا


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

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

كل ما تحتاجة من ادوات هو التالي :
اولاً :-الحصول على الـMM control وذلك بالضغط على Ctrl + T تظهر لك نافذة كالصورة التالية
http://www5.domaindlx.com/bassam4000/R0.gif
اختر منها Microsoft Multimedia Control 6.0 كما هو في الصورة..


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

1-ComboBox

2-DriveListBox

3-DirListBox

4-TextBox

5-FileListBox


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

http://www5.domaindlx.com/bassam4000/R1.gif

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

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

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

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

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


()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 ضع الكود التالي :



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 Sub

3- تحت الـDir1_Change ضع الكود التالي :

()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 ضع الكود التالي :
()Private Sub Drive1_Change
Dir1.Path = Drive1.Drive
End Sub


5- -تحت الـFile_Click ضع الكود التالي :
()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) ضع الكود التالي :
()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) ضع الكود التالي :
()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) ضع الكود التالي :
()Private Sub Exit_Click
End
End Sub


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

المزيد من الدروس والامثلة للمبتدئين ستجدوها على الرابط التالي
هنا (http://www.vbtutor.net/vbtutor.html)
حيث الدرس السابق واحد منها ...
الكوماندر
15-09-2003, 10:10 PM
مشكور اخي بسام.

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

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

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

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

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

تحياتي لك.
العمراوي
16-09-2003, 04:26 AM
مشكور أخي بسام على المواضيع الجميلة .,.,.,.,

بصراحة سلمت يداك .,.,.,.,
bassam4000
16-09-2003, 02:24 PM
نص مقتبس من رسالة : الكوماندر
مشكور اخي بسام.

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

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

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

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

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

تحياتي لك.

مشكور اخي على الرد ..
بس مش عارف ايش تقصد بكل المواضيع في موضوع واحد
يعني مثلاً الامثلة لحالها ,...
والا تقصد كل المواضيع الي اكتبها المتعلقة بالفيجوال بيسك

ارجو التوضيح ..
تحياتي ...
Hani Mana'a
16-09-2003, 02:32 PM
تســلم أخي بســــام والله ما قصرت ...

موضوع حلو جدا .. تحياتي لك عدد حروفك
bassam4000
16-09-2003, 03:41 PM
نص مقتبس من رسالة : Hani Mana'a
تســلم أخي بســــام والله ما قصرت ...

موضوع حلو جدا .. تحياتي لك عدد حروفك

تسلم اخي على الرد الجميل
Super Linx
16-09-2003, 05:03 PM
تسلم ياعمري والله انك ماقصرت وجزاك الله خيرا
نبض اليمن 2003
17-09-2003, 08:48 PM
برنامج جميل
تحياتي