[mne3000]

تحية طيبة وبعد 

اريد كود با vb.net  يقوم بقراءة نص  معين من مفكرة text ويحولها الى صوت مسموع حسب اللغة المكتوب بها النص سواء  كانت عربية او انجليزية

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 

كود :

Try
           Dim sapt
           sapt = CreateObject("sapi.spvoice")
           sapt.speak(TextBox1.Text)
       Catch ex As Exception

       End Try

[محمد ايمن]

(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 

كود :

Try
           Dim sapt
           sapt = CreateObject("sapi.spvoice")
           sapt.speak(TextBox1.Text)
       Catch ex As Exception

       End Try

بعد ازنك صديقي ابرهيم هل في طريقه لجعل البرنمج يقراء لغه عربيه

[ابراهيم ايبو]

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

[alshandodi]

او يمكنك الإستفادة بهذا المثال ولكن باللغه الانجليزيه
http://vb4arb.com/vb/showthread.php?tid=33428

[ابو روضة]

فكرة

ممكن تضع تكست بوكس وتجعله مرتبط بترجمة جوجل العربية 

بحيث لما تضع النص بالتكست بوكس يتم وضعه بنفس الوقت داخل تكست موقع الترجمة

ومن ثم نضع كود تشغيل صوت المُترجم من الموقع

[mne3000]

(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 

كود :

شكرا اخى الكريم عى الكود بس لو كان النص مكتوب بلغة غير الانجليزية مثل العربية او مثلا اخليه الصوت بلغة الجهاز  مثلا  

Try
           Dim sapt
           sapt = CreateObject("sapi.spvoice")
           sapt.speak(TextBox1.Text)
       Catch ex As Exception

       End Try