جهازك يتلكم كل الى بتكتبة

تكتبه

تتوفر علي الانترنت الكثير من البرامج والمواقع التي تقوم بنطق ما تقوم بكتابته ومن اكثر المواقع شهرة للقيام بهذا هو موقع ترجمة جوجل حيث يوفر للمُستخدمين ميزة التحدث عن ما تكتبه من نصوص واعتقد أن فائدة هذه الخاصية مهمة لمن لا يُجيد لغة ما ولا يعرف نطق كلمة معينه فتستطيع هذه الخاصية مساعدته، لكن يإمكانك الاستغناء عن المواقع والبرامج للقيام بهذا لان نظام ويندوز بالفعل لديه هذه الخاصية ويُمكن لجميع المُستخدمين تجربتها بعد أن أقوم باستعراض الخطوات اللازمة للحصول عليها من نظام ويندوز وجعله يتحدث لما تقوم بكتابته.

الخطوات اللازمة لتفعيل هذه الميزة :

1- نقوم بفتح المفكرة - NotePad عبر الضغط على مفتاح ويندوز وحرف R , وكتابة الأمر Notepad .
2- نقوم بكتابة أو لصق الكود .
3-نقوم بحفظ الملف لكن مع مراعاة تغيير | txt.| بـ |vbs.|
4- نقوم بفتح الملف وكتابة ماتريد من حاسوبك أن ينطقه.

الكود:

Dim message, sapi
message=InputBox("إكتب ما تريد سماعه في الحقل الفارغ")
Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

01201601773