اجعل جهازك ينطق ما تكتب طريقه سهله تخلى كمبيوترك يقول اللى انت بتكتبه
طريقه سهله جدا تجعل جهاز الكمبيوتر خاصتك يقول ما تكتبه بضغطه زر
ويمكنك الاستفاده من هذه الطريقه واستخدامه فى تعلم نطق الكلمات بالانجليزيه
قم بفتح Notepad جديد.
* اضغط Start ...
* ثم All programs ...
* ثم Accessories
*ثم... Notepad.
قم بنسخ الكود التالي فى الصفحه البضاء الفارغه التى ستظهر لك.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
انتبه يجب عليك حفظ الملف بإسم
speak.vbs
صوره للبرنامج
الان كل ما عليك فعله هو الضغط علي رمز البرنامج علي سطح المكتب
واكتب ما تريد سماعه و اضغط علي .OK
ملحوظه: في بعض الاحيان لا يعمل البرنامج مع اللغه العربيه.
ويمكنك الاستفاده من هذه الطريقه واستخدامه فى تعلم نطق الكلمات بالانجليزيه
قم بفتح Notepad جديد.
* اضغط Start ...
* ثم All programs ...
* ثم Accessories
*ثم... Notepad.
قم بنسخ الكود التالي فى الصفحه البضاء الفارغه التى ستظهر لك.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
انتبه يجب عليك حفظ الملف بإسم
speak.vbs
صوره للبرنامج
الان كل ما عليك فعله هو الضغط علي رمز البرنامج علي سطح المكتب
واكتب ما تريد سماعه و اضغط علي .OK
ملحوظه: في بعض الاحيان لا يعمل البرنامج مع اللغه العربيه.
ليست هناك تعليقات:
إرسال تعليق