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

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

أسعد الله أوقاتكم دائما...

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

من ناحية أخرى يعتبر هذا الملف مفيد بالنسبة لمن يريدون معرفة االنطق الصحيح لبعض الكلمات الإنجليزية.

هيا بنا نبدأ...

نفتح برنامج المفكرة Notepad

ثم نقوم بنسخ هذه الأوامر بداخله:

Dim userInput

userInput = InputBox("Write a message for me to say")


Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak userInput

يمكنك تغيير هذه الجملة المكتوبة باللون الأخضر إلى أي جملة تريد ((Write a message for me to say)).

ثم نقوم بحفظ الملف بالإمتداد .vbs على سبيل المثال Speak.vbs

ثم نقوم بتشغيل الملف سيظهر لنا مربع حواري كما في الصورة التالية:



بعد كتابة الجملة نضغط على موافق Ok وسوف نسمع الكمبيوتر ينطق الجملة التي كتبناها.

تقبلوا تحياتي...

Dr.Virus
A Man From Another World

اسم المراجعه: إجعل جهازك ينطق ماتريد الوصف: تقيم المراجع: 5 مراجعه بواسطة: Ahmed Sheta