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



بدين منظور:

از منوي Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنيد تا ويرايشگر Notepad ويندوز باز شود.

اكنون دستورات زير را عينأ داخل Notepad كپي نماييد:


Dim msg, sapi

msg=InputBox("Matneh khod ra vared namaeed! www.Kamyabonline.com","Sokhangoo")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg


سپس از منوي File گزينه Save را انتخاب نماييد.

حال نامي براي فايل خود در نظر گرفته و آن را با فرمت vbs. ذخيره كنيد. به عنوان مثال نام فايل خود را Kamyabonline.vbs بگذاريد.

پس از اينكار بر روي دكمه Save كليك كرده تا فايل شما در محل مورد نظر ذخيره گردد.

اكنون به محلي كه فايل ذخيره شده برويد و فايل ساخته شده را با دوبار كليك اجرا نماييد.

خواهيد ديد پنجره اي باز ميشود كه با تايپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دكمه OK ميتوانيد منتظر شنيدن عبارت وارد شده خود توسط كامپيوتر شويد.

لازم به ذكر است كه اينكار طبعأ تنها بر روي حروف انگليسي امكان پذير است.


به نقل از ترفندستان