من يهده الله فلا مضل له ومن يضلل فلا هادي له أشهد ان لا إله الا الله وحده لا شريك له وأشهد أن محمدا عبده
ورسوله صلى الله عليه وسلم وعلى آله وصحبه أجمعين ومن تبعهم بالإحسان الى يوم الدين
ربنا لا علم لنا إلا ما علمتنا, إنك أنت العليم الخبير ربنا لا فهم لنا إلا ما أفهمتنا, إنك أنت الجوّاد الكريــم
ربي اشرح لي صدري ويسر لي أمري واحلل لي
عقدة لساني يفقهوا قولي...
السلام عليكم ورحمة الله تعالى و بركاته
مرحبا بكم في هذا الشرح الحصري على مدونتي
اليوم ان شاء الله سوف نتعرف على طريق رائعة و جميلة
لجعل الكمبيوتر ينطق الكلمات بدون برامج......
دون الاطالة عليكم في الكلام لنبدأ على بركة الله
أول شيء نقوم بانشاء ملف notepad جديد
نقوم بفتحه ونلصق به الكود التالي
Dim userInput
userInput = InputBox("Write your message here")
Set Sapi = W--SS--.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
userInput = InputBox("Write your message here")
Set Sapi = W--SS--.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
نقوم بغلق المفكرة و نوافق على الحفظ
نقوم باعادة تسمية الملف لكن بامتداد vbs
كما في الصورة
نضغط entre
سوف تطلع لنا مثل هذه الرسالة
نضغط oui
ليصبح على هذا الشكل
نقوم بفتحه بدوبل كليك
نكتب أي كلمة مثلا أنا كتبت كلمة welcome
نضغط ok
و ان شاء الله سوف نسمع الكمبيوتر ينطق الكلمة التي كتبناها
الى هنا ينتهي شرحي أتمنى أن تستفيدوا من هذه الطريقة لأنها مفيدة
في تعلم نطق الكلمات باللغة الانجليزية....















0 التعليقات:
إرسال تعليق