Notepad ကုိ အသုံးျပဳျပီး စာ က ေန အသံ ထြက္ ေျပာင္းေပးတဲ text to audio Coverter တခု ကုိယ္တုိင္ဖန္တီးနည္း

Notepad ကုိ အသုံးျပဳျပီး စာ က ေန အသံ ထြက္ ေျပာင္းေပးတဲ text to audio Coverter ေလးတခု ကုိယ္တုိင္ ဖန္တီးလုိ ့ရ တယ္ နည္းေလးတခု ေ၀မွ် ေပးလုိက္ပါ တယ္။ လုပ္နည္းက လြယ္လြယ္ေလး
ပါဘဲ။ စိတ္၀င္စားရင္ေအာက္မွာ ၾကည့္ သြားပါအုံး။

ပထမဆုံး notepad ကုိ ဖြင့္လုိက္  
ျပီးရင္ ေအာက္က အနီစာေၾကာင္းေလးကုိ copy ကူးျပီး notepad မွာpaste နဲ ့ ထည့္လုိက္ပါ




Dim msg, sapi
msg=InputBox("Enter your text for conversion ,    by–anti-lobby.blogspot.com","Anti-lobby Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg      

("Enter your text for conversion ,    by–anti-lobby.blogspot.com","Anti-lobby Text-To-Audio Converter") ဆုိတဲ့ ေနရာမွာ ကုိယ့္ၾကိဳက္တဲ့ အမည္ေပးလုိ ့ရပါတယ္ ေအာက္ဆုံးပုံက လုိ inputbox မွာ

ေပၚေနမွာပါ။

ျပိးရင္ notepad ကုိ save တဲ့အခါမွာ ၾကိဳက္တဲ့ နာမည္ေပးျပီး ေနာက္က .bvs ဆုိျပီး save ပါ
(ဥပမာ။ ။ text to audio.bvs) ဒါဆုိ ရျပီ မရွင္းရင္ ေအာက္က ပုံေတြ ၾကည့္

ဒီေလာက္ဆုိရင္ေတာ့ သိေလာက္ျပီထင္ပါတယ္ အဂၤလိပ္စာလုံး ၾကိဳက္တာကုိရုိက္ အသံထြက္ေပးပါလိမ့္မယ္။ တကယ္လုိ desktop က မူရင္း icom ေလး ကုိ မၾကိဳက္ရင္
right click ႏွိပ္လုိက္ပါ create shoutcat ဆုိျပိး shoutcat file လုပ္ပါ shoutcat file ကုိ တခါထပ္ျပီး right click ထပ္ ႏွိပ္ properties >>>..customize >>..choose icon မွာ ၾကိဳက္တဲ့ icon ေရြးလုိက္ ပါ။
အခုဆုိရင္ ကုိယ္ပုိင္ taxt to audio coverter ေလးတခု ဖန္တီး နည္း ေလး သိ သြားျပီေပါ့ခင္ဗ်ာ။

enjoy'