تبدیل متن به گفتار بدون نیاز به نرم افزار

ویندوز این قابلیت را قرار داده تا بدون استفاده از هیچ نرم افزاری بتوانید متن انگلیسی خود را به گفتار تبدیل کنید.اما برای دسترسی به این قابلیت باید آن‌را به شکل ساده‌ای ایجاد کنید. برای این منظور NotePad را باز کرده و دستورات زیر را درون آن تایپ کنید.

Dim input, obj
input=InputBox("Enter your text:","Automatic")
Set obj =CreateObject("sapi.spvoice")
obj.Speak input

کاری که دستورات بالا انجام می‌دهند نشان دادن یک پیغام ورودی در پنجره ظاهر شده و ساخت یک نمونه از شی sapi.spvoice و فراخوانی متد Speak است. بعد از وارد کردن دستورات بالا فایل را با نام دلخواه ذخیره کنید. دقت کنید در زمان ذخیره‌سازی فایل پسوند فایل vbs باشد و نه txt و یا txt.vbs برای این منظور از کادر Save as type گزینه All Files را انتخاب کنید.

حال روی فایل ساخته شده دوبار کلیک کنید. پنجره‌ایی مانند تصویر زیر ظاهر می‌شود.

 

تاریخ ارسال: 1396/10/23
تعداد بازدید: 344
ارسال نظر