كيف تجعل حاسوبك ينطق بما تريد !
السلام عليكم و رحمة الله اليوم اتيتكم بموضوع جديد للترفيه وهو كيف تجعل حاسوبك ينطق بما تريد الطريقة بسيطة جدا تابعوا الشرح .
1 – اولا نفتح برنامج المفكرة Notepad وقم بلصق الكود التالي فيه :
Dim msg, sapi |
2 | msg=InputBox("Enter your text ","By Mohamed Islam") |
3 | Set sapi=CreateObject("sapi.spvoice") |
4 | sapi.Speak msg |
Sound.vbs قم بحفظ الملف بإسم
والان قم بتشغيل الملف من الايقونة الموضحة بالصورة
OK وقم بكتابة ما تريد ان ينطقه الكمبيوتر واضغط
الى هنا يكون انتهى شرح اليوم ارجوا ان تعجبكم الطريقة. الى اللقاء و دمتم في حفض الله
المصدر : مدونة
ليست هناك تعليقات:
إرسال تعليق