إجعل الحاسوب يقرأ ما تكتبه
صفحة 2 من اصل 1
إجعل الحاسوب يقرأ ما تكتبه
هذه الطريقة تجعلك تكتب ما تريد وتجعل الكمبيوتر يتحدث ما كتبت.
اذهب الى المفكرة NotePad واكتب الكود التالي دون اي اضافات
Dim message, sapi
message=InputBox(“Enter the **** you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
الكود
قم بتخزين الملف بالاسم الذي تريد ولكن اكتب في نهاية الاسم الامتداد.VBS
فمثلاً : mb.VBS
احفظ..ثم شغل واكتب ما تريد
اذا لم يعمل واظهر وجود خطأ، قم بتحميل الملف من هنــــــا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] وهو بصيغة نص على Notepad ، من File > Save as وطبق خطوات الحفظ السالفة الذكر
اذهب الى المفكرة NotePad واكتب الكود التالي دون اي اضافات
Dim message, sapi
message=InputBox(“Enter the **** you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
الكود
قم بتخزين الملف بالاسم الذي تريد ولكن اكتب في نهاية الاسم الامتداد.VBS
فمثلاً : mb.VBS
احفظ..ثم شغل واكتب ما تريد
اذا لم يعمل واظهر وجود خطأ، قم بتحميل الملف من هنــــــا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] وهو بصيغة نص على Notepad ، من File > Save as وطبق خطوات الحفظ السالفة الذكر
مواضيع مماثلة
» أسرار الحاسوب
» أجزاء الحاسوب
» Talkit! برنامج يقرأ بأصوات وسرعات مختلفة الإنجليزية
» لماذا يقرأ المسلمون القرآن رغم عدم معرفتهم باللغه العربيه
» تطبيق يقرأ العملات الخليجية للمكفوفين عن طريق الكاميرا
» أجزاء الحاسوب
» Talkit! برنامج يقرأ بأصوات وسرعات مختلفة الإنجليزية
» لماذا يقرأ المسلمون القرآن رغم عدم معرفتهم باللغه العربيه
» تطبيق يقرأ العملات الخليجية للمكفوفين عن طريق الكاميرا
صفحة 2 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى