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

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

 

مراحل :

 

 

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 ذخیره کنید.

منبع: https://www.beytoote.com/computer/tarfand-c/texttospeech-conversion2-computer.html