كود لعرض مقطع صوتي

السلام عليكم

هناك عدة طرق ابسطها

إذهب إلى Project ثم اختر Components .. سوف تضهر قائمة إختر Windows Media Player ...

ستضهر لك في شريط الأدوات ..أداة جديدة أضفها إلى نافذة المشروع

فى فورم لود اكتب

MediaPlayer1.FileName = App.Path & "\1.wav

اضف بوتون

اكتب داخله

MediaPlayer1.Play

اذا لم يعمل اخبرنى لأنى كتبتها من الذاكره

السلام عليكم ورحمة الله وبركاته

اخي الكريم

ال tool أه نزلت من الكومبننت

بس الكود غلط ياريت تصلحه

لاني محتاجه اليوم

والك كل الشكر

:wub:

وين الردود

السلام عليكم

هذا برنامج قديم كنت برمجته به ما تريد

___________.rar

السلام عليكم ورحمة الله وبركاته

يسلموا ايديك

بس ياريت تكتب الكود الاول تبعك شكله اسهل

لاني اطريت استخدم نفس برنامجك واعمل عليه الشغل اللي بي اياه

يعني نفس البروجكت

فياريت تعمل برنامج بالمشاركة تاعتك هاي اللي لما طبقتها عملت error

السلام عليكم

هناك عدة طرق ابسطها

إذهب إلى Project ثم اختر Components .. سوف تضهر قائمة إختر Windows Media Player ...

ستضهر لك في شريط الأدوات ..أداة جديدة أضفها إلى نافذة المشروع

فى فورم لود اكتب

MediaPlayer1.FileName = App.Path & "\1.wav

اضف بوتون

اكتب داخله

MediaPlayer1.Play

اذا لم يعمل اخبرنى لأنى كتبتها من الذاكره

والسلام عليكم ورحمة الله وبركاته

السلام عليكم

هذا الكود بعد التعديل انا جربته

بعد ان تضيف اداة Windows Media Player

غير اسم الأداة الى MediaPlayer1

فى Form_Load

اكتب

MediaPlayer1.URL = App.Path & "\3.wav" 't

فى البوتن

MediaPlayer1.Controls.Play

وهذا المشروع

s.rar

السلام عليكم ورحمة الله وبركاته

جزاك الله كل خير

ارجو ان اكون افضتك

sayedf1 كتب:

ارجو ان اكون افضتك

كل الفائدة

الله يحفظك وكل عام وانت بخير

الاخ easy

في داله تبع API هتيرحك من انك تحط اي كنترول على الفورمه خالص

وهيه بتشغل wav وطبعا المقطع اللي هتحطه اكيد هيكون wav وهي تعمل معايا بصفه رائعه

في قسم التصريات هتكتب

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

تمام وهتيجي بقى تقوم عامل لو الزراير كلها هتاخد نغمه واحده زي ما هو طبيعي في البرامج كلها

تصريح وسميه

Public Sub sound()
	r = sndPlaySound(App.Path & "\data\beep.wav", 1)

End Sub

حيث app.path هي مسار البرنامج & data هي الفولدر اللي فيه النغمه & اما beep.wav فهي النغمه

وتحت اي زرار ما عليك الا كتابة كلمة sound

وكده يبقى ريحت نفسك في كل البرنامج يا معلم