PDA

توجه ! این یک نسخه آرشیو شده می باشد و در این حالت شما عکسی را مشاهده نمی کنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : کامپیوتر را با نت پد به حرف بیاورید



Borna66
03-15-2009, 12:30 PM
شاید برای اکثر شما ها موضوع جدیدی نباشد هر چند فکر نمی‌کنم برای به حرف در آوردن کامپیوتر از ترفند زیر استفاده کنید اما خیلی های دیگر هستند که اصلآ خبر ندارند اینکه کامپیوتر یک متن انگلیسی را بخواند چقدر ساده است و وقتی می‌بینند حسابی ذوق زده می‌شوند ، یک نمونه‌اش را چند سال پیش خودم دیدم. چند تا از دوستانم حسابی ذوق کرده بودند و تند و تند عبارت های مختلف را می‌نوشتند تا ببینند کامپیوتر چطور آنها را تلفظ می‌کند.


ابتدا یک پنجره‌ی جدید نت پد باز کنید و متن زیر را عینآ در آن کپی کنید.




http://www.pnu-club.com/imported/2009/03/10.png



Dim message, sapi
message=InputBox("Enter the text you want spoken","SpeakThis")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

حالا کافیست فایل را با پسوند vbs ذخیره کنید و آن را اجرا کنید.

http://www.pnu-club.com/imported/2009/03/11.png



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



http://www.pnu-club.com/imported/2009/03/12.png



کد بالا از یکی از API های مایکروسافت به نام SAPI استفاده می‌کند.
(Speech Application Programming Interface)


راه ساده تر؟
از منوی استارت وارد کنترل پنل شده سپس Speech را انتخاب کنید ، در پنجره‌ی باز شده می‌توانید متن مورد نظرتان را تایپ کنید و روی Preview Voice کلیک کنید تا کامپیوتر آن را برایتان بخواند همچنین می‌توانید سرعت خواندن را هم تنظیم کنید.



http://www.pnu-club.com/imported/2009/03/13.png


http://www.pnu-club.com/imported/2009/03/14.png



می‌توانید از سایت iSpeech.org هم برای این کار با کیفیت بهتر استفاده کنید. متن را در سایت وارد می‌کنید و صدای آن را دریافت می‌کنید و البته قابلیت های فراوان دیگری هم دارد. كد - لینک:
Convert Text to Speech Free. Listen to any Document, Website or Blog (http://ispeech.org/)

به فناوری‌ای که ما در این پست از آن استفاده کردیم اصطلاحآ Text 2 Speech می‌گویند. می‌توانید برای کسب اطلاعات بیشتر جستجویش کنید.
شیطونی کنیم؟
کد ذکر شده در بالا را به صورت زیر تغییر دهید:

Dim sapi
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "Hello Babak, I'm your computer , I can talk to you"

(متن داخل گیومه را به دلخواه خود تغییر دهید) حالا فایل را مثل مرحله های گذشته با پسوند vbs ذخیره کنید و در پوشه‌ی استارت آپ کاربر های دیگر کامپیوتر یا دوستتان قرار دهید. دفعه‌ی بعد که کامپیوترش را روشن کند پیغام شما برایش پخش می‌شود.
(مثال: c:\Documents and Settings\Babak\Start Menu\Programs\Startup)




منبع : كد - لینک:
زنگوله - از اینترنت لذت ببرید|youtube|بازی فلش|عکس (http://zangoole.com/)

:104:
گردآونده:طه-Borna66