منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في تشغيل ملف صوتي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في تشغيل ملف صوتي (/showthread.php?tid=23977)

مساعدة في تشغيل ملف صوتي - VB.NET - 24-02-18

السلام عليكم الاخوة الكرام موضوعي كالتالي :

عندي ملفات صوتية من نوع WAV عبارة عن ارقام صوتية اسم الملف على اسم الرقم يعني مثلا :

رقم واحد ملف صوتي اسمه 1 الى رقم 20
بعد كذا 30 , 40 , 50 , 60 ,70 ,80 ,90 100, 200, 300, 400 , 500, 600, 700, 800, 900
وعندي ملف صوتي كلمة و

الي احتاجه عندي في البرنامج تكست بوكس اذا عملت رقم 1 يستدعي رقم واحد 
وايضا اذا عملت 751 كيف اخلي البرنامج يستدعي ملف رقم 700 وملف الخاص بكلمة (و)
ويعطيني ملف رقم 1 وكلمة (و) وملف 50 

يعني الموضوع نطق الرقم من التكست واستدعاء الملفات الصوتية الخاصة فيه

RE: مساعدة في تشغيل ملف صوتي - VB.NET - 25-02-18

هل من حل يا اخوان

RE: مساعدة في تشغيل ملف صوتي - AL_BRNS - 25-02-18

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

مافهمته من سؤالك هو نطق الرقم الذي في الـ text  وتشغيل الملف الصوتي الذي يحمل نفس الاسم اي الرقم المنطوق

اظغط  Ctrl + T

اظف الاداة

Microsoft Direct Text to Speech

وضع الكود التالي

PHP كود :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
DirectSS1.Speak Text1.Text
sound1 = sndPlaySound(App.Path + "\" + Text1.Text + ".WAV", 3)
End Sub 

علي اعتبار ان الملفات الصوتية في ملف البرنامج

بالتوفيق .


RE: مساعدة في تشغيل ملف صوتي - VB.NET - 27-02-18

شكرا اخي الكريم على الرد ولاكن ما وجدة الاداة 
Microsoft Direct Text to Speech

الشي الثاني اذا كان في التكست عبارة عن ثلاثة ارقام مثلا :

151
هل يقوم البرنامج بتشغيل الملفات كالتالي :
واحد خمسة واحد
المفروض يشغلها كالتالي :
مئة و واحد و خمسون
لانه عندي ملف 
رقم 100
وملف خاص بكلمة و
وملف رقم 1
وكلمة و مره اخرا 
وملف رقم 50

RE: مساعدة في تشغيل ملف صوتي - VB.NET - 28-02-18

هل من حل نرجو المساعدة

RE: مساعدة في تشغيل ملف صوتي - AL_BRNS - 01-03-18

السلام عليكم

جرب التالي بدون اظافة اي ادوات

PHP كود :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim objVoice As Object

Private Sub Command1_Click()
Set objVoice = CreateObject("SAPI.spVoice")
objVoice.Speak Text1.Text
sound1 = sndPlaySound(App.Path + "\" + Text1.Text + ".WAV", 3)
End Sub 

بالتوفيق .


RE: مساعدة في تشغيل ملف صوتي - VB.NET - 01-03-18

جزاك الله خير اخي الكريم 
ولاكن هذا الكود يقوم بنطق الارقام انا لدي ملفات صوت لكل رقم اريد تشغيل كل ملف حسب المدخل في التكست 

مثلا :

لدي ملفات WAV  
رقم 1 لدي ملف صوتي اسمه 1
رقم 2 لدي ملف صوتي اسمه 2
رقم 1 لدي ملف صوتي اسمه 1

اريد عند كتابة رقم 121 يقوم البرنامج بتشغيل ملفات الصوت ال 3 
رقم 1
رقم 2
رقم 1

RE: مساعدة في تشغيل ملف صوتي - Ahmed_Mansoor - 01-03-18

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

أهلا بك أخي الكريم , هذا مثال لعمل ذلك , أولا يتم تحويل الرقم إلى حروف ثم يتم تشغيل الملفات الصوتية المطابقة لحروف كل رقم , مرفق مع المثال ملف نصي فيه أسماء الملفات الصوتية التي يجب عليك تسجيلها لكي يتم تشغيلها لقراءة الرقم بعد تحويله إلى حروف , سجل نطق الرقم كما هو إسم الملف الصوتي في الملف النصي ثم عند الإنتهاء من التسجيل ضعها كلها داخل المجلد الذي بإسم Audio ثم جرب المثال .