ပထမဦးဆံုး 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 ပဲရမယ္။
မွတ္ခ်က္==မည့္သည့္အႏၱရာယ္မွမရွိပါ။
သူငယ္ခ်င္းေတြ ေပ်ာ္ရႊင္ရီေမာ၍ ဘဝအေမာေတြေျပပါေစဗ်ာ..
ေအာင္ေအာင္(မကစ) ရဲ႕ ဘေလာ့ခရီးသည္ေလးအား အားေပးေနၾကတဲ့အတြက္ ေက်းဇဴးအထူးတင္ပါတယ္.. တုန္႕ျပန္မွဳအေနနဲ႕ fb like ေလးေတာ့ လုပ္ေပးခဲ့ၾကပါေနာ္.. တတ္စြမ္းသမွ် ေတြ႕ ရွိသမွ်ေလးေတြကို ျပန္လည္ မွ်ေ၀ေနပါ့မယ္...။ အဆင္မေျပတာမ်ားရွိခဲ့ပါက...cbox မွာ ေျပာခဲ့ၾကပါေနာ္..
www.ledimyethar.com
www.ninilayy.com
No comments:
Post a Comment