اجعل جهازك ينطق بما تريد

 اجعل جهازك ينطق بما تريد

موظوع اليوم عبارة عن طريقة رائعة تساعدك في جعل جهازك ينطق بأي شىء تريده عبر

 تحويل النصوص الى كلام بدون استخدام اي برنامج .  

1 – قم بفتح برنامج المفكرة Notepad وقم بلصق الكود التالي فيه

 

Dim msg, sapi

msg=InputBox("Enter your text ","By farouk carlos")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

 

 

 

 

 

2 – قم بحفظ الملف بإسم Audio.vbs 

 

 

 

 

 

 

والان قم بتشغيل الملف من الايقونة الموضحة بالصورة 

 

 

وقم بكتابة ما تريد ان ينطقه الكمبيوتر واضغط OK