تبدیل متن به گفتار در کامپیوتر

متن خود را به نرم افزار مبدل گفتار تبدیل کنید تا کامپیوتر شما هر آنچه را که تایپ می کنید صحبت کند.

مراحل :

تبدیل متن به گفتار در کامپیوتر

تبدیل متن به گفتار در کامپیوتر

Notepad را باز کنید.

تبدیل متن به گفتار در کامپیوتر

تبدیل متن به گفتار در کامپیوتر

کد زیر را کپی کنید و آن را در notepad پیست کنید.

 Dim message, sapi

message=InputBox(“What do you want me to say?”,”Speak to Me”)

Set sapi=CreateObject(“sapi.spvoice”)

sapi.Speak message

تبدیل متن به گفتار در کامپیوتر

تبدیل متن به گفتار در کامپیوتر

فایل را با هر نام با پسوند vbs ذخیره کنید.

 

تبدیل متن به گفتار در کامپیوتر

تبدیل متن به گفتار در کامپیوتر

فایل را اجرا کنید، هر چیزی را که میخواهید در جعبه متن تایپ کنید و OK را فشار دهید.

تبدیل متن به گفتار در کامپیوتر

تبدیل متن به گفتار در کامپیوتر

مطالب مرتبط

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

Protected with IP Blacklist CloudIP Blacklist Cloud