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

طريقة جميلة جدّا تستطيع من خلالها جعل الجهاز يتحدث و ينطق كل ما تقوم بكتابته... الطريقة هي عبارة على صنع برنامج بالنوت باد Notepad نقوم بصياغة مجموعة من الأوامر و بعض الأدوات كالمكان المخصّص لكتابة النص و الابل هذا اضافة الى الزر الذي يصدر الامر فور الضغط عليه , الكود ليس بالمعقّد و لا بالطويل فقط قم بكتابته مثل ما هو موجود في الشرح مع التّأكد من صحته و عدم الوقوع في أخطاء تحريريّة التي قد تفشل عمليّة صنع البرنامج و بالتالي فشل للعمليّة ككل

تابع الشرح

الكود المستعمل في الشرح : 

message=InputBox("What do you want me to say?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

والسلام عليكم ورحمة الله وبركاته.