ေပ်ာ္စရာေလးတစ္ခုလုပ္ၾကမယ္
ပထမဦးဆံုး 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 ႏိွပ္လိုက္ ရင္ရျပီ။
မိမိေရးသားတဲံစာသားအတိုင္း ကြန္ပ်ဴတာထဲကေန ေအာ္ေျပာေနမယ္....တိနားးးးးးးးးးးးး အေနာ္ကေတာ့
I LOVE YOU AUNG AUNG လို႕ေရးၾကည့္တာ....ေိေိ အထဲက ေကာင္မေယးအသံနဲ႕ အဲလို လာေျပာတာခံရတယ္... ေပ်ာ္ခ်ရာေတာင္းးလယ္.....ေိေိ
ဟိဟိ ျမန္မာေတာ့မရဘူးေနာ္..သူ႕က English ပဲရမယ္။
မွတ္ခ်က္==မည့္သည့္အႏၱရာယ္မွမရွိပါ။
သူငယ္ခ်င္းေတြ ေပ်ာ္ရႊင္ရီေမာ၍ ဘဝအေမာေတြေျပပါေစဗ်ာ..
0 ထင္ျမင္ခ်က္:
Post a Comment
လာေရာက္အားေပးၾကတဲ့အတြက္ အားလံုးကို ေက်းဇူးတင္ပါသည္။
အဆင္မေျပတာရွိရင္ comment ေပးတာပဲျဖစ္ျဖစ္၊ cbox ထဲမွာ message ထားခဲ့တာပဲျဖစ္ျဖစ္ ေဆြးေႏြးႏိုင္ပါသည္။