کلوپ آموزش آموزش از جنس اینترنت،آموزش رایگان آشپزی،بازاریابی و …
نوشته های مشابه
با ایجاد این نرم افزار شما می توانید به راحتی نوشتار را به گفتار تبدیل کنید البته ی همه ی این موارد توسط کامپیوتر شما صورت می گیرد . کافیست متنی را تایپ کنید تا کامپیوتر آنرا برای شما بخواند .
گام ۱ :
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 کامپیوتر آنرا برای شما تکرار خواهد کرد .
گام ۵ :
Enjoy !
سلام مدیر عزیز در کد نویسی شما که گفتی کپی کنید ” این علامت غلت هست و باید از این علامت استفاده کنید ”
Dim message, sapi
message=InputBox(“What do you want me to say?”,”Speak to Me”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
این درست است.
ممنون