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

[ ورود به وبلاک آی دیجیتالز و مشاهده سایر مطالب ]

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

1. ابتدا Notepad را باز کنید.

2. سپس کد زیر را کپی کنید و آن را در Notepad پیست کنید:

Dim message, sapi

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

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

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

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