إجعل الكمبيوتر ينطق مع أجمل طريقة ..حصري ..

[the last one]

http://img7.imageshack.us/img7/2779/12780401177230044vf2.gif


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


http://img13.imageshack.us/img13/6346/19102720jr9rd7.png

لجعل الكمبيوتر ينطق بالإنجليزية فقط .. إليكم الكود التالي ...

اقتباس:
Dim userInput


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


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

Sapi.speak userInput

نفتح المفكرة أي ال bloc notes ..
ننسخ الكود ونعمل لصق في ملف المفكرة ونحفظ الملف بأي إسم لاكن لا تنسو وضع الملف بصيغة vbs ...
مثلا أنا سميتو the lats one.vbs ..
ونقوم بحفظه في سطح المكتب مثلا نضغط عليه مرتين تظهر لدينا نافذة صغيرة وفيها مكان للكتابة نكتب ما شئنا ومن ثم نضغط على أوكي والكمبيوتر يقوم بنطقها بكل طلاقة ..

http://img13.imageshack.us/img13/6346/19102720jr9rd7.png

للعلم هذا الكود هو عبارة عن كود خاص بالفيجوال باسيك لما نقوم بحفظه في ملف ونجعل غتهصي vbs ينتج لدينا سكربت فيجوال باسيك .. والفيجوال باسيك هو أحد لغات البرمجة ...
أرجو أن تعجبكم الطريقة تحياتي للجميع ..
والسلام عليكم ...