تبدیل متن به گفتار در کامپیوتر
متن خود را به نرم افزار مبدل گفتار تبدیل کنید تا کامپیوتر شما هر آنچه را که تایپ می کنید صحبت کند.
مراحل :
تبدیل متن به گفتار در کامپیوتر
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 را فشار دهید.
تبدیل متن به گفتار در کامپیوتر
