Text to audio Converter using Notepad

ကၽြန္ေတာ႔ရဲ႕ဘေလာ႔ေလးေပၚအလည္လာတဲ႕သူငယ္ခ်င္းမ်ားကိုအပ်င္းလည္းေၿပေစဖို႕လက္ေဆာင္တခုေပးခ်င္ပါ
တယ္Text to audio Converter using Notepad လို႔ဆိုတဲ႔အတိုင္းကိုယ္႕computer မွာ Notepad ေလးကိုဖြင့္လို႔အခုေပးထားတဲ႔႔စာေလးေတြကိုcopy ကူးၿပီးNotepadမွာpaste လုတ္ေပးပါ။Notepad ကို save တဲ႔အခါ (Savename).Vbs နဲ႕သိမ္းေပးပါ။
Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.nyuntnaingoo.blogspot.com","TextToAudio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
အေသးစိက္ကိုဒီမွာဆက္ၾကည္႔ပါ။

 

ကၽြန္ေတာ္ကေတာ႔text.vbs နဲ႔save လုတ္ထားတယ္။

 




Dasktop ေပၚေရာက္လာတဲ႔text.vbs Icom ကိုclick ႏိွတ္ Rum လိုက္ပါ။ TextBox မွာ Converter လုတ္လိုတဲ႕စာသားကိုရိုတ္ထည္႔ပါ။ok ႏွိတ္ၿပီးနားေထာင္ၾကည္႔ပါ။Computerမွၿပန္ေၿပာသံကိုႀကားရပါမည္။
ကၽြန္ေတာ႔ရဲ႕ဘေလာ႔ေလးေပၚအလည္လာတဲ႕သူငယ္ခ်င္းမ်ားကိုအပ်င္းလည္းေၿပေစနိုင္ပါေစ။