+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل النص الى صوت (/showthread.php?tid=34030)
تحويل النص الى صوت - mne3000 - 29-03-20
تحية طيبة وبعد
اريد كود با vb.net يقوم بقراءة نص معين من مفكرة text ويحولها الى صوت مسموع حسب اللغة المكتوب بها النص سواء كانت عربية او انجليزية
RE: تحويل النص الى صوت - ابراهيم ايبو - 29-03-20
السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط
كود :
Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
Catch ex As Exception
End TryRE: تحويل النص الى صوت - محمد ايمن - 29-03-20
(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط
كود :
Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
Catch ex As Exception
End Try
بعد ازنك صديقي ابرهيم هل في طريقه لجعل البرنمج يقراء لغه عربيه
RE: تحويل النص الى صوت - ابراهيم ايبو - 29-03-20
السلام عليكم اخي محمد
اخي لاعلم لي بذلك كل ما في الامر هو كود وموجود عندي واوردته
RE: تحويل النص الى صوت - alshandodi - 29-03-20
او يمكنك الإستفادة بهذا المثال ولكن باللغه الانجليزيه
http://vb4arb.com/vb/showthread.php?tid=33428
RE: تحويل النص الى صوت - ابو روضة - 29-03-20
فكرة
ممكن تضع تكست بوكس وتجعله مرتبط بترجمة جوجل العربية
بحيث لما تضع النص بالتكست بوكس يتم وضعه بنفس الوقت داخل تكست موقع الترجمة
ومن ثم نضع كود تشغيل صوت المُترجم من الموقع
RE: تحويل النص الى صوت - mne3000 - 01-04-20
(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط
كود :
شكرا اخى الكريم عى الكود بس لو كان النص مكتوب بلغة غير الانجليزية مثل العربية او مثلا اخليه الصوت بلغة الجهاز مثلا
Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
Catch ex As Exception
End Try