طريقه سهله جدا تجعل جهاز الكمبيوتر خاصتك يقول ما تكتبه بضغطه زر
ويمكنك الاستفاده من هذه الطريقه واستخدامه فى تعلم نطق الكلمات بالانجليزيه
قم بفتح 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
ملحوظه: في بعض الاحيان لا يعمل البرنامج مع اللغه العربيه.
ويمكنك الاستفاده من هذه الطريقه واستخدامه فى تعلم نطق الكلمات بالانجليزيه
قم بفتح 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
ملحوظه: في بعض الاحيان لا يعمل البرنامج مع اللغه العربيه.
ليست هناك تعليقات:
إرسال تعليق