08-12-12, 03:13 AM
08-12-12, 02:14 PM
السلام عليكم،
هذا الكود يفيدك إن شاء الله
(لكن لابد أن يكون ملف الصوت أمتداده .wav)
أخي من فضلك ضع عنوان مناسب المرة القادمة
هذا الكود يفيدك إن شاء الله
كود :
Dim SP As New Media.SoundPlayer("مسار ملف الصوت.wav")
SP.Play()
أخي من فضلك ضع عنوان مناسب المرة القادمة
08-12-12, 06:52 PM
Aly El-Haddad كتب :السلام عليكم،
هذا الكود يفيدك إن شاء الله
(لكن لابد أن يكون ملف الصوت أمتداده .wav)كود :
Dim SP As New Media.SoundPlayer("مسار ملف الصوت.wav")
SP.Play()
أخي من فضلك ضع عنوان مناسب المرة القادمة
شكرآ أخى لاكن اذا كنت اريد تشغيل ملف فيديو امتداده avi ?
08-12-12, 10:07 PM
في هذه الحالة ستحتاج إلى:
1- تحميل الملف Microsoft.DirectX.AudioVideoPlayback.dll
(يمكنك تحميله [SIZE=4]من هذا الرابط[SIZE=4])[/SIZE]
2- في مشروعك، من قائمة Project أختر Add Reference ثم من التبويب Browse أختر المسار الذي حملت الملف به
3- في الكود قبل سطر Public Class Form1 ضع هذا السطر:[/SIZE]
4- أضف على الفورم Panel لعرض الـVideo عليها (ليكن أسمها Panel1)
5- في زر تشغيل الـVideo ضع هذا الكود
6- من قائمة Debug في مشروعك أختر Exceptions... ثم من Managed Debugging Assistants أمسح علامة Thrown من أمام LoaderLock و أضغط OK
7- و الآن شغل برنامجك و أستمتع بالمشاهدة
(ملاحظ[SIZE=4]ة: لا أعلم [SIZE=4]ما هي الأمتدادات التي تق[SIZE=4]بلها هذه المكتبة لكن يمكنك التجربة [SIZE=4]على الـ[SIZE=4]Video ال[SIZE=4]ذي تريده)[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
[/SIZE]
1- تحميل الملف Microsoft.DirectX.AudioVideoPlayback.dll
(يمكنك تحميله [SIZE=4]من هذا الرابط[SIZE=4])[/SIZE]
2- في مشروعك، من قائمة Project أختر Add Reference ثم من التبويب Browse أختر المسار الذي حملت الملف به
3- في الكود قبل سطر Public Class Form1 ضع هذا السطر:[/SIZE]
كود :
Imports Microsoft.DirectX.AudioVideoPlayback
4- أضف على الفورم Panel لعرض الـVideo عليها (ليكن أسمها Panel1)
5- في زر تشغيل الـVideo ضع هذا الكود
كود :
Dim V As Video
V = Video.FromFile("مسار الفيديو")
Dim S As Size = Panel1.Size
V.Owner = Me.Panel1
Panel1.Size = S
V.Play()
6- من قائمة Debug في مشروعك أختر Exceptions... ثم من Managed Debugging Assistants أمسح علامة Thrown من أمام LoaderLock و أضغط OK
7- و الآن شغل برنامجك و أستمتع بالمشاهدة
(ملاحظ[SIZE=4]ة: لا أعلم [SIZE=4]ما هي الأمتدادات التي تق[SIZE=4]بلها هذه المكتبة لكن يمكنك التجربة [SIZE=4]على الـ[SIZE=4]Video ال[SIZE=4]ذي تريده)[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
[/SIZE]
09-12-12, 12:45 AM
Aly El-Haddad كتب :في هذه الحالة ستحتاج إلى:جزاك الله الف خير
1- تحميل الملف Microsoft.DirectX.AudioVideoPlayback.dll
(يمكنك تحميله [SIZE=4]من هذا الرابط[SIZE=4])[/SIZE]
2- في مشروعك، من قائمة Project أختر Add Reference ثم من التبويب Browse أختر المسار الذي حملت الملف به
3- في الكود قبل سطر Public Class Form1 ضع هذا السطر:[/SIZE]
كود :
Imports Microsoft.DirectX.AudioVideoPlayback
4- أضف على الفورم Panel لعرض الـVideo عليها (ليكن أسمها Panel1)
5- في زر تشغيل الـVideo ضع هذا الكودكود :
Dim V As Video
V = Video.FromFile("مسار الفيديو")
Dim S As Size = Panel1.Size
V.Owner = Me.Panel1
Panel1.Size = S
V.Play()
6- من قائمة Debug في مشروعك أختر Exceptions... ثم من Managed Debugging Assistants أمسح علامة Thrown من أمام LoaderLock و أضغط OK
7- و الآن شغل برنامجك و أستمتع بالمشاهدة
(ملاحظ[SIZE=4]ة: لا أعلم [SIZE=4]ما هي الأمتدادات التي تق[SIZE=4]بلها هذه المكتبة لكن يمكنك التجربة [SIZE=4]على الـ[SIZE=4]Video ال[SIZE=4]ذي تريده)[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
[/SIZE]
09-12-12, 12:49 AM
Aly El-Haddad كتب :في هذه الحالة ستحتاج إلى:جزاك الله خير اخى
1- تحميل الملف Microsoft.DirectX.AudioVideoPlayback.dll
(يمكنك تحميله [SIZE=4]من هذا الرابط[SIZE=4])[/SIZE]
2- في مشروعك، من قائمة Project أختر Add Reference ثم من التبويب Browse أختر المسار الذي حملت الملف به
3- في الكود قبل سطر Public Class Form1 ضع هذا السطر:[/SIZE]
كود :
Imports Microsoft.DirectX.AudioVideoPlayback
4- أضف على الفورم Panel لعرض الـVideo عليها (ليكن أسمها Panel1)
5- في زر تشغيل الـVideo ضع هذا الكودكود :
Dim V As Video
V = Video.FromFile("مسار الفيديو")
Dim S As Size = Panel1.Size
V.Owner = Me.Panel1
Panel1.Size = S
V.Play()
6- من قائمة Debug في مشروعك أختر Exceptions... ثم من Managed Debugging Assistants أمسح علامة Thrown من أمام LoaderLock و أضغط OK
7- و الآن شغل برنامجك و أستمتع بالمشاهدة
(ملاحظ[SIZE=4]ة: لا أعلم [SIZE=4]ما هي الأمتدادات التي تق[SIZE=4]بلها هذه المكتبة لكن يمكنك التجربة [SIZE=4]على الـ[SIZE=4]Video ال[SIZE=4]ذي تريده)[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
[/SIZE]
10-12-12, 03:53 AM
لاسف لم يعمل الصيغه الى بيشتغل عليه avi لاكن لا يعمل لا اعرف ما هو السبب
11-12-12, 09:10 AM
أخي العزيز مبتدئ.. حاول تحويل صيفة الملف avi إلى الصيغة flv باستخدام احدى برامج التحويل كـ FormatFactory وهو مجاني
11-12-12, 04:06 PM
abuzzouz كتب :أخي العزيز مبتدئ.. حاول تحويل صيفة الملف avi إلى الصيغة flv باستخدام احدى برامج التحويل كـ FormatFactory وهو مجاني
لم ينجح ايضآ
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim V As Video
V = Video.FromFile("F:\Video\videoplayback_6.FLV")
Dim S As Size = Panel1.Size
V.Owner = Me.Panel1
Panel1.Size = S
V.Play()
End Sub
End Class
08-02-13, 02:06 AM
اخى الكريم
الامر ابسط مما تتصور فقط ضع الاصوات التى ستقوم بتشغيلها فى مشروعك فى مسار البرنامج واكتب هذا الكود فى المكان الذى تريد تشغيل منه مثلا زر امر او اى شئ اخر
وهناك ثلاث طرق لتشغيل الصوت الكود التالى يشرحها والمثال بالمرفقات يشفع الكود وتنفيذه امامك
تقبل تحياتى وتقديرى
جل الود
الامر ابسط مما تتصور فقط ضع الاصوات التى ستقوم بتشغيلها فى مشروعك فى مسار البرنامج واكتب هذا الكود فى المكان الذى تريد تشغيل منه مثلا زر امر او اى شئ اخر
وهناك ثلاث طرق لتشغيل الصوت الكود التالى يشرحها والمثال بالمرفقات يشفع الكود وتنفيذه امامك
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'تشغيل الصوت مره واحده فقط عند الضغط على البوتون
My.Computer.Audio.Play(Application.StartupPath & "\1.wav")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'تشغيل الصوت متكررا كلما توقف بدا من جديد فى الخلفيه
My.Computer.Audio.Play(Application.StartupPath & "\2.wav", AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'تشغيل الصوت والانتظار حتى انتهائه وبعد ذلك يقف
My.Computer.Audio.Play(Application.StartupPath & "\3.wav", AudioPlayMode.WaitToComplete)
End Sub
End Class
تقبل تحياتى وتقديرى
جل الود