[aftfm]

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

اخواني جزاكم الله خير لدي برنامج واريد من خلاله تشغيل ملفات صوت
هل اجعل ملفات الصوت داخل مجلد البرنامج ام اجعلها تعمل مه خارج مجلد البرنامج بمعنى هل اضعها في مجلد البرنامج ومن ثم اقوم بعمل سيت أب وبكدى نضمن انها ضمن البرنامج
ام اضعها في مجلد خارجي ويتم استدعائها من خلاله ويقوم بارفاق المجلد اثناء عمل الـ سيت أب

وإذا كان الافضل هو وضعها في مجلد البرنامج ما هو الكود لتشغيل المفات الصوتية وهل اضعها في مجلد Pin > Debug

[amgadtamer]

قم بوضعها ضمن ال resources

[H111er]

ﻟﻤﺎﺫﺍ ﻟﺎ ﺗﻀﻌﻬﺎ ﻓﻲ ﺍﻟﺮﻳﺴﻮﺭﺱ ﺣﻴﺚ ﺳﺘﻜﻮﻥ ﺑﻤﺎﻣﻦ ﻣﻦ ﺗﻠﺎﻋﺐ المستخدم

[aftfm]

وجد كود التشغيل من داخل مجلد البرنامج

PHP كود :

My.Computer.Audio.Play(Application.StartupPath & "\audio files\13.wav") 


ولكن ممكن توضح مجدل resources كيف اقوم بالاتصال به

[سعود]

افضل طريقة هي ان تستخدم متغير يخزن به مسار ملفات الصوت .. الا اذا لديك فكرة تشغيل ملفات صوت خاصة بك اي للبرنامج فقط فاستخدم ماذكره الاخوان
وهنا سؤال للاخوة كيف اضيف كافة اسماء الملفات في الريسورس ضمن Listbox

[aftfm]

اخواني وجدت هذا الكود لكنه لا يقوم بتشغيل ملفات mp3 فقط يقوم بتشغيل ملفات wav

PHP كود :

My.Computer.Audio.Play(My.Resources.A, AudioPlayMode.Background) 


[aftfm]

ما افضل نوع من الملفات mp3 ام wav

[سعود]

هو لايشغل الا امتداد واحد فقط وهو wav

[amgadtamer]

سعود كتب :وهنا سؤال للاخوة كيف اضيف كافة اسماء الملفات في الريسورس ضمن Listbox

اليك المثال ............

[aftfm]

الف شكر اخواني جزاكم الله خير
هنا واجهتني مشكلة بعد اضافة ملفات الصوت الى Resources
الكود التالي هو عند تطابق الكتابة على txtAns1=3 بقوم بتشغيل ملف الصوت You_are_Right
وعند عدما يكون txtAns1<> 3 يقوم بتشغيل ملف الصوت Wrong_Answer
اريد عندما يكون txtAns1="" لا يظهر لي الصوت نهائياً

PHP كود :

Private Sub txtAns1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAns1.TextChanged
        If Me.txtAns1.Text = "3" Then
            Me.lblB1.ForeColor = Me.lblA3.ForeColor
            My.Computer.Audio.Play(My.Resources.You_are_right, AudioPlayMode.Background)
        ElseIf Me.txtAns1.Text <> "3" Then
            My.Computer.Audio.Play(My.Resources.Wrong_Answer, AudioPlayMode.Background)
            Me.lblB1.ForeColor = Color.Black
            Me.txtAns1.Text = ""
        End If 


End Sub