تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في تشغيل ملف صوتي
#1
السلام عليكم الاخوة الكرام موضوعي كالتالي :

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

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

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

يعني الموضوع نطق الرقم من التكست واستدعاء الملفات الصوتية الخاصة فيه
الرد }}}
تم الشكر بواسطة:
#2
هل من حل يا اخوان
الرد }}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

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

اظغط  Ctrl + T

اظف الاداة

Microsoft Direct Text to Speech

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

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

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

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

بالتوفيق .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#4
شكرا اخي الكريم على الرد ولاكن ما وجدة الاداة 
Microsoft Direct Text to Speech

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

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

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

PHP كود :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As StringByVal 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 

بالتوفيق .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#7
جزاك الله خير اخي الكريم 
ولاكن هذا الكود يقوم بنطق الارقام انا لدي ملفات صوت لكل رقم اريد تشغيل كل ملف حسب المدخل في التكست 

مثلا :

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

اريد عند كتابة رقم 121 يقوم البرنامج بتشغيل ملفات الصوت ال 3 
رقم 1
رقم 2
رقم 1
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#8
وعليكم السلام ورحمة الله وبركاته

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


الملفات المرفقة
.rar   NumbersToSpeech.rar (الحجم : 3.1 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , AL_BRNS , Amir_Alzubidy , Microformt , حامد محمد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج تنبيه صوتي ويندوز 10 aboezzat84 0 83 07-01-24, 06:46 PM
آخر رد: aboezzat84
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
  [vb6.0] مساعدة بتعديل كود الضغط على مفتاح F1 في الكيبورد جلال اليمني 0 173 13-10-23, 08:04 PM
آخر رد: جلال اليمني
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
Question [vb6.0] الماذا يظهر البرنامج عن تشغيل بعض الشاشات الكمبيوتر بشكل مصغر ؟ Microformt 5 656 23-07-23, 12:27 PM
آخر رد: ahmedabdelaliem
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
Question [سؤال] مساعدة فى الحدث KeyDown و KeyCode soom3aa 0 433 13-11-22, 09:06 AM
آخر رد: soom3aa
  [vb6.0] طلب مساعدة samer_g_m 1 541 07-11-22, 01:20 AM
آخر رد: Taha Okla
Question كيف يمكن تصفير الرسم البياني عند تشغيل البرنامج ؟؟ Microformt 0 702 06-08-22, 05:13 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم