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

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

اريد كود با 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

بعد ازنك صديقي ابرهيم هل في طريقه لجعل البرنمج يقراء لغه عربيه
السلام عليكم اخي محمد
اخي لاعلم لي بذلك كل ما في الامر هو كود وموجود عندي واوردته
او يمكنك الإستفادة بهذا المثال ولكن باللغه الانجليزيه
http://vb4arb.com/vb/showthread.php?tid=33428
فكرة
ممكن تضع تكست بوكس وتجعله مرتبط بترجمة جوجل العربية 
بحيث لما تضع النص بالتكست بوكس يتم وضعه بنفس الوقت داخل تكست موقع الترجمة
ومن ثم نضع كود تشغيل صوت المُترجم من الموقع
(29-03-20, 04:15 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 
كود :
شكرا اخى الكريم عى الكود بس لو كان النص مكتوب بلغة غير الانجليزية مثل العربية او مثلا اخليه الصوت بلغة الجهاز  مثلا  

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

       End Try