سلام به دوستان خوبم
احتمالأ شما نیز تاکنون با استفاده از نرم افزارهای مختلف و یا از طریق قسمت Speech ویندوز XP متون خود را به گفتار تبدیل کرده اید. به طوریکه متن را تایپ نموده و کامپیوتر آن را برای شما میخواند. اما شاید برای شما نیز جالب باشد که بتوانید خودتان به سادگی همچین برنامه ای بسازید! به طوریکه خروجی شما یک فایل کوچک شده که با اجرای آن و تایپ حروف کامپیوتر آن را برای شما میخواند! قطعأ این راه سریعترین و جذاب ترین راه برای تبدیل نوشتار به گفتار است!
بدین منظور:
از منوی Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنید تا ویرایشگر Notepad ویندوز باز شود.
اکنون دستورات زیر را عینأ داخل Notepad کپی نمایید:
Dim msg, sapiسپس از منوی File گزینه Save را انتخاب نمایید.
msg=InputBox(" متن خود را با حروف انگليسي وارد كنيد www.eDvArDo.blogsky.com","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
حال نامی برای فایل خود در نظر گرفته و آن را با فرمت vbs. ذخیره کنید. به عنوان مثال نام فایل خود را Speech.vbs بگذارید.
پس از اینکار بر روی دکمه Save کلیک کرده تا فایل شما در محل مورد نظر ذخیره گردد.
اکنون به محلی که فایل ذخیره شده بروید و فایل ساخته شده را با دوبار کلیک اجرا نمایید.
خواهید دید پنجره ای باز میشود که با تایپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دکمه OK میتوانید منتظر شنیدن عبارت وارد شده خود توسط کامپیوتر شوید.
لازم به ذکر است که اینکار طبعأ تنها بر روی حروف انگلیسی امکان پذیر است.
اميدوارم دوست داشته باشيد!
برگرفته از ترفندستان
ويرايش: eDvArDo
سپاس
پاسخ با نقل قول
علاقه مندی ها (بوک مارک ها)