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

خوب امیدوارم در این دوران قرنطینه و کرونایی بهتون خوش گذشته باشه و  بتونید ترفند های زیادی رو یاد بگیرید امروز میخوام آموزش تبدیل متن به گفتار در کامپیوتر را بهتون آموزش بدم
برای این کار ابتدا وارد نوت پد (notepad) شوید .

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

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