اجعل حاسوبك يتكلم ببرنامج من صنعك !

السلام عليكم و رحمة الله تعالى و بركاته زوار مدونة عالم المعلوميات

 اليوم ان شاء الله سأشرح لكم طريقة صنع برنامج خاص يجعل حاسوبك ينطق بأي كلام تريده

 شرط أن لا يكون باللغة العربية للأسف.

 نبدأ على بركة الله :

 1- قم بفتح مفكرة جديدة Notepad ثم الصق بها الكود التالي :

Dim msg, sapi

msg=InputBox("Enter your text ","By Informatique Show")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

كما بالصورة

2- اعمل له Enregistrer Sous

3- ثم احفظه بامتداد vbs

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

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

و بهذا أكون قد استوفيت الدرس

أرجو أن تكونوا قد استفدتم من الشرح

تحياتي