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

نسخة كاملة : ما هي افضل طريقة لتشغيل ملفات الصوت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

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

وإذا كان الافضل هو وضعها في مجلد البرنامج ما هو الكود لتشغيل المفات الصوتية وهل اضعها في مجلد Pin > Debug
قم بوضعها ضمن ال resources
ﻟﻤﺎﺫﺍ ﻟﺎ ﺗﻀﻌﻬﺎ ﻓﻲ ﺍﻟﺮﻳﺴﻮﺭﺱ ﺣﻴﺚ ﺳﺘﻜﻮﻥ ﺑﻤﺎﻣﻦ ﻣﻦ ﺗﻠﺎﻋﺐ المستخدم
وجد كود التشغيل من داخل مجلد البرنامج

PHP كود :
My.Computer.Audio.Play(Application.StartupPath "\audio files\13.wav"


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


PHP كود :
My.Computer.Audio.Play(My.Resources.AAudioPlayMode.Background
ما افضل نوع من الملفات mp3 ام wav
هو لايشغل الا امتداد واحد فقط وهو wav
سعود كتب :وهنا سؤال للاخوة كيف اضيف كافة اسماء الملفات في الريسورس ضمن Listbox

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


PHP كود :
Private Sub txtAns1_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles txtAns1.TextChanged
        
If Me.txtAns1.Text "3" Then
            Me
.lblB1.ForeColor Me.lblA3.ForeColor
            My
.Computer.Audio.Play(My.Resources.You_are_rightAudioPlayMode.Background)
        ElseIf 
Me.txtAns1.Text <> "3" Then
            My
.Computer.Audio.Play(My.Resources.Wrong_AnswerAudioPlayMode.Background)
            
Me.lblB1.ForeColor Color.Black
            Me
.txtAns1.Text ""
        
End If 
End Sub
الصفحات : 1 2