သယ္ရင္းေတြအားလံုးလဲ အသံုး၀င္ၾကမယ္လို႕ထင္ပါတယ္.......
အခုတင္ေပးမယ့္ေဆာ့၀ဲေလး တကယ္အလုပ္ျဖစ္မယ္ဆိုရင္ like နဲ႕ကြန္မန္႕ေလးေတြေပးသြားၾကပါလို႕.......
ေတာ္ပါျပီစကားမမ်ားေတာ့ပါဘူး...
စလိုက္၇ေအာင္ အရင္ဆံုး notepad ကိုဖြင့္လိုက္ပါ သင္ဟာwindows7သံုးရင္ဒီကုတ္ေလးေတြကို copy paste မလုပ္ၾကပါနဲ႕ေနာ္ ဒါေၾကာင့္စိတ္ေတာ့မပ်က္သြားၾကပါနဲ႕လက္နဲ႕ပဲေရးၾကပါေနာ္..... .....ကဲကုတ္ေလးေတြကိုေရးၾကပါ...
Dim msg, sapi
msg=InputBox("Enter your text for conversion: created by PhyoWaiAung","Text2Speech Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
ေရးျပီးၾကရင္ file name ကိုေတာ့ Text2Speech.vbs နဲ႕ေဆ့လိုက္ပါ။
အခုတင္ေပးမယ့္ေဆာ့၀ဲေလး တကယ္အလုပ္ျဖစ္မယ္ဆိုရင္ like နဲ႕ကြန္မန္႕ေလးေတြေပးသြားၾကပါလို႕.......
ေတာ္ပါျပီစကားမမ်ားေတာ့ပါဘူး...
စလိုက္၇ေအာင္ အရင္ဆံုး notepad ကိုဖြင့္လိုက္ပါ သင္ဟာwindows7သံုးရင္ဒီကုတ္ေလးေတြကို copy paste မလုပ္ၾကပါနဲ႕ေနာ္ ဒါေၾကာင့္စိတ္ေတာ့မပ်က္သြားၾကပါနဲ႕လက္နဲ႕ပဲေရးၾကပါေနာ္..... .....ကဲကုတ္ေလးေတြကိုေရးၾကပါ...
Dim msg, sapi
msg=InputBox("Enter your text for conversion: created by PhyoWaiAung","Text2Speech Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
ေရးျပီးၾကရင္ file name ကိုေတာ့ Text2Speech.vbs နဲ႕ေဆ့လိုက္ပါ။
Post a Comment