ပထမဦးဆံုး Notepad ကိုဖြင့္လိုက္ျပီး ေအာက္မွာ ေဖာ္ျပထာတဲ့ ကုတ္ေတြကို Copy and Paste လုပ္ပါ
Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.youth-it-technican.blogspot.com/","youth-it-technicanText-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
ျပီးရင္ကိုယ္စိတ္ၾကိဳက္နာမည္နဲ႕Save.. ( .vbs) ဖိုင္နဲ႕ေဆ့
ဥပမာ= kolin.vbs အဲသလိုေပါ့
အိုေက Save.ျပီးရင္ မိမိေဆ့ထားတဲ့ program ေလးကိုဖြင့္ Text Box ေလး မွာ သူငယ္ခ်င္းတို႕ စိတ္ၾကိဳက္စာေတြရိုက္ထည့္ ၿပီးတာနဲ႕ok ႏိွပ္လိုက္ ရင္ရျပီ။
ဟိဟိ ျမန္မာေတာ့မရဘူးေနာ္..သူ႕က English ပဲရမယ္။
မွတ္ခ်က္==မည့္သည့္အႏၱရာယ္မွမရွိပါ။
သူငယ္ခ်င္းေတြ ေပ်ာ္ရႊင္ရီေမာ၍ ဘဝအေမာေတြေျပပါေစဗ်ာ...
0 comments:
Post a Comment