Popular Posts

picture widgetspicture widgetspicture widgetspicture widgetspicture widgetspicture widgets

ေပ်ာ္စရာေလး လုပ္ကစားမယ္

ကယ္သူငယ္ခ်င္းတို႕ ေပ်ာ္စရာေလးတစ္ခုလုပ္ၾကမယ္

ကိုလင္း-သလႅာ၀တီ ပို႕မွ ကူးယူေဖာ္ျပသည္ ...
ပထမဦးဆံုး Notepad ကိုဖြင့္လိုက္ျပီး ေအာက္မွာ ေဖာ္ျပထာတဲ့ ကုတ္ေတြကို Copy and Paste လုပ္ပါ

Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.youth-it-technican.blogspot.com/","youth-it-technicanText-To-A
udio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ျပီးရင္ကိုယ္စိတ္ၾကိဳက္နာမည္နဲ႕Save.. ( .vbs) ဖိုင္နဲ႕ေဆ့
ဥပမာ= kolin.vbs အဲသလိုေပါ့

အိုေက Save.ျပီးရင္ မိမိေဆ့ထားတဲ့ program ေလးကိုဖြင့္ Text Box ေလး မွာ သူငယ္ခ်င္းတို႕ စိတ္ၾကိဳက္စာေတြရိုက္ထည့္ ၿပီးတာနဲ႕ok ႏိွပ္လိုက္ ရင္ရျပီ။

ဟိဟိ ျမန္မာေတာ့မရဘူးေနာ္..သူ႕က English ပဲရမယ္။
မွတ္ခ်က္==မည့္သည့္အႏၱရာယ္မွမရွိပါ။

သူငယ္ခ်င္းေတြ ေပ်ာ္ရႊင္ရီေမာ၍ ဘဝအေမာေတြေျပပါေစဗ်ာ...

No comments:

Post a Comment

Nattalin Township

သူရိယ အလင္း - လိုင္းေပါင္းစံု

ေရာင္ေတာ္ဖြင့္လူငယ္အဖြဲ႕ လွုပ္ရွားမွု(နတ္တလင္းၿမိဳ႕)

HEART TO HEART

ဟိတကာရီ နာေရးကူညီမွုအသင္း

DoReMe

Pyithu Hluttaw - ျပည္သူ႔လႊတ္ေတာ္

ရဲဇာနည္

Eleven Media Group

Shwemyanmar media group

Health Articles

အိပ္ေရးပ်က္တဲ့ညမ်ား

ေနာက္တစ္ၾကိမ္ လာလည္ဖို႕ ဖိတ္ေခၚပါတယ္ ဆက္လက္ၾကိဳးစားေပးပါမယ္ .... တာရာ ပြႀကီး