رفتن به محتوای اصلی
ثبت گزارش
ثبت گزارش

نحوه تبدیل متن به گفتار در کامپیوتر چگونه است؟

نحوه تبدیل متن به گفتار در کامپیوتر چگونه است؟

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

 Dim message, sapi

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

Set sapi=CreateObject(‪"sapi.spvoice"‬)

sapi.Speak message

2- فایل را با هر نام با پسوند vbs ذخیره کنید.
3- فایل را اجرا کنید، هر چیزی را که میخواهید در جعبه متن تایپ کنید و OK را کلیک کنید.