ساخت یک فایل سخنگو! (تبدیل متن به گفتار)

سلام به دوستان خوبم

احتمالأ شما نیز تاکنون با استفاده از نرم افزارهای مختلف و یا از طریق قسمت Speech ویندوز XP متون خود را به گفتار تبدیل کرده اید. به طوریکه متن را تایپ نموده و کامپیوتر آن را برای شما میخواند. اما شاید برای شما نیز جالب باشد که بتوانید خودتان به سادگی همچین برنامه ای بسازید! به طوریکه خروجی شما یک فایل کوچک شده که با اجرای آن و تایپ حروف کامپیوتر آن را برای شما میخواند! قطعأ این راه سریعترین و جذاب ترین راه برای تبدیل نوشتار به گفتار است!


بدین منظور:
از منوی Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنید تا ویرایشگر Notepad ویندوز باز شود.
اکنون دستورات زیر را عینأ داخل Notepad کپی نمایید:

Dim msg, sapi
msg=InputBox(" متن خود را با حروف انگليسي وارد كنيد www.eDvArDo.blogsky.com","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

سپس از منوی File گزینه Save را انتخاب نمایید.
حال نامی برای فایل خود در نظر گرفته و آن را با فرمت vbs. ذخیره کنید. به عنوان مثال نام فایل خود را Speech.vbs بگذارید.
پس از اینکار بر روی دکمه Save کلیک کرده تا فایل شما در محل مورد نظر ذخیره گردد.
اکنون به محلی که فایل ذخیره شده بروید و فایل ساخته شده را با دوبار کلیک اجرا نمایید.
خواهید دید پنجره ای باز میشود که با تایپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دکمه OK میتوانید منتظر شنیدن عبارت وارد شده خود توسط کامپیوتر شوید.
لازم به ذکر است که اینکار طبعأ تنها بر روی حروف انگلیسی امکان پذیر است.

اميدوارم دوست داشته باشيد!


برگرفته از ترفندستان
ويرايش: eDvArDo


سپاس