كيف تجعل حاسبك يقول كل ما تكتبه بالانجليزية How to Make Your Computer Speak Whatever You Type
كاتب الموضوع
رسالة
siedaty Admin
عدد المساهمات : 6940 نقاط : 20696 تاريخ التسجيل : 01/04/2010
موضوع: كيف تجعل حاسبك يقول كل ما تكتبه بالانجليزية How to Make Your Computer Speak Whatever You Type الأحد أبريل 24, 2011 9:37 pm
كيف تجعل حاسبك يقول كل ما تكتبه بالانجليزية How to Make Your Computer Speak Whatever You Type
صمم برنامجك الخاص بشكل بسيط وفى خطوتين لتجعل البرنامج ينطق كل ما تكتبه له او ما تنسخة وتلصقة فيه أولا : انسخ الكود التالى والصقة فى ملف دفتر Notepad لا تغير شىء فى الكود
Dim message, sapi message=InputBox("What do you want me to say?","Speak to Me") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message
2- احفظ الملف بأى اسم تشاء ولكن بعد الاسم اكتب نقطة ثم vbs مثل ajazeera.vbs
3- شغل البرنامج واكتب النص المراد قراءته واضغط موافق OK واستمتع...............
اللهم صلى وسلم وبارك على سيدنا محمد
إذا أعجبك الموضوع ورغبت فى مشاركته ...اتبع شرح الصورة
اضغط شاطر أعلى هذا الموضوع
كيف تجعل حاسبك يقول كل ما تكتبه بالانجليزية How to Make Your Computer Speak Whatever You Type
موضوع: كيف تجعل حاسبك يقول كل ما تكتبه بالانجليزية How to Make Your Computer Speak Whatever You Type 
الأحد أبريل 24, 2011 9:37 pm
