X
تبلیغات
نماشا
رایتل
کامپیوتر را با نت پد به حرف بیاورید

شاید برای اکثر شما ها موضوع جدیدی نباشد هر چند فکر نمی‌کنم برای به حرف در آوردن کامپیوتر از ترفند زیر استفاده کنید اما خیلی های دیگر هستند که اصلآ خبر ندارند اینکه کامپیوتر یک متن انگلیسی را بخواند چقدر ساده است و وقتی می‌بینند حسابی ذوق زده می‌شوند ، یک نمونه‌اش را چند سال پیش خودم دیدم. چند تا از دوستانم حسابی ذوق کرده بودند و تند و تند عبارت های مختلف را می‌نوشتند تا ببینند کامپیوتر چطور آنها را تلفظ می‌کند.

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

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

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

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

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

راه ساده تر؟

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

می‌توانید از سایت 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)